Was ist daran falsch? kleiner Quelltext zu Wundersame Zahlen, Zahl gerade oder ungera

[ZyzzFuuark]

Wenn n gerade ist soll n/2 gerechnet werden, wenn n ungerade n*3+1, und das solange bis n=1 ist. Auch genannt Wundersame Zahlen

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
  VAR n:integer;
begin
  n:= strtofloat (e_zahl.Text);
  e_text.text:= floattostr(n);
  repeat
    if Odd(n) then  n/2 else   n*3+1;
  until n=1;

end;

end.

[cookie22]

Na du sollest n schon einen Wert zuweisen. ;)

[Helmi]

Hallo,

du musst n auch den neuen Wert zuweisen:

Delphi-Quellcode:

procedure TForm1.BitBtn1Click(Sender: TObject);
var 
  n: integer;

begin
  n:= strtofloat (e_zahl.Text);
  e_text.text:= floattostr(n); //sinnfrei, beinhaltet ja das gleiche wie Zeile drüber

  repeat
    If Odd(n) then 
      n := n/2 
    else 
      n := n*3+1;
  until n=1;
end;

[Bummi]

neben der fehlenden Zuweisung ist auch das Prüfen auf ODD (ungerade) vertauscht

Delphi-Quellcode:

if ODD(n) then n := (n*3)+1 else n := n div 2 ;

[Dejan Vu]

Kann mir mal einer erklären, wieso man einem

Delphi-Quellcode:

integer

Wert einen mit

Delphi-Quellcode:

StrToFloat

konvertierten String zuweist? Wäre

Delphi-Quellcode:

StrToInt

nicht marginal sinnvoller? :stupid:

Wussten Sie schon? Alle Zahlen sind 'wundersam'. Wird jedenfalls behauptet und keiner kann bisher das Gegenteil beweisen.

[Sir Rufo]

Möchtest du noch mehr Threads zu diesem Thema aufmachen?
http://www.delphipraxis.net/180913-p...ammierung.html

[ZyzzFuuark]

Ich kann halt nichts was programmieren angeht, aber nach disem programm habe ich es geschafft:P

[Sir Rufo]

Zitat:

Zitat von ZyzzFuuark (Beitrag 1263994)

Ich kann halt nichts was programmieren angeht, aber nach disem programm habe ich es geschafft:P

Den eigenen Thread wiederfinden zählt für dich auch als Programmieren? :mrgreen:

[ZyzzFuuark]

So war es eher nicht gemeint xD

[himitsu]

Darf ich auch mitreden?

Zitat:

Was ist daran falsch?

• Die [DELPHI][/DELPHI]-Tags kennst du?
• Keine Fehlerbeschreibung. (was passiert eigentlich, was geht nicht ... z.B. Fehlermeldungen)
• Das Compiler-Log sollte man schon lesen können, denn da wird gleich der erste Fehler genannt. (das erwähnte Float-in-Integer)
• ...