Algoritma dari volume bangun ruang

Tugas RPL (Rekayasa Perangkat Lunak)

1. Volume Balok
program volume_balok;
uses wincrt;
var
p,l,t:integer;
volume:integer;
begin
write('panjang=');
readln(p);
write('lebar=');
readln(l);
write('tinggi');
readln(t);
volume:=p*l*t;
writeln('volume=',volume);
end.

2. Volume Kubus
program volume_kubus;
uses wincrt;
var
sisi:integer;
volume:integer;
begin
write('masukkan sisi=');
readln(sisi);
volume:=sisi*sisi*sisi;
writeln('volume=',volume);
end.

3. Volume Tabung
program volume_tabung;
uses wincrt;
var
r,t :integer;
volume:real;
begin
write('masukkan nilai jari_jari=');
readln(r);
write('masukkan nilai tinggi=');
readln(t);
volume:=22/7*r*r*t;
writeln('volume=',volume:0:0);
end.

4. Volume Bola
program volume_bola;
uses wincrt;
var
jari_jari:integer;
volume :real;
begin
write('masukkan nilai jari jari=');
readln(jari_jari);
volume:=4/3*22/7*jari_jari*jari_jari;
writeln('volume=',volume:0:1);
end.

5. Volume Kerucut
program volume_kerucut;
uses wincrt;
var
r, t : integer;
volume : real;
begin
write('masukkan nilai jari jari=');
readln(r);
write('masukkan nilai tinggi=');
readln(t);
volume:=1/3*22/7*r*r*t;
writeln('volume=',volume:0:2);
end.