Pengikut

Minggu, 25 April 2010

Program Faktorial pada Pascal

uses crt;
function faktor : real;
begin
if bilangan = then
else
faktor := faktor *bilangan;
end;
var
a : integer;
var
n : integer;
begin
clrscr;
write <'Berapa Faktorial ='>; readln;
writeln

Sabtu, 24 April 2010

Luas Segitiga pada Pascal

uses crt;
var
alas : integer;
tinggi : integer;
luas : real;
begin
clrscr;
writeln <'Perhitungan Luas Segitiga'>;
writeln <'*************************'>;
write <'alas:'>; readln ;
write <'tinggi:'>;readln ;
luas:=alas*tinggi*0.5;
writeln <'hasil :'>; write<'Luas Segitiga',luas>;
readln;
end.

Program Biodata pada Pascal

program satu;
uses crt;
var
nm : string;
kls : string;
npm : string;
begin
clrscr;
write <'nama saya:'>; readln ;
write <'kelas saya:'>; readln ;
write <'npm saya:'>; readln ;
write <'nama saya ',nm,' kelas saya ',kls,' npm saya ',npm>;
readln;
end.

Program Input Bagian pada Pascal

Program himpunan_bagian;

Uses crt;

Type

Sets = set of char;

Var A,b,

Irisan, union,

Selisih1, Selisih2 : Sets; {Variabel Untuk Menampung Satu}

Lagi : Char;{Huruf}

Procedure Input (var N :Sets; Y:Byte);

Var I : Byte;

Ch : Char;

Begin

For I := 1 to 5 do

Begin

GotoXY (22+I*3,Y); Ch:= Upcase (Readkey);

N := N + [Ch];

If I = 5 then

Begin

GotoXY (22+I*3,Y);write(ch,’)’);

End else

Begin

GotoXY (22+I*3,Y);write(ch,’,’);

End;

End;

End;

Procedure InputData;

Var I : Byte;

Begin

GotoXY (25,1); Write(‘Operasi Himpunan’);

GotoXY (25,2); Write(‘=============’);

GotoXY (10,8); Write(‘Himpunan A : (‘); Input (A,8);

GotoXY (10,10); Write(‘Himpunan B : (‘); Input (B,10);

End;

{Procedure Untuk Cetak Isi Sets ke Layar}

Procedure Cetak (N:Sets; Y:Byte);

Var I : Char;

Begin

GotoXY (30, Y);

For I := #00 to #255 do {Utk Penjelasan baca note pada hal}

If N * [I] then write ( ‘ ’ , I , ‘ ’) ; {Berikutnya}

Write ( ‘ ) ’ ) ;

End;

Procedure Tampilkan;

Begin

GotoXY (10,15) ;Write(‘ Intersection (A,B) =(‘);;

Goto XY (10,17) :Write(‘ Union (A,B) =(‘);

Goto XY (10,19) :Write(‘ Defference (A,B) =(‘);

Goto XY (10,21) :Write(‘ Defference (B,A) =(‘);

End;

Procedure Proses;

Begin

Union := A + B ; {Sets Untuk Union}

Irisan := A * B ; {Sets Untuk Intersection}

Selisih1 := (A-B) ; {Sets Untuk Difference A-B}

Selisih2 := (B-A) ; {Sets Untuk Difference B-A}

Tampilkan;

Repeat

GotoXY(20,23); Write(‘Coba Lagi ( Y/T ) : ‘ ) ;

Lagi :=UpCase (ReadKey);

Until Lagi In [ ‘Y’,’T,’];

End;

Begin {Program Utuma}

While Lagi( ) ‘T’ do

Begin

A := [ ];

B := [ ]; {Set Dikosongkan, Agar pada saat Program}

Clrscr;

Inputdata; Proses;

Readln;

End;

End.



















Ouput Program



Operasi Himpunan

=============

Himpunan A : ( R,A,N,I,L )

Himpunan B : ( E,S,T,E,R )



Intersection (A,B) = ( AR )

Union (A,B) = ( AEILNRST)

Difference (A,B) = ( ILN )

Difference (B,A) = ( EST )

Coba Lagi ( Y/T ) : Y

Program Angka Ganjil Borland C++

#include
#include
void main()
{
int x;
printf("masukkan angka yang kamu mau: ");
scanf("%d",&x);
if (x%2==0)
printf("angka yang kamu masukkan ganjil");
else
printf("angka yang kamu masukkan benar);
getch();
}

Luas Persegi Panjang pada Borland C++

#include
#include
int main()
{
int a,b,l;
printf("masukkan panjang : ");scanf("%d",&a);
printf("masukkan lebar : ");scanf("%d",&b);
l=a*b;
printf("luas = %d",l);
getch();
}

Program Biodata pada Linux

#include
main()
{
char nm[20],npm[8],kls[5];
clrscr();
printf(" B I O D A T A \n\n\n");
printf(" N A M A : ");scanf("%S",&nm);
printf(" N P M : ");scanf("%S",&npm);
printf(" K E L A S : ");scanf("%S",&kls);
getch();
}