Viết chương trình giải phương trình bậc 1 (ax + b = 0)

Pascal

uses crt;
var a,b:real;
begin
clrscr;
write('Nhap a: ');
readln(a);
write('Nhap b: ');
readln(b);
if (a=0) and (b=0) then write('Phuong trinh co vo so nghiem');
if (a=0) and (b<>0) then write('Phuong trinh vo nghiem');
if (a<>0) then write('Phuong trinh co nghiem: ',-b/a:2:2);
readln;
end.

Program GIAI_PHUONG_TRINH_BAC_NHAT;

Var a,b,x:real; 

Begin

  Clrscr;

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

  Writeln('------------------------------------------------------------'); 

  Write ('Nhap a= '); 

  readln(a);

  Write ('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. 
Gửi ặ