حسام معادلة من الدرجة الثانية

alla23 الثلاثاء أكتوبر 25, 2016 9:53 am

حسام معادلة من الدرجة الثانية

ضع على الفورم 6
TLabel
ضع على الفورم 3
TButton
ضع على الفورم 6
TEdit

الكود:: procedure TForm1.Button1Click(Sender: TObject); var a,b,c : real; Delta,x1,x2 : real; begin a := StrToCurr(Edit1.Text); b := StrToCurr(Edit2.Text); c := StrToCurr(Edit3.Text); Delta := b*b - 4*a*c; if Delta < 0 then Edit4.Text := 'ليس لها حل' else begin x1 := (-b-sqrt(Delta))/(2*a); x2 := (-b+sqrt(Delta))/(2*a); Edit4.Text := CurrToStr(Delta); Edit5.Text := CurrToStr(x1); Edit6.Text := CurrToStr(x2); end; end;