repeat-until und for schleife Frage

[Christian S.]

Hallo!

Ich habe die Aufgabenstellung etwas anders verstanden als the_master.

Delphi-Quellcode:

function addiere(a : Integer) : String;
VAR i, temp : INTEGER;
begin
  temp := 1;
  for i := 2 TO a DO
  temp := temp + i;
  result := IntToStr(temp);
end;


function multipliziere(a : Integer) : String;
VAR i, temp : INTEGER;
begin
  temp := 1;
  for i := 2 TO a DO
  temp := temp * i;
  result := IntToStr(temp);
end;

procedure TForm1.Button1Click(Sender: TObject);
var Zahl : INTEGER;
begin
  Zahl := StrToInt(Edit1.Text);
  Label1.Caption := addiere(zahl);
  Label2.Caption := multipliziere(zahl);
end;

So, Code nicht getestet und ich bin mir auch nicht sicher, ob es das gesuchte ist.

MfG
Peter