منتديات اميه ونسة التعليمية

مرحبا بك عزيزي الزائر. المرجوا منك أن تعرّف بنفسك و تدخل المنتدى معنا. إن لم يكن لديك حساب بعد, نتشرف بدعوتك لإنشائه

رياضيات . فيزياء .لغات .كل مايفيد الاستاذ و التلميذ وطالب العلم


    خوارزمية بلغة باسيك معادلة من الدرحة الثانية

    شاطر

    علي
    المشرف
    المشرف

    ذكر عدد الرسائل : 1733
    تاريخ التسجيل : 10/07/2008

    خوارزمية بلغة باسيك معادلة من الدرحة الثانية

    مُساهمة من طرف علي في 2013-02-14, 22:17

    Attribute VB_Name = "Module1"
    Public Type QuadraticSolution
    X1 As Single
    X2 As Single
    End Type

    Public Function QuadraticEquation(a As Single, b As Single, c As Single) _
    As QuadraticSolution

    Dim delta As Single, Result As QuadraticSolution
    delta = b ^ 2 - 4 * a * c
    If delta < 0 Then
    Err.Raise 1000, , "No real roots"
    ElseIf delta = 0 Then
    Result.X1 = -b / (2 * a)
    Result.X2 = Result.X1
    Else
    Result.X1 = (-b - Sqr(delta)) / (2 * a)
    Result.X2 = (-b + Sqr(delta)) / (2 * a)
    End If
    QuadraticEquation = Result

    End Function


    _________________

    Bou_m
    .
    .

    ذكر عدد الرسائل : 2368
    تاريخ التسجيل : 05/07/2008

    رد: خوارزمية بلغة باسيك معادلة من الدرحة الثانية

    مُساهمة من طرف Bou_m في 2013-02-21, 02:04

    #include #include #include int main(int argc, char **argv[]) { float a=0,b=0,c=0,delta=0; float x1=0,x2=0; char k; printf("\n WE ARE GOING To SOLVE THE EQUATION :\n"); printf("\n\t\tax^2+bx+c=0\n\n\t\t delta=b^2+4ac\n\n"); printf("\n\t\t x1=(-b-sqrt(delta))/(2*a)\n\n\t\t x2=(-b+sqrt(delta))/(2*a)\n\n"); printf("***********************************************************************\n\n"); printf("\t a= "); scanf("%f",&a); printf("\n\t b= "); scanf("%f",&b); printf("\n\t c= "); scanf("%f",&c); printf("\n\n***********************************************************************\n\n"); if(a==0) { if(b==0) { if(c==0) printf("ROOT IS ANT VALUE!!!"); else printf("IT IS IMPOSIBUL!!!"); } else if(c==0) printf("\n%2.2fx=0\n\tROOT IS x=0",b); else { printf("%2.2fx+%2.2f=0",b,c); x1=-c/b; printf("\n\tROOT IS x=%2.2f",x1); } } else if(b==0) { if(c==0) { printf("\n%2.2fx^2\n\tROOT ISx=0",a); } else if( ( (c<0)&&(a>0) )||( (c>0)&&(a<0) ) ) { printf("\n%2.2x^2+%2.2f=0",a,c); x1=sqrt(-c/b); printf("\n\n\tROOTS ARE x1=%2.2f\tx2=%2.2f",x1,x2); } else printf("\n WE CAN NOT SOLVE IT IN REAL SPASE!!!\n"); } else if (c==0) { printf(" %2.2fx^2 + %2.2fx =0",a,b); x1=0; x2=-b/a; printf("\n\tx1=%2.2f\tx2=%2.2f\n",x1,x2); } else { printf("%2.2x^2+%2.2fx+%2.2f=0",a,b,c); delta=pow(b,2)-4*a*c; if(delta>0) { x1=(-b+sqrt(delta))/(2*a); x2=(-b-sqrt(delta))/(2*a); printf("\n\n delta=%2.2f\n\n\t WE HAVE TWO ROOTS:\n\n\t\tx1=%2.2f\tx2=%2.2f\n",delta,x1,x2); } else if(delta==0) { x1=-b/(2*a); printf("\n\n\tdelta=%2.2f\n\n\t\tROOTS ARE: x1=x2=%2.2f",delta,x1); } else if(delta<0) printf("\n\n\t delta = %2.2f\n\n\t WE CAN NOT SOLVE IT IN REAL SPASE!!!\n",delta); } printf("\n\n\n"); printf("*********************************END***********************************\n\n"); printf("\t\t\t//by jonior eng.GaRa//\n\n\n\t\t"); system("PAUSE"); return 0; }

    المصدر: كود حل معادلة من الدرجة الثانية بأدخال ثوابتها وذلك بلغة C تحياتي ... by;-Saif GaRa - منتدى المهندس
    Follow us: @almohandes_org on Twitter | Almohandes.forum on Facebook


    _________________

      الوقت/التاريخ الآن هو 2016-12-04, 21:15