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

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

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

مُساهمة  alla23 في الخميس يونيو 20, 2013 8:38 pm

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

ضع على الفورم 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;



زوروني على المنتدى دلفي تعليم
delph.forumalgerie.net

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

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

http://delph.forumalgerie.net

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

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


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