Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



function summe :integer
var a, e, s :integer;
begin
a:=strtoint(inputdialog('Anfangszahl:'));
b:=strtoint(inputdialog('Endzahl:'));

while l<20 do
      begin
      l:=l+pi*d;
      d:=d+0.002;
      end;
d:= d *1000;
result := trunc(d);
result := result / 1000.0;

end;

 ratzahl:=strtoint(inputdialog('Deine Zahl:'));