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

اذهب الى الأسفل

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

مُساهمة  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.

mah11
Admin

عدد المساهمات : 364
تاريخ التسجيل : 21/06/2013

http://delph.forumalgerie.net

الرجوع الى أعلى الصفحة اذهب الى الأسفل

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

مُساهمة  ali1 في 5/6/2015, 8:23 pm

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

ali1
مبرمج مجتهد

عدد المساهمات : 860
تاريخ التسجيل : 29/07/2013

الرجوع الى أعلى الصفحة اذهب الى الأسفل

الرجوع الى أعلى الصفحة


 
صلاحيات هذا المنتدى:
لاتستطيع الرد على المواضيع في هذا المنتدى