beispiel 3

Aus ProgrammingWiki
< Pmg bautzen
Archivierte Version vom 2011-01-19T13:46:45+00:00. Aktuelle Version

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:'));