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.
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
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);

[Bummi]

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

[Sherlock]

Zitat von 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);

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



Sherlock

[Deep-Sea]

Zitat von Sherlock:

Geil, in welcher Delphi-Unit steht denn diese GaußscheSumme 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