Program Pascal Mencari Volume Tabung

Program Pascal Mencari Volume Tabung

Assalamualaikum wr.wb

selamat pagi,siang,sore,malam semuanya :D Kali ini saya akan memberikan contoh program "Mencari Volume Tabung" yang mungkin bisa menambah pengetahuan teman" sekalian. Berikut adalah bentuk programnya :

1. Programnya

program VolumeTabung;
uses crt;
Var
   Radius :Integer;
   Tinggi :Integer;
   Volume :Real;
Begin
     clrscr;
     Writeln('program mencari volume tabung');
     Write('Input nilai Radius =');readln (Radius);
     Write('Input nilai Tinggi =');readln (Tinggi);
     volume := 3.14*Radius*Radius*Tinggi;
     Writeln('Nilai Volume =',Volume:2:0);
     readln;
end.

2. Tampilan Program dalam Pascal

3. Hasil Program