pq-Formel Berechnung Letzte fehlende eingaben...

**Eichel**

hey leute

ich muss für die schule ein pq-formel programm entwickeln...
ich habe schon ein grundgerüst in dem ich alle vorgaben verarbeitet habe, aber ich weiß nich was noch fehlt um es zum laufen bzw. rechnen zu bekoomen

hier das gerüst:

zusammenfalten · markieren

Delphi-Quellcode:

			VAR p, q, d, x1, x2: REAL; p_str, q_str: STRING;

begin

p_str := ed_p.Text;

q_str := ed_q.Text;

p := strtofloat (p_str);

q := strtofloat (q_str);

d := sqr(p/2)-q;

IF d<0 THEN BEGIN

ed_komm.Text := 'keine Lösung';

Label5.Visible := false;

Label6.Visible := false;

ed_x1.Visible := false;

ed_x2.Visible := false;

END

ELSE IF d=0 THEN BEGIN

ed_komm.Text := 'eine Lösung';

x1 := -(p/2);

ed_x1.Text := floattostr(x1);

Label6.Visible := false;

ed_x2.Text := false;

END

ELSE IF d>0 THEN BEGIN

ed_komm.Text := 'zwei Lösungen';

x1 := -(p/2)+sqrt(sqr(p/2))-q;

x2 := -(p/2)-sqrt(sqr(p/2))-q;

ed_x1.Text := floattostr(x1);

ed_x2.Text := floattostr(x2);

END

So das wars

ich hoffe ihr könnt mir helfen und das gerüst ergänzen

danke schonmal im vorraus...

pq-Formel Berechnung Letzte fehlende eingaben...

pq-Formel Berechnung Letzte fehlende eingaben...

Forumregeln