Programm Hilfe

[boxer123]

ich will raus bis er gezählt hat wann 6174 raus kommt

[DeddyH]

Und wenn nicht 6174 rauskommt?

[boxer123]

dann soll nicht 6174 rauskommen wie lange er daf+r gebraucht das soll da hin

[DeddyH]

[Bummi]

Wenn die Eingabe den Bedingungen entspricht kommt das schon raus
http://en.wikipedia.org/wiki/6174_(number)

[DeddyH]

Wenn ich 0 eingebe, kommt das garantiert nicht heraus. Und von den beschriebenen Bedingungen war nie die Rede.

[boxer123]

ja und wie soll ich das anders formulieren, dass er nur die Anzahl ausgibt

[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]