CONTOH PROGRAM PASCAL SEGITIGA DAN KERUCUT

Assalamu'alaikum :)
Permisi admin mau bagiin contoh dari program pascal nih guys, admin buat ini saat kuliah Pemrograman komputer 1 yang isinya buat - buat program menggunakan pascal. postingan kali ini yaitu contoh program pascal segitiga dan kerucut. silahkan copy kodenya guys. Semoga bermanfaat.

 
program segitiga_kerucut;

uses crt;

var

 a,t,r,L,V:real;

 procedure Luas_segitiga;

 begin

 L:= 1/2 *a*t;

 writeln ('Luas segitiga = ', L:0:2);

 end;

 procedure Volume_kerucut;

 begin

 V:= 1/3 *pi*r*r*t;

 writeln ('Volume kerucut = ', V:0:2);

 end;

begin

clrscr;

write ('Masukan alas= ');readln(a);

write ('Masukan tinggi= ');readln(t);

write ('Masukan jari-jari= ');readln(r);

Luas_segitiga;

Volume_kerucut;

readln;

end.