+- delphi4arab منتديات دلفي للعرب (https://delphi4arab.net/forum)
+-- قسم : منتديات دلفي الأخرى (https://delphi4arab.net/forum/forumdisplay.php?fid=4)
+--- قسم : برامج دلفي من عمل الأعضاء (https://delphi4arab.net/forum/forumdisplay.php?fid=27)
+--- الموضوع : برنامج حل معادلة من الدرجة الثانية (/showthread.php?tid=1819)
برنامج حل معادلة من الدرجة الثانية - mijo_mad - 23-03-2010
هدا البرنالمج يساعد طلبة الثانويات المتوسطات على حل معادلة من الدرجة الثانية
برنامج حل معادلة من الدرجة الثانية - برمكي حميد - 23-03-2010
مشكور لكن اين الحل في حالة a=0 دمت وفيا
برنامج حل معادلة من الدرجة الثانية - DoZoV - 23-03-2010
مَاشَاء الْلَّه عَلَيْك اخَوَي مَجْهُوْد رَائِع وَلَكِن اغْلِب الْبَرَامِج لَاتَعْمَل بِالْعَرَبِي مَع الْعِلْم انَا الاعْدَادَات عِنْدِي صَحِيْحَة
وَايَضُا لَا اعْرِف لِلْفَرَنْسِيَّة
برنامج حل معادلة من الدرجة الثانية - xhunter - 24-03-2010
كود :
Program n ;
Var
a,b,c,x,d,x1,x2:real;
Begin
Write('donne la valeur a=');
Read(a);
Write('donne la valeur b=');
Readln(b);
Write('donne la valeur c=');
Readln(c);
If (a=0) and (b<>0)and (c<>0) then
Begin
x:=(-c/b);
Write ('x=',x);
End
Else
Begin
If (a=0) and (b=0)and (c<>0) then
write ('pas de solition');
If (a=0) and (b=0)and (c=0) then
Writeln('solution infini ');
If (a<>0) and (b<>0)and (c<>0) then
begin
d:=(b*b)-4*(a*c);
If (d=0)then
Begin
x:=-b+sqrt(d)/(2*a);
Writeln('solution double x=',x);
End
Else
Begin
x1:=-b+sqrt(d)/(2*a);
x2:=-b-sqrt(d)/(2*a);
writeln('deux solition defferentes');
write('x=',x1);
writeln('x=',x2);
End;
End;
End;
End.برنامج حل معادلة من الدرجة الثانية - kabba2008 - 25-03-2010
شكرا على هذا البرنامج
برنامج حل معادلة من الدرجة الثانية - tarekinf - 26-03-2010
مشكور على المشاركة