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:
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...