منتديات أهل الجزائر
هل تريد التفاعل مع هذه المساهمة؟ كل ما عليك هو إنشاء حساب جديد ببضع خطوات أو تسجيل الدخول للمتابعة.

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

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

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

مُساهمة  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
alla23
عضو ماسي
عضو ماسي

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

http://delph.forumalgerie.net

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

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

- مواضيع مماثلة

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