Mencari luas dan keliling bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
Uses crt;
Var a,b,c,t,r,p,lb,s: integer;
L,K: realProcedure 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 (p);
write ('l = '); readln (lb);
L:= p*lb;

K:= (2*p)+(2*lb);
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 ('Pilih Menu dibawah ini:');
Menu;
write ('Menu yang Anda pilih '); 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.

PRokom Pascal FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclid;


Uses Crt;
Var x,y,a,b,k,l:longint;
Begin Clrscr;
WriteLn ('!!!!!!!!!!!!! JUDUL !!!!!!!!!!!!');
writeLn (' PROGRAM MENENTUKAN NILAI FPB ');
WriteLn (' airinda Ektria 070793');
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:= a 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 adalah sebagai berikut :');
Write (b);
Readln;
End.