منتدى متعدد المهام

منتدى متعدد المهام في عدة مجالات
 
الرئيسية  البوابةالبوابة  التسجيلالتسجيل  دخولدخول  

شاطر | 
 

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

استعرض الموضوع السابق استعرض الموضوع التالي اذهب الى الأسفل 
كاتب الموضوعرسالة
ben taib allaa



عدد المساهمات : 64
نقاط : 182
تاريخ التسجيل : 28/04/2015
الموقع : http://delph.forumalgerie.net

مُساهمةموضوع: حسام معادلة من الدرجة الثانية   الخميس أكتوبر 20, 2016 7:19 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;
الرجوع الى أعلى الصفحة اذهب الى الأسفل
http://delph.forumalgerie.net
sabire



عدد المساهمات : 75
نقاط : 77
تاريخ التسجيل : 30/09/2016

مُساهمةموضوع: رد: حسام معادلة من الدرجة الثانية   الإثنين أكتوبر 24, 2016 4:52 pm

بارك الله فيكم
الرجوع الى أعلى الصفحة اذهب الى الأسفل
 
حسام معادلة من الدرجة الثانية
استعرض الموضوع السابق استعرض الموضوع التالي الرجوع الى أعلى الصفحة 
صفحة 1 من اصل 1

صلاحيات هذا المنتدى:لاتستطيع الرد على المواضيع في هذا المنتدى
منتدى متعدد المهام :: منتديات عالم الحواسيب الشخصية :: تعلم البرمجة باللغة الدلفي-
انتقل الى: