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

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

#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