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. 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

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

   chúc bn học tốt

   Bình luận