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