Summen zwischen 2 Zahlen mit Repeat-Until

[Matz4000]

Hey Leute,
kleine Frage:
Ich soll für die Schule n Programm programmieren, was die Summe zwischen 2 Zahlen ausgibt. z.B. a=5 b=10 => s:=5+6+...+10=45, und dies mit einer Repeat-Until-Schleife.

Ich zerbreche mir jz seit na viertel-stunde den Kopf, was ich falsch mache :(

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var a,b:integer;
    s:integer;
    c:integer;
begin
a:=strtoint(edit1.text);
b:=strtoint(edit1.text);
c:=a;
s:=0;
 repeat
   s:=s+c;
   c:=c+1;
 until c=b;
label5.caption:=inttostr(s);
end;

Als erstes sage ich das c dem wert der ersten eingegebenen Zahl entspricht. Die Summe beginnt logischer Weise mit 0.
In der Schleife wird dann die summe (am Anfang 0) mit c addiert (am Anfang 5).
c (5) wird danach zu 6 . Beim nächsten durchgang heißt es dann:
5+6 und c wird zu 7..u.s.w.
bis letztendlich c=10 is.

Wenn ich allerdings das Prog starte, und die 2 Zahlen eingebe, hängt sich das Prog auf. Wo liegt der Fehler?

Danke im Vorraus,
Gruß Michael

[DeddyH]

Zitat:

Delphi-Quellcode:

a:=strtoint(edit1.text);
b:=strtoint(edit1.text);

Sicher, dass das so stimmt?

[chaosben]

Und zusätzlich zu dem Zuweisungsfehler von DeddyH (also nicht er hat den Fehler gemacht ... sondern gefunden ;)) ist noch ein Fehler in der Abbruchbedingung.
Deine Schleife hört einen Schritt zu zeitig auf.

Delphi-Quellcode:

until c>b

ist besser. :)

[ho.sch]

Hi Michael,

ich gehe mal davon aus, dass Du zwei Edit-Boxen hast für die beiden Werte. Dann solltest Du b auf den Wert der zweiten Box setzen, dann sollte es erstmal funzen. Jetzt wird c nämlich niemals gleich b, da nach dem ersten Durchlauf Deiner Schleife c schon größer als b ist.
Danach wirst Du feststellen, dass Deine Summe nicht stimmt: die letzte Zahl wird nämlich nicht addiert, aber die Lösung dafür findest Du sicher selbst ...

Grüße,
Holger

[Matz4000]

Ogott danke leute :D
Son blöder Zuweisungsfehler...
Ja die sache mit break kommt erst in da nächste Stunde dran, werds aber schon dabei machen ;)

[sx2008]

Du bräuchtest übrigens eine While...Do - Schleife anstatt Repeat...Until.
Wenn nämlich a = 10 und b = 9 wäre, dann will man den Schleifenkörper eigentlich gar nicht betreten.
Und die am Besten geeignete Schleife wäre eine For...to...Do-Schleife.
Naja, vielleicht erklärt das euer Lehrer die nächste Stunde oder er weiss vielleicht selber nicht, welche Schleifenart für bestimmte Aufgaben am Besten ist.

[Deep-Sea]

Ich weiß natürlich, dass die das in der Schule unbedingt mit Schleifen machen sollen. Aber allgemein geht es doch auch mit zwei gaußschen Summenformeln, oder? Und zwar in der Art:

Code:

Ergebnis := GaußscheSumme(b) - GaußscheSumme(a - 1);

:-D

[Bummi]

jepp, war auch meine erste Idee, aber wenn es der PC rechnen muss :mrgreen:

[Sherlock]

Zitat:

Zitat von Deep-Sea (Beitrag 1081766)

Ich weiß natürlich, dass die das in der Schule unbedingt mit Schleifen machen sollen. Aber allgemein geht es doch auch mit zwei gaußschen Summenformeln, oder? Und zwar in der Art:

Code:

Ergebnis := GaußscheSumme(b) - GaußscheSumme(a - 1);

:-D

Geil, in welcher Delphi-Unit steht denn diese [OH]GaußscheSumme[/OH] zur Verfügung?


:roll:
Sherlock

[Deep-Sea]

Zitat:

Zitat von Sherlock (Beitrag 1081774)

Geil, in welcher Delphi-Unit steht denn diese [OH]GaußscheSumme[/OH] zur Verfügung?

Delphi-Quellcode:

unit SherlocksSpezialUnit;

interface

function GaussscheSumme(N: Integer): Int64;

implementation

function GaussscheSumme(N: Integer): Int64;
begin
  Result := (N * (N + 1)) div 2;
end;

end.

Na da, in SherlocksSpezialUnit :P