Programm Hilfe

[DeddyH]

Was hat denn jetzt die Ausgabe mit der Abbruchbedingung zu tun?

[boxer123]

Delphi-Quellcode:

repeat
zahl3:=zahl3 + 1;
arbeite;
until differenz=6174;

So habe ich mir es vorgestellt, aber es geht nicht

[DeddyH]

Dann machst Du wohl was falsch.

[edit] Ein Beispiel für die generelle Logik:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  Zahl, Zaehler: integer;
begin
  Zahl := 10000;
  Zaehler := 0;
  repeat
    Zahl := Zahl div 10;
    Zaehler := Zaehler + 1;
  until Zahl < 10;
  ShowMessage('Duchläufe: ' + IntToStr(Zaehler));
end;

[/edit]

[boxer123]

die frage ist was ich falsch mache

[DeddyH]

Woher soll ich das wissen? Aus den paar (immer noch unformatierten!) Zeilen Code kann ich das beim besten Willen nicht erkennen.

[boxer123]

ja soll ich ganzen code reinlegen ?

[DeddyH]

Der "arbeite"-Teil genügt völlig, aber dann mit nachvollziehbaren Einrückungen, sonst lese ich ihn nicht.