Kumpulan Program Hitung Volume Bangun Ruang - Pascal bag.1

Kumpulan Program Hitung Volume Bangun Ruang, ini adalah program buatan saya yang pertama sekaligus sebagai tugas UAS Semester, he...3x sekali mendayung 2, 3 pulau terlampaui.

Review :
Dalam program sederhana ini kita dapat menghitung volume bangun ruang sederhana antara lain; kubus, balok, prisma, limas, tabung, dan kerucut. tinggal pilih mana yang mau kita pakai, praktis bukan.

Program :

Program Hitung;
Uses WinCrt;
Var
Bangun, S, P, L, T, LA, R : Integer;
V1, V2, V3, V4, V5, V6 : Real;
U : String;

Begin
writeln(' Kumpulan Program Hitung Volume Bangun Ruang');
writeln(' by: M_4r_Dh4 alias ArDha$');
writeln(' m_ardha@yahoo.co.id');
writeln('---------------------------------------------------------------------');
Repeat
Writeln;
Writeln;
Writeln('Kubus = 1; Balok = 2; Prisma = 3; Tabung = 4; Kerucut = 5; Limas = 6');
write('Bangun yang mana yang ingin anda hitung? ');
Readln (bangun);
Case Bangun of
1: begin Write('sisi = '); readln (S);
V1:=S*S*S;
Writeln('Volume = ' ,V1:10:2);
end;
2:begin Write ('Panjang = '); readln (P);
Write ('Lebar = '); readln (L);
Write ('Tinggi = '); readln (T);
V2:=P*L*T;
Writeln ('Volume = ' ,V2:10:2);
end;
3:begin Write ('Luas Alas = '); readln (LA);
Write ('Tinggi = '); readln (T);
V3:=LA*T;
Writeln ('Volume = ' ,V3:10:2);
end;
4:begin Write ('Jari-jari = '); readln (R);
Write ('Tinggi = '); readln (T);
V4:=pi*R*R*T;
Writeln ('Volume = ' ,V2:10:2);
end;
5:begin Write ('Jari-jari = '); readln (R);
Write ('Tinggi = '); readln (T);
V5:=pi*R*R*T*(1/3);
Writeln ('Volume = ' ,V5:10:2);
end;
6:begin Write ('Luas Alas = '); readln (LA);
Write ('Tinggi = '); readln (T);
V6:=(1/3)*LA*T;
Writeln ('Volume = ' ,V6:10:2);
end;
Else Writeln; Writeln ('Coba kembali, pastikan kode bangun yang anda masukkan benar');
end;

Writeln('---------------------------------------------------------------------');
Write('Mau Ulang Lagi? [Y/T]: '); Readln(U);
Until U<>'Y';
Writeln;
Writeln('=======================================');
Writeln('MaTur TenkYu saMpun nGagem Program Kula');
Writeln('(c) 2010 MoCh Arif Dharmawan');
Writeln('=======================================');
end.

Screen Shoot Program :

Jika terjadi kesalahan saya mohon maaf sebesar-besarnya, dan tolong beritahukan jika terjadi kesalahan sehingga dapat saya benarkan. Semoga Program sederhana ini berguna bagi kita semua.