Mencari Luas Lingkaran dan Jajar Genjang dengan Pascal

mencari luas lingkaran dan jajar genjang dengan Pascal. Selamat Pagi, Selamat Siang, Selamat Sore, dan selamat malam Para pembaca setia Ahmadfahrizal.net, Mohon maaf atas sedikit kesalahan pada template yang kemaren sehingga tidak bisa membuka isi artikel yang ada di dalam blogger ini.

kali ini saya akan membahas tetang Programmer Pascal, di mana postingan sebelumnya saya telah membahas tetang Mencari luas Segitiga dengan Pascal, dan sekarang saya akan membahas tetang bagaimana caranya mencari luas lingkaran dan jajar genjang dengan Pascal.

Berikut ini adalah Review Codingnya :

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.

Apabila saat di run di pascal maka akan menjadi seperti ini :

Nah kalau kalian tidak ingin repos untuk mengetiknya di porgram pascal, coba salin Script Codenya ke dalam noteped terus save dengan extensi yang ada di dalam pascal, setlah itu coba buka di pascal.

Demikian tutorial tentang mencari luas lingkaran dan jajar genjang dengan Pascal, Mohon maaf bila ada kesalahan dalam mengetik Rumus matematikanya, dan lain sebagainya.