Viết chương trình PASCAL để nghiệm của phương trình bậc hai ax+b=0 theo nguyên tắc : Nếu a và b cùng bằng 0 thì phương trình vô số nghiệm, ngược lại n

0 bình luận về “Viết chương trình PASCAL để nghiệm của phương trình bậc hai ax+b=0 theo nguyên tắc : Nếu a và b cùng bằng 0 thì phương trình vô số nghiệm, ngược lại n”

1. Program Nghiem_cua_phuong_trinh_bac_nhat;

   Uses Crt;

   Var a,b : integer;

         x : real;

   Begin

   Clrscr;

   Write(‘Nhap a ‘);   Readln(a);

   Write(‘Nhap b ‘);  Readln(b)

   x:= -b/a;

   Writeln(‘Nghiem cua phuong trinh bac nhat la: ‘,x)

   Readln;

   End.

   Bình luận