Algoritma
Algoritma Hitung_Volume_Tabung
{Program penghitung
Volume tabung dengan memasukkan ukuran
jari-jari alas dan
tinggi tabung, lalu mencetak hasil Volume
tabung ke piranti
keluaran}
DEKLARASI
{Memulai Deklarasi
program yang akan dibuat}
r,t : integer
v : real
y : char
pi = 3.14
DESKRIPSI
{Memulai Deskripsi
program yang akan dibuat}
repeat
clrscr
write ('Penghitung Volume Tabung')
write (' Versi Dirga Roslukito ')
write ('------------------------')
write
write
write ('Tuliskan jari-jari tabung = ')
read (r)
write ('Tuliskan tinggi tabung = ')
read (t)
v ← pi*r*r*t
write
write ('-----------------------')
write
write ('Volumenya adalah ',v:0:2)
write
write ('Mulai penghitungan lagi? (Y/N)
')
read (y)
until upcase(y) <> 'Y'
|
program Hitung_Volume_Tabung;
{Program penghitung Volume
tabung dengan memasukkan ukuran
jari-jari alas dan tinggi
tabung, lalu mencetak hasil Volume
tabung ke piranti keluaran}
uses wincrt;
{Memulai Deklarasi program
yang akan dibuat}
var r,t:integer; v:real; y:char;
const pi=3.14;
begin
{Memulai Deskripsi program
yang akan dibuat}
repeat
clrscr;
writeln ('Penghitung Volume
Tabung');
writeln (' Versi Dirga Roslukito ');
writeln
('------------------------');
writeln;
writeln;
write ('Tuliskan jari-jari
tabung = ');
readln (r);
write ('Tuliskan tinggi
tabung = ');
readln (t);
v:=pi*r*r*t;
writeln;
writeln
('-----------------------');
writeln;
writeln ('Volumenya adalah
',v:0:2);
writeln;
write ('Mulai penghitungan
lagi? (Y/N) ');
readln (y);
until upcase(y) <> 'Y';
end.
|
