while..do(Turbo Pascal_contoh program)

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.