beispiel 3

Aus ProgrammingWiki

Archivierte Version vom 2011-01-19T14:09:40+00:00. Aktuelle Version

Programmierbeispiel: Schleifen

procedure summe
var a,e,s,i : integer;
begin
a:=1; e:=10;
s:=0;
for i:= a to e do s:=s+1;
result:=s;
end;