sử dụng câu lệnh If- them viết chương trình sau ax+b=0

0 bình luận về “sử dụng câu lệnh If- them viết chương trình sau ax+b=0”

1. 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(‘————————————————————‘);

   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.

   Bình luận

2. Program BTT;
   Uses crt;
   Var a,b: real;
   Begin
           Clrscr;
           Write(‘Nhap a, b: ‘); Readln(a,b);
           If (a=0) and (b=0) then Write(‘Phuong trinh vo so nghiem’);
           If (a=0) and (b<>0) then Write(‘Phuong trinh vo nghiem’);
           If (a<>0) then Write(‘Nghiem cua phuong trinh la: ‘,-b/a:0:2);
           Readln
   End.

   Bình luận