CONTOH PROGRAM PASCAL LUAS LINGKARAN, VOLUME BOLA, VOLUME TABUNG

program lingk_bola_tabung;

uses crt;

var

 r, t, L,Vb,Vt:real;

 procedure Luas_lingkaran;

 begin

 L:= pi*r*r;

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

 end;

 procedure Volume_bola;

 begin

 Vb:= 4/3 *pi*r*r*r;

 writeln ('Volume Bola = ',Vb:0:2);

 end;

 procedure Volume_tabung;

 begin

 Vt:= pi*r*r*t;

 writeln ('Volume Tabung = ',Vt:0:2);

 end;

begin

clrscr;

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

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

Luas_lingkaran;

Volume_bola;

Volume_tabung;

readln;

end.