Program Menghitung Jumlah Pantulan dan Panjang Lintasan Bola dengan WHILE ... DO ...

Assalamualaikum wr wb, sahabat-sahabatku ada contoh program lagi nih...semoga bermanfaat ya :)

program bola;
uses crt;
var t,pl:real;
    jp:integer;

begin
write('masukkan tinggi awal bola (cm) ');read(t);
pl:=0;
pl:=pl+t;
jp:=0;

while t>0.1 do
      begin
      t:=t-(12/100*t);
      pl:=pl+(2*t);
      jp:=jp+1;
      writeln('tinggi bola setelah memantul= ',t:4:2,' cm');
      end;

writeln('jumlah pantulan bola= ',jp,' kali');
writeln('panjang lintasan bola= ',pl:4:2,' cm');
end.

Hasil Running