Achja, die gute alte PQ-Formel, da hab ich mal vor Ewigkeiten ein Skript geschrieben, ich grabs mal aus...
edit:
dim $p,$q,$z,$y,$a,$b,$c
$p=inputbox("P:","P ist:")
$q=inputbox("Q:","Q ist:")
$z=$p/2
$z=$z*$z
$z=$z-$q
if $z<0 then
msgbox(0,"Lösung","Es gibt keine Lösung!" & @CRLF & "Schreiben Sie L={Ø}.")
Exit
endif
if $z=0 then
$z=-$p/2
msgbox(0,"Lösung",$z)
Exit
endif
$c=$z
$z=Sqrt($c)
$y=-$p/2
$a=$y+$z
$b=$y-$z
msgbox(0,"Lösung",$a & " und " & $b)