Ha! Da hast du wohl aber noch nie mathematische Literatur gelesen.
Druckbare Version
Hab ich nicht und will ich nicht :p
er meint wohl das man ohne rechenweg keine punkte bekommt!
So Source Code ist jetzt auch dabei!
Für den Anfang ist das doch nicht schlecht :)
Aber es wäre vielleicht elleganter, wenn du MessageDlg anstatt ShowMessage für die Fehlermeldung nimmst:
Bsp.:
Code:MessageDlg('Fehler: Negativer Radikant', mtError, [mbOk], 0);
Wie schaut denn die Fehlermeldung aus?
Hast du daran gedacht, die Buttons als Array, also in [], zu übergeben?
Das passiert oft, wenn man noch neu in Delphi ist oder mal kurz nicht aufpasst :P
Meine Verbesserungsvorschläge wären:
Lokale Variablen benutzen. Globale Variablen mit 1-2 Buchstaben sind tödlich. Das fällt in so einem kleinen Programm zwar nicht auf, sollte man sich aber trotzdem nicht angewöhnen.
Lokale Variablen mit 1-2 Buchstaben gehen schon eher in Ordnung.
Exceptions abfangen. Zum Beispiel bei StrToFloat (ungültige Gleitkommaoperation) oder die Division durch Null.
Man könnte daraus auch ganz gut eine Funktion/Klasse schreiben.
Mit Exceptions und Globalen Variablen kenn ich mich noch nicht aus :o ^^
Edit: Oh man bin ich blöd, jetzt weiß ich was du mit Lokalen Variablen meinst, die werden erst in die Prozedur geschrieben wo sie verwendet werden^^
So, und jetzt zeichnen lassen =P