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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل

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

مُساهمة  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;

alla23
عضو ذهبي
عضو ذهبي

عدد المساهمات : 66
نقاط : 182
تاريخ التسجيل : 26/05/2013
الموقع : http://delph.forumalgerie.net

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة


صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى