Viết chương trình ax b 0 pascal

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. 

Tommy owner Express Magazine

Drupal Developer having 9+ year experience, implementation and having strong knowledge of technical specifications, workflow development. Ability to perform effectively and efficiently in team and individually. Always enthusiastic and interseted to study new technologies

• Skype ID: tthanhthuy

program Phuong_trinh_bac_nhat;

uses crt;

var a,b : real;

begin

clrscr;

write ('Nhap so a:'); readln(a);

write ('Nhap so b:'); readln(b);

if (a<>0) then writeln ('Nghiem cua phuong trinh la:', -b/a);

if (a=0) and (b=0) then writeln ('Phuong trinh co vo so nghiem');

if (a=0) and (b<>0) then writeln ('Phuong trinh vo nghiem');

readln

end.

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.

2019-12-01T01:38:18+11:00 2019-12-01T01:38:18+11:00 Bài 1: Viết chương trình giải phương trình bậc nhất (ax + b = 0)Bài 2: Viết chương trình giải bất phương trình bậc nhất (ax + b >= 0) giải phương trình, bất phương trình bậc nhất, lập trình pascal https://baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg

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

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 trinh vo nghiem')
Else
Writeln('Phuong trinh co nghiem x=',-b/a:4:2);
Readln;
End.

Bài 2: Viết chương trình giải bất phương trình bậc nhất (ax + b >= 0)

Program BAT_PHUONG_TRINH_BAC_NHAT;
Uses crt;
Var a,b: real;
Begin
Clrscr;
Writeln('GIAI BAT PHUONG TRINH BAC NHAT: AX + B>=0');
Writeln('--------------------------------------');
Write('nhap a=');readln(a);
Write('nhap b=');readln(b);
If a<>0 then
      If a>0 then Writeln('Bat phuong trinh co nghiem: x>=',-b/a:4:2)
      Else Writeln('Bat phuong trinh co nghiem: x<=',-b/a:4:2)
Else
      If b>=0 then Writeln('Bat phuong trinh co vo so nghiem')
      Else writeln('Bat phuong trinh vo nghiem');
Readln;
End.