Mencari Luas Lingkaran dan Jajar Genjang dengan Pascal

Selamat Pagi, Selamat Siang, Selamat Sore. kali ini murupakan posting saya yang pertama di sini, di sini saya akan membahas tetang pelajaran programmer pascal yang telah saya dapat di bangku kuliah.

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.