Program while_do [TURBO PASCAL]

program MencariVolumeBalok;
uses wincrt;
var
p,l,t,v:longint;
ulang:char;
begin
ulang:=’y';
while ulang=’y’ do
begin
clrscr;
writeln(‘masukkan panjang’);readln(p);
writeln(‘masukkan lebar’);readln(l);
writeln(‘masukkan tinggi’);readln(t);
v:=p*l*t;
writeln(‘hasilnya’);write(v);
writeln(‘apakah anda ingin menghitung lagi?(y/n)’);
readln(ulang);
if ulang=’n'then
writeln(‘terima kasih’);
end;
end.

Read More

09.12 | 0 komentar