beispiel 3

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T13:59:37+00:00. Aktuelle Version

Programmierbeispiel: Schleifen

function summe :integer
var a, e, s, i:integer;
begin
a:=strtoint(inputdialog('Anfangszahl:'));
b:=strtoint(inputdialog('Endzahl:'));
s:= 0;
for i:= a to e do s:=s+1;
s:=inttostr(showmessage('Summe:'));
end;

beispiel 3

Suche