Zitat von
Nikolas:
Deine Schreibweise ist recht unverständlich, aber es sieht so aus, als hättest du es verstanden.
Falls es sich um eine Hausaufgabe handelt, solltest du bei der Abgabe natürlich erklären können, wie du auf die Formel gekommen bist.
Auf jeden Fall sieht diese Lösung doch deutlich eleganter aus, als deine Schleife, die einmal recht lange dauert und in der du bei den ganzen Operationen mit Rundungsfehlern rechnen musst.
Das war nur das umstellen der Formel, der Quelcode war dann dieser:
Delphi-Quellcode:
luft:=luft/1000;
h2:=ln(luft)/ln(1-p);
Ach kennt jemand zufällig noch nein Algorithmus zum Absichern? Sprich das wenn man in ein edit Feld z.b.: einen Buchstaben eingibt, eine Warnung ausgegeben wird? (um zu verhindern, dass das Programm abstürtzt)
Also mir ist dieser bekannt (
funktioniert aber nicht):
Delphi-Quellcode:
try
h:=strtoint(edit1.text);
except
MessageDlg ('Bitte nur Zahlen eingeben!', mtwarning,[mbOK],0);
edit1.setfocus;
exit;
end;
Gibts da noch ne andere Möglichkeit? Zum Beispiel mit "if Buchstabe do begin"?