السلام عليكم
هذه هي المعادلة : ax²+bx+c=0
من فضلكم اريد قيمة x على طريقة algorithme
مثل :طريقة حل المعادلة من الدرجة الاولى
CONST 0: entier
Var A,B,X : réel
Début
Afficher ("saisir la valeur de A et de B")
Saisir (A,B)
si a = 0
alors afficher ("impossible")
sinon si b = 0
alors x <- 0
sinon x <- -b / a
afficher (" x = ", x)
finsi
تم تعديل هذه المشاركة بواسطة fatima<3zahra في 26 ديسمبر 2011 في 01:05
السلام عليكم أريد أن أكتب خوارزمي لمعادلة من الدرجة الثانية..مع تقديري واحترامي لأساتدة هذا المنتدى
;algorithme resoudre-equation-second-degre
; var A,B,C:entier
; D,X,X1,X2:réel
Début
;(' écrire ('resoudre équation du second degré
; ('=écrire('A
;(lire(A
Si A=0 Alors
;(' écrire('A ne doit pas etre nul
Sinon
;('=écrire('B
; (Lire(B
;('=écrire('C
; (Lire(c
;(' écrire('équation: ',A,'X² +',B,'X +',C,' =0
;D ← B*B- 4*A*C
; (écrire('D =',D
Si D=0 Alors
; ('écrire(' l''équation admis une solution
;X← -B/2*A
; (écrire('X =',X
Sinon
Si D>0 Alors
; ('écrire(' l''équation admis deux solution comme suite
;X1←(-B-√D)/2*A
; X2←(-B+√D)/2*A
; (écrire('X1 =',X1,' ET ','X2 =',X2
Sinon
;('écrire('pas de solution
Fin Si
Fin Si
Fin Si
Fin
شكرا أخي hakimraho
الشكر بالدرجة الأولى لمنشئين هذا المنتدى ولجميع المبدعين هنا.