Program Menghitung Volume Balok,Panjang Balok atau Lebar Balok

uses wincrt;
var
hitungan:Integer;
p,l,t,x,volume:real;

Begin
writeln(' Menghitung Volume Balok,Panjang Balok atau Lebar Balok ');
writeln(' by: Liya Puspita Sari');
writeln('---------------------------------------------------------------------');
Writeln;
Writeln;
Writeln('Volume Balok = 1; Panjang Balok = 2; Lebar Balok = 3');
write('Apa yang anda ingin hitung? ');
Readln (hitungan);
Case hitungan of
1: begin
clrscr;
gotoxy(20,1);writeln('mengitung volume balok');
writeln;
write('panjang: ');readln(p);
write('lebar : ');readln(l);
write('tinggi : ');readln(t);
volume:=p*l*t;
writeln;
write('jadi volume balok: ',volume:3:2);
end;
2:begin
clrscr;
gotoxy(20,1);writeln('mengitung panjang balok');
gotoxy(10,2);writeln('bila diketahui volume balok');
writeln;
write('volume : ');readln(volume);
write('lebar : ');readln(l);
write('tinggi : ');readln(t);

x:=volume/l;
p:=x/t;
writeln;
write('jadi panjang balok: ',p:3:2);
end;
3:begin
clrscr;
gotoxy(20,1);writeln('mengitung lebar balok');
gotoxy(10,2);writeln('bila diketahui volume balok');
writeln;
write('volume : ');readln(volume);
write('panjang : ');readln(p);
write('tinggi : ');readln(t);

x:=volume/p;
l:=x/t;
writeln;
write('jadi lebar balok: ',l:3:2);
end;
end;
end.

Tentang Rasa

Apa yang ku inginkan saat ini tidak menjadi bagian dalam kehidupanku......

kan selalu memberi walau tak ada kembali.
Meski tak terucap satu kata janji namun telah tercipta di hati ini kepadamu.
Dapatkah aku memintamu untuk selalu menemaniku dan kan menjadi sahabatku selalu????????