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

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

1. 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) and (b=0) then Writeln(‘ Phuong trinh co vo so nghiem’)

   Else
   writeln(‘ Phuong trinh vo nghiem’)
   Else
   Writeln(‘Phuong trinh co nghiem x=’,-b/a:4:2);

   Readln;

   End.

   Bình luận

2. Program giaiphuongtrinh

   Uses crt;

   Var a, b : integer;

   Begin

       clrscr;

       Write(‘Nhap a: ‘); readln(a);

       Write(‘Nhap b: ‘); readln(b);

       If a = 0 then

              if  b =  0 then writeln(‘Phuong trinh da cho co vo so nghiem’)

              else writeln(‘Phuong trinh da cho vo nghiem’)

       Else writeln(‘Nghiem cua phuong trinh da cho la x = ‘, -a/b);

       Readln;

   End. 

   Bình luận