Pmg bautzen/beispiel 3

Wiki-Quelltext dieser Seite.

'''Programmierbeispiel: Schleifen'''



<code id:= " ">
function summe(a,e:integer):integer;
begin
a:=strtoint(inputdialog('Anfangszahl:'));
e:=strtoint(inputdialog('Endzahl:'));
s:= 0;
for i:= a to e do s:=s+1;
s:=inttostr(showmessage('Summe:'));
end;
</code>

<code id="4c8f0ebe804ad">
function addition(a,b:integer):integer;
begin
result:=a+b;
end;
</code>