Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haui95,
17. Jun 2012
Hier einmal ein Beispielcode, wie man es machen kann, es geht wahrscheinlich auch noch etwas eleganter, z.B. mit der P-Q-Formel, ähnelt aber der a-b-c-Formel, naja :D
Ich hoffe es hilft dir weiter ! Wie NamenLozer schon gesagt hat, hättest du deinen Quelltext ein bisschen besser formatieren können, da ich zum Beispiel kaum etwas unter deinen Variablennamen verstehen konnte, nur so als kleiner...
Forum: Algorithmen, Datenstrukturen und Klassendesign
Delphi
by haui95,
17. Jun 2012
Hey,
begin
readln(a,b,c);
if a=0 then error()
else begin
Delta := sqrt((b*b)-4*a*c); <-- Wurzel der Diskriminante ziehen ?!
if delta<0 then howmany(0);
if delta=0 then begin
howmany(1);