if then problem beim taschenrechner

[Apollonius]

Also entweder hat dieser Freund dich veräppelt, oder er hat keine Ahnung.

Delphi-Quellcode:

a:=StrToFloat(Edit1.Text);
b:=StrToFloat(Edit2.Text);
if b=0 then
  Showmessage('Durch 0 darf nicht geteilt werden!')
else
begin
  Edit3.Text:=Floattostr(a/b);
end;

Das sieht für mich irgendwie logischer aus. Denn in deinem Code wird eine nicht initialisierte Variable abgefragt, nachdem der Fehler schon passiert ist. Übrigens sollte man StrToFloat vermeiden, da bei ungültiger Eingabe ein Fehler geschmisen wird, besser wären StrToFloatDef und TryStrToFloat.

Zum anderen Problem ein kleiner Tipp: Die n-te Wurzel einer Zahl ist als a^(1/n) definiert.
[edit] Herzlich willkommen! [/edit]