untuk lebih jelasnya kalian bisa ke sini hhttp://www.ahmadfahrizal.net/
itu adalah salah satu blog saya yang kini aktif membahas tetang pascal.
oke, bagaiman cara mencari luas lingkaran dan jajar genjang. berikut ini list coding nya
Program Operasi_MTK;
{Latihan : Luas lingkaran dan jajar genjang
Credit By : Ahmad Fahrizal}
uses crt;
var r,a,t,lr,ljg:real;
begin clrscr;
writeln('1. Menghitung Luas Lingkaran');
writeln('------------------------------');
writeln;
write(' Masukkan nilai jari-jari lingkaran = ');readln(r);
lr := (22/7)*(r*r);
writeln(' Luas Lingkaran = ',lr:3:2);
writeln;
writeln('===================================');
;writeln;
writeln('2. Menghitung Luas Jajargenjang');
writeln('--------------------------------');
writeln;
write(' Masukkan nilai alas = ');readln(a);
write(' Masukkan nilai tinggi = ');readln(t);
ljg := a*t;
writeln(' Luas Jajargenjang = ',ljg:3:2);
readln;
end.