الانتقال الى المشاركة

Primary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Secondary: Sky Slate Blackcurrant Watermelon Strawberry Orange Banana Apple Emerald Chocolate Marble
Pattern: Blank Waves Squares Notes Sharp Wood Rockface Leather Honey Vertical Triangles
مرحبا بك في منتديات ابن خلدون التعليمية

أهلا وسهلا بك زائرنا الكريم، و يشرفنا أن تقوم بالتسجيل إذا رغبت بالمشاركة في المنتدى، أما إذا رغبت بقراءة المواضيع والإطلاع فتفضل بزيارة القسم الذي ترغب أدناه.


تسجيل الدخول التسجيل الآن



صورة

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


  • لا تستطيع كتابة موضوع جديد
  • من فضلك قم بتسجيل دخولك لتتمكن من الرد
لا توجد ردود على هذا الموضوع

#1
غير متصل   sabre

sabre

    Advanced Member

  • الأعضاء
  • Pip Pip Pip
  • 50 المشاركات
  • البلد: Country Flag

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

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






عدد المتواجدون الآن فى الموضوع : 0

0 الأعضاء, 0 الزوار, 0 الأعضاء المجهولين