Problem bei kleinem Prog mit Schleife

sPeeD2k5 · Beiträge: 72

Hi Leutz!

Also das Programm soll einfach die Dauer berechnen wie lang man sparen muss und ich find den Fehler einfach nicht, da er mir keine Dauer ausspuckt

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TForm1.Button1Click(Sender: TObject);
var TG,Preis,Dauer,Guthaben : Integer;
begin
TG:=StrtoInt(EdTaschengeld.Text);
Preis:=StrtoInt(EdPreis.text);
Dauer:=0;
Guthaben:=0;
repeat
Guthaben:=Guthaben+TG;
Dauer:=(Dauer+1);
until (Preis<=Guthaben);
EdDauer.Text:=InttoStr(Dauer);
end;

Moderiert von Christian S.: Delphi-Tags hinzugefügt

Christian S. · Beiträge: 20451 Erhaltene Danke: 2264 Win 10 C# (VS 2019)

Hi!

Sei so gut und wähle doch bitte einen anderen Titel. Der jetzige sagt nicht allzu viel drüber aus, was das Thema dieses Threads ist.

Danke! :-)

Grüße
Christian

_________________
Zwei Worte werden Dir im Leben viele Türen öffnen - "ziehen" und "drücken".

sPeeD2k5 · Beiträge: 72

sry... aber anstatt über den titel zu meckern wärs ne antwort sinnvoller

Blackbird · Beiträge: 54

@speed2k5:

1. Wenn du von einem Mitglied des Forums darauf hingewiesen wirst, den Titel zu ändern weil er unpassend ist, dann hat das nix mit Meckern zu tun. Es ist von Nachteil, wenn man einen Titel wählt, der das Problem nur unzureichend beschreibt!

2. Zu deiner Frage: Du hast das Problem ja schon erkannt. Es liegt in der Schleife, die erst dann beendet wird, wenn Preis <= Guthaben. Das wird bei dir aber nie passieren, weil innerhalb der Schleife weder "Preis" noch "Guthaben" verändert wird.

sPeeD2k5 · Beiträge: 72

aber Guthaben+TG verändert doch eigentlich den eigentlichen wert von Guthaben um TG...
wie kann ich es dann lösen?

//und sry nochma wegen dem ton...

mkinzler · Verfasst: Do 26.01.06 00:06

Versuch mal die Abbruchbedingung umzudrehen

markieren

Delphi-Quelltext

1:
2:
3:

...
until (Guthaben >= Preis);
...

_________________
Markus Kinzler.

sPeeD2k5 · Beiträge: 72

funktioniert leider auch nicht :/ versteh auch nicht warum sich guthaben nicht ändern soll Oo

mkinzler · Verfasst: Do 26.01.06 00:26

Eigentlich sieht alles ok aus.
Hast du dein Programm mal im Debugger angeschaut, um zu shen wie die Werte sich verändern.
GGf Untilschleife durch whileschleife ersetzen.

_________________
Markus Kinzler.

WolfB · Beiträge: 39 WinXP Professional Delphi 7

hm. ich habe da auch keinen fehler gefunden und die prozedur einfach mal selbst getestet. bei mir klappt alles wie es sollte. hast du vielleicht irgendwas mit den eingaben falsch? oder mit der ausgabe?

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme