beispiel 3

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

Programmierbeispiel: Schleifen


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


end;

s:=inttostr(showmessage('Summe:'));