tugas bangun datar

Program Mencari_Luas_dan_Keliling_Bangun_Datar;
uses crt;
var a,b,c,r,p,lb,t,s:integer;
L, K:real;i: integer;

procedure menu;
begin
writeln ('1. Segitiga');
writeln ('2. Lingkaran');
writeln ('3. Persegi 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:0:2); readln;
write ('Keliling segitiga = ',K:0: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:=phi*2*r;
write ('Luas lingkaran adalah ',L:0:2); readln;
write ('Keliling lingkaran adalah ',K:0:2); readln;
end;
procedure persegipanjang;
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 = ',L:0:2); readln;
write ('Keliling persegi panjang = ',K:0: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= ',L:0:2); readln;
write ('Keliling persegi= ',K:0:2); readln;
end;
var pil:char;
begin
Repeat
clrscr;
textcolor (white);
writeln ('Pilih menu berikut ini:');
menu;
write('Menu yang Anda pilih ');readln(pil);
case pil of
'1': begin segitiga;end;
'2': begin lingkaran; end;
'3': begin persegipanjang;end;
'4': begin persegi;end;
end;
write('mau ulang lagi? [Y/N]:'); readln(Pil);
Pil:=Upcase (PIL);
Until (Pil<>'Y');readln;
end.

Menghitung FPB

Program Menentukan_FPB_dengan_Menggunakan_Algoritma_Euclide;

uses crt;

var
x,y,a,b,p,q:integer;

begin
clrscr;
writeln('Nama : Eka Dewi Rahayu');
writeln('Kelas : 4a');
writeln('NIM : 070766');
writeln;
writeln (' Program FPB ');
writeln ('==================================================');

write('masukan bilangan pertama : ');read(p);
write('masukan bilangan kedua : ');read(q);

if p>q then
begin
a:=p;
b:=q;
end else
begin
a:=q;
b:=p;
end;

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

writeln (a,' = ',x,' . ',b,' + ',y);readln;

if a>b then
repeat
a:=b;
b:=y;
y:=a mod b;
x:=a div b;

writeln (a,' = ',x,' . ',b,' + ',y);readln;

until y=0;
writeln;
write('jadi nilai FPB adalah ');
writeln (b);
readln;
write('fpb=a=b');
end.