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

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

[Dejan Vu]

Kann mir mal einer erklären, wieso man einem integer Wert einen mit StrToFloat konvertierten String zuweist? Wäre StrToInt nicht marginal sinnvoller?

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

[Sir Rufo]

Zitat von ZyzzFuuark:

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

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

[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)
• ...