Kakalator Turbo Pascal

Kali ini saya membagikan turorial pada dengan turbo pascal yaitu cara membuat program kalkulator sederhana dengan versi saya sendiri :v . silahkan agan tinggal copy aja code di bawah ini ! :D

program pilih;
uses wincrt;
var l,p,Lu,Kel,r,s,a,t,x,v : real;
z,m : string;

begin
clrscr;
writeln(' Masukan Nama Anda : '); readln(m);
repeat
clrscr;
writeln(' Okay , Hai ',m);
writeln('Selamat datang di cepat hitung rumus kami');
writeln(' ');
writeln(' By Loeqman TheKeeper OfUchiha :p ');
writeln(' =======BANGUN DATAR======= ');
writeln(' | 1. persegipanjang | ');
writeln(' | 2. lingkaran | ');
writeln(' | 3. persegi | ');
writeln(' | 4. segitiga sama sisi | ');
writeln(' =======BANGUN RUANG=======');
writeln(' | 5. kubus | ');
writeln(' | 6. balok | ');
writeln(' | 7. tabung | ');
writeln(' | 8. bola | ');
writeln(' | 9. kerucut | ');
writeln(' ');
write(' Apa yang anda pilih : '); readln(x);
clrscr;
if (x=1) then
begin
writeln('Anda Telah Memilih Persegi Panjang');
writeln('----------------------------------');
write(' Berapa panjang nya : '); readln(p);
write(' Berapa Lebarnya : '); readln(l);
Lu:= p*l;
Kel:= 2*(p+l);
writeln(' jadi Luas yang anda cari = ', Lu:6:2);
writeln(' jadi keliling yang anda cari = ', kel:6:2);
end
else if (x=2) then
begin
writeln(' Anda Telah Memilih Lingkaran');
writeln('-----------------------------');
write('Berapa jari-jari lingkarannya : '); readln(r);
Lu:= 3.14*r*r;
Kel:= 2*3.14*r;
writeln(' jadi Luas yang anda cari = ', Lu:6:2);
writeln(' jadi kelilng yang anda cari = ', kel:6:2);
end
else if (x=3) then
begin
writeln(' Anda telah memilih persegi');
writeln('----------------------------');
write(' Berapa sisinya : '); readln(s);
Lu:= s*s;
kel:= 4*s;
writeln('jadi luas persegi yang anda cari = ', Lu:6:2);
writeln(' dan keliling yang anda cari = ', kel:6:2);
end
else if (x=4) then
begin
writeln(' Anda telah memilih segitiga');
writeln('-----------------------------');
write(' Berapa alasnya : '); readln(a);
write(' berapa tinggi : '); readln(t);
Lu:= a*t/2;
kel:=3*a;
writeln('jadi luas yang anda cari = ', Lu:6:2);
writeln(' dan kelilingnya = ', Kel:6:2);
end
else if (x=5) then
begin
writeln(' Anda telah memilih kubus');
writeln('-----------------------------');
write(' Berapa sisinya : '); readln(s);
V:= s*s*s;
Lu:= s*s*6;
writeln(' jadi luas yang anda cari = ', Lu:6:2);
writeln(' jadi volu me yang anda cari = ', V:6:2);
end
else if (x=6) then
begin
writeln(' Anda telah memilih balok ');
writeln(' ---------------------------');
write(' berapakah alasnya : '); readln(a);
write(' berapakah lebarnya: '); readln(l);
write(' berapakah tinginya :'); readln(t);
V:= a*l*t;
writeln(' jadi volume yang anda cari = ', V:6:2);
end
else if (x=7) then
begin
writeln('Anda telah memilih tabung ');
writeln('----------------------------');
write('berapakah jari-jarinya : '); readln(r);
write('berapakah tingginya : '); readln(t);
V:= 3.14*r*r*t;

writeln(' jadi volume yang anda cari = ', V:6:2);
end;

writeln(' apakah anda mau mengulangnya lagi (y/t): '); readln(z);
until (z='t');
end.