Viết thuật toán.Giải phương trình ax+b=0 Mọi người giúp em với ạ em sẽ cho 5*

0 bình luận về “Viết thuật toán.Giải phương trình ax+b=0 Mọi người giúp em với ạ em sẽ cho 5*”

1. uses crt;

   var a,b :real;

   begin

   clrscr;

   writeln(‘Nhap he so a,b: ‘);readln(a,b);

   writeln(‘PT co dang: (‘,a:0:4,’)x + (‘,b:0:4,’) = 0′);

   If (a=0) and (b<>0) then writeln(‘PT vo nghiem’);

   If (a=0) and (b=0) then writeln(‘PT vo so nghiem’);

   If a<>0 then writeln(‘Nghiem cua pt la: ‘,(-b)/a:0:4);

   readln;

   end.

   Bình luận