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

**mah11** 5/8/2013, 8:22 pm

الكود:: program racine_2digrie; // pascal uses crt; // pascal var a,b,c : integer; // pascal x1,x2,x : real; // pascal function delta(a,b,c:integer):integer; // pascal var del1 : integer; // pascal begin del1:=sqr(b)-4*a*c; // pascal delta:=del1; // pascal end; // pascal procedure delta_x1_x2; // pascal begin x1:=(-b-sqrt(delta(a,b,c)))/(2*a); // pascal x2:=(-b+sqrt(delta(a,b,c)))/(2*a); // pascal writeln(' X1 = ',x1:0:3); // pascal writeln(' X2 = ',x2:0:3); // pascal end; // pascal procedure resole(b,c:integer; var x:real); // pascal begin writeln(' Ax + c = 0'); // pascal if b=0 then writeln(' Solution impossible') else begin x:=-c/b; // pascal writeln(' X = ',x:0:3); // pascal end; // pascal end; // pascal var chois : integer; // pascal cho : boolean; // pascal begin clrscr; cho:=false; // pascal repeat writeln('1. Ax^2 + bx + c'); // pascal writeln('2. Quitter'); writeln; // pascal write('Entrez otre chois : '); readln(chois); // pascal case chois of 1:begin writeln(' *** Ax^2 + bx + c = 0 ***'); writeln(' Entrez trois nombre :'); writeln; write(' A = '); readln(a); write(' B = '); readln(b); write(' C = '); readln(c); if a=0 then resole(b,c,x) else begin writeln; writeln(' Delta = ',delta(a,b,c)); if delta(a,b,c)<0 then writeln(' Ne pas du racine !') else delta_x1_x2; end; end; 2: cho:=true; end; writeln; until cho; end.

ali 5/6/2015, 8:23 pm

بــارك الله فـــــــــيك

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