[Pascal] Viết chương trình giải phương trình bậc nhất

Viết chương trình Pascal giải phương trình bậc nhất

Ngôn ngữ lập trình: pascal

CODE:

Select All

Program PT_bac_nhat;
Uses Crt;
Var
   a,b:Integer;
   x:Real;
Begin
    Clrscr;
    Writeln('GIAI PHUONG TRINH BAC NHAT');
   Writeln('       aX + b = 0');
   Write('-Nhap he so a= ');
   Readln(a);
   Write('-Nhap he so b= ');
   Readln(b);
   If a=0 Then
      If b=0 Then
          Writeln('+Phuong trinh vo dinh')
      Else
          Writeln('+Phuong trinh vo nghiem')
   Else
       Begin
          x:=-b/a;
          Writeln('+Nghiem cua phuong trinh X= ',x:0:6);
      End;
   Writeln;
   Writeln('   Bam phim <Enter> de ket thuc');
   Readln;
End.


Bài tiếp theo: [Pascal] Viết chương trình giải phương trình bậc 2