Viết chương trình để giải phương trình bậc 2.

0 bình luận về “Viết chương trình để giải phương trình bậc 2.”

1. program oken;

   uses crt; 

   var a,b,c,1x,2x,d:real;

   begin

   clrscr; 

   write(‘Nhap a: ‘); readln(a);

   write(‘Nhap b: ‘); readln(b); 

   write(‘Nhap c: ‘); readln(c);

   d:=b*b–4*a*c;

   if d>0 then

   begin

   1x:=(-b+sqrt(d))/(2*a);

   2x:=(-b–sqrt(d))/(2*a);

   writeln(‘2 nghiem PT la: ‘,1x:0:2,‘ va: ‘,2x:0:2);

   end;

   else 

   if d=0 then

   begin 1x:=(-b)/(2*a);

   writeln(‘PT co nghiem kep la: ‘,1x:0:2);

   end;

   else writeln(‘PT vo nghiem’);

   readln;

   end.

   Cho mình câu trả lời hay nhất nha

   Bình luận

2. uses crt; var a,b,c,x1,x2,d:real;

   BEGIN clrscr; write(‘Nhap a: ‘);

   readln(a); write(‘Nhap b: ‘);

   readln(b); write(‘Nhap c: ‘);

   readln(c); d:=b*b–4*a*c;

   if d>0 then begin

   x1:=(-b+sqrt(d))/(2*a);

   x2:=(-b–sqrt(d))/(2*a);

   writeln(‘2 nghiem PT la: ‘,x1:0:2,‘ va: ‘,x2:0:2);

   end else if d=0 then begin x1:=(-b)/(2*a);

   writeln(‘PT co nghiem kep la: ‘,x1:0:2);

   end else writeln(‘PT vo nghiem’);

   readln END.

   Bình luận