Viet chuong trinh pascal giai phuong trinh ax+b=0

Program GIAI_PHUONG_TRINH_BAC_NHAT;

Uses crt;

Var a,b,x: real;

BEGIN

Clrscr;

Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');

Writeln(‘Nhap a = ‘); readln(a);

Writeln(‘Nhap b= ‘); readln(b);

If a=0 then If(b=0) then Writeln(' Phuong trinh co vo so nghiem')

Else writeln(' Phuong tring vo nghiem')

Else Writeln('Phuong trinh co nghiem x=',-b/a: 4: 2);

Readln;

END.

uses crt;

var a, b : integer;

begin

clrscr;

write('Nhap he so a, b = '); readln(a, b);

if (a = 0) and (b = 0) then write('PT vo so nghiem');

if (a = 0) and (b <> 0) then write('PT vo nghiem');

if a <> 0 then write('Nghiem x = ', -b / a : 2 : 2);

readln

end.