repeat-until und for schleife Frage

[PomBär]

hallo
ich bin heute zum ersten mal hier und hab mal ne frage. ich hab die aufgabe in einer repeat-until bzw. in einer for schleife folgendes zu realisieren:
ich habe eine zahl von 1 bis 5,
1Versuch: wenn ich zb. 4 als zahl eingebe soll das mir das programm in einem label das ergebnis von 4+3+2+1 angeben.
2Versuch: wenn ich zb. 3 als zahl eingebe soll mir das programm in einem label das ergebnis von 3*2*1 angeben.
ich hoffe einer von euch kann mir helfen.
pombär :wall:

[Dagon]

Ich war mal so nett und habe dir das Problem Nr.1 gelöst:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var Zahl, i: Integer;
    s: String;
begin
  Zahl := StrToInt(Edit1.Text);
  s := IntToStr(Zahl);
  for i := Zahl-1 downto 1 do
    s := s + ' + ' + IntToStr(i);
  Label1.Caption := s;
end;

[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

[Dagon]

@ Peter Lustig: Ja, man hätte die Summe und das Produkt bilden sollen und nicht die Rechnung anzeigen lassen. :oops:

[czapie]

@PomBär,

ging deine Frage nur dahin, dass dir jemand das Problem löst, oder steckte da (aufgrund des Titels)
noch mehr Frage hinter? :?:
Czapie.

[PomBär]

hey leute das is echt voll nett von euch;
das ich so schnell ne antwort bekomme hätte ich nicht gedacht.
wisst ihr auch wie ich das ganze in einer repeat-until schleife realisiere? :dp:
PomBär

[Dagon]

Da ich zuvor nicht die Frage nicht richtig beantwortet habe, will ich's jetzt richtig machen:

Delphi-Quellcode:

function addiere(a : Integer) : String; 
VAR i, temp : INTEGER;
begin
  temp := 1;
  i := 1;
  repeat
    inc(i);   
    temp := i + Temp;
  until i=a;
  result := IntToStr(temp);
end;

So siehts für die Addition aus. Es sollte leicht übertragbar auf die Multiplikation sein!

[Christian S.]

Du musst den den Startwert des Zählers (also i) selbst setzen und den Wert des Zählers in jedem Schleifendurchlauf selbst ändern. Und als "until"-Bedingung musst Du den Zähler mit der Obergrenze abgleichen.

//edit: @the_master: Bist Du Dir sicher, dass das inc(temp) in der Schleife richtig ist?

[Dagon]

@Peter Lustig: Ohne funktionierts zumindest nicht.

[jbg]

Ist die Hausaufgabe nun gelöst?