Użyj tego kodu:
|
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
procedure TForm1.Button1Click(Sender: TObject); var a,b,c,X1,X2,De:single; begin a:=StrToFloat(Edit1.Text); b:=StrToFloat(Edit2.Text); c:=StrToFloat(Edit3.Text); if a<>0 then begin De:=b*b-4*a*c; if de>=0 then begin X1:=(-b-sqrt(de))/(2*a); X2:=(-b+sqrt(de))/(2*a); if de=0 then begin Edit4.Text:='Jeden podwójny pierwiastek: '+FormatFloat('0.00',X1); Edit5.Text:='Jeden podwójny pierwiastek: '+FormatFloat('0.00',X1); end else begin Edit4.Text:='Dwa pierwiastki (1): '+FormatFloat('0.00',X1); Edit5.Text:='Dwa pierwiastki (2): '+FormatFloat('0.00',X2); end; end else begin Edit4.Text:='Brak pierwiasktów rzeczywistych...'; Edit5.Text:='...ale są pierwiastki zespolone :> '; end; end; end; |
Autor: LukaStrz