Ok,setelah belajar membuat biodata dengan free pascal kita lanjut dengan penggunaan if then,kali ini saya akan membuat program menghitung bangun datar dengan mencabangkannya menggunakan if then,tanpa basa basi kita langsung saja menuju tkp:
ketikkan listing di free pascal atau turbo passcal:
program hitung_bangun_datar;
uses crt;
var
s,a,t,ab,bc,ac:integer;
Kp,Lp,Ks,Ls:real;