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 ;

   Uses crt;

   Var D, x1, x2, a,b,c : real;

   Begin

   Clrscr;

   Write(‘nhap 3 so a, b, c’); readln(a,b,c);

   D:= b*b-4*a*c;

   If D < 0 then write(‘ phuong trinh vo nghiem’) else

   Begin

   X1 := (-b+ sprt(D))/2;

   X2:= (-b- sprt(D))/2;

   Writeln( ‘phuong trinh co nghiem’, x1,x2);

   End;

   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.

   hay nhất lun nhé best friends !!!

   Bình luận