Program Mencari_Luas_dan_Keliling_Bangun_Datar;
Uses crt;
Var a,b,c,t,r,pjg,lbr,s: integer;
L,K: real;

Procedure menu;

Begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Pesegi Panjang');
writeln ('4. Persegi');
End;

Procedure Segitiga;

Begin
writeln ('Menghitung Luas dan Keliling Segitiga');
write ('Panjang a= '); readln (a);
write ('Panjang b= '); readln (b);
write ('Panjang c= '); readln (c);
write ('Tinggi Segitiga= '); readln (t);
L:= (a*t)/2;
K:= (a+b+c);
write ('Luas Segitiga = ', L:2:2); readln;
write ('Keliling Segitiga = ', K:2:2); readln;
End;

Procedure Lingkaran;

const phi=3.14;
Begin
writeln ('Menghitung Luas dan Keliling Lingkaran');
write ('Panjang r= '); readln (r);
L:= phi*r*r;
K:= 2*phi*r;
write ('Luas Lingkaran adalah ', L:2:2); readln;
write ('Keliling Lingkaran adalah ', K:2:2); readln;

end;

Procedure Persegi_Panjang;

Begin
writeln ('Menghitung Luas dan Keliling Persegi_Panjang');
write ('p= '); readln (pjg);
write ('l= '); readln (lbr);
L:= pjg*lbr;
K:= (2*pjg)+(2*lbr);
write ('Luas Persegi_Panjang adalah = ',L:2:2);readln;
write ('Keliling Persegi_Panjang adalah = ',K:2:2);readln;
End;

Procedure Persegi;

Begin
writeln ('Menghitung Luas dan Keliling Persegi');
write ('panjang sisi= '); readln (s);
L:= s*s;
K:= 4*s;
write ('Luas Persegi adalah ',L:2:2); readln;
write ('Keliling Persegi adalah ',K:2:2); readln;
End;

Var pil:char;

Begin
Clrscr;
writeln ('program menghitung luas dan keliling bangun datar');
writeln ('oleh : dian aliza_070804');
writeln ('matematika_IV B');
writeln ('Berikut pilihan menu yang dapat Anda pilih : ');
Menu;
write ('Menu yang Anda pilih adalah '); readln (pil);
Case pil of
'1': begin segitiga; end;
'2': begin lingkaran; end;
'3': begin persegi_panjang; end;
'4': begin persegi; end;
End; readln;

End.

Read Users' Comments ( 0 )

Dalam Bahasa Pascal


program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;

uses crt;

var
x,y,a,b,k,l:longint;

begin
clrscr;
writeln ('------------------------------------------');
writeln ('~~~~~~~~~~~~~~selamat_datang~~~~~~~~~~~~~~');
writeln ('program menentukan FPB dengan Algoritma Euclid');
writeln ('------------------------------------------');

writeln ('Masukan Bilangan Pertama : ');
readln (k);
writeln ('Masukan Bilangan Kedua : ');
readln (l);

if k>l then
begin
a:=k;
b:=l;

end else
begin
a:=l;
b:=k;

end;

writeln;
y:= a mod b;
x:= b div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

repeat
a:=b;
b:=y;


y:= a mod b;
x:= a div b;

write (a);
write ('=');
write (x);
write ('*');
write (b);
write ('+');
writeln (y);

until y=0;

writeln ('nilai FPB-nya adalah : ');
write (b);

readln;

end.

Read Users' Comments ( 0 )