Program Menghitung Volume Lingkaran (Turbo Pascal)

• Sintak program :

program musno2;

uses wincrt;

var

jari : integer;

luas : real;

begin

write ('Masukan jari-jari lingkaran : ');readln(jari);

luas := 3.14 * jari *jari;

write ('Jadi Luasnya = ', luas:1:2, ' Satuan Luas');

end.

• Gambar Program :