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

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

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

 

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

اذهب الى الأسفل 
2 مشترك
كاتب الموضوعرسالة
طيباوي




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

حسام معادلة من الدرجة الثانية Empty
مُساهمةموضوع: حسام معادلة من الدرجة الثانية   حسام معادلة من الدرجة الثانية Icon_minitimeالخميس أكتوبر 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
samire




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

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

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

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