Program Penghitungan Volume Kolam dengan Ember menggunakan Delphi 7

Pseudo Code:


var i,e,k,m:integer;
begin
  k:=StrToInt(edit1.Text);
  e:=StrToInt(edit2.Text);
  i:=0;
  m:=0;
  while i < k do
    begin
    i:=e+i;
    m:=m+1;
    end;
  edit3.Text:=IntToStr(m);
end;

Semoga Bermanfaat :)