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

2019-11-30T09:38:18-05:00 2019-11-30T09:38:18-05: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 //baikiemtra.com/uploads/news/2019_11/bai-tap-lap-trinh-pascal.jpg

Bài Kiểm Tra //baikiemtra.com/uploads/bai-kiem-tra-logo.png

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.

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 a0 then
      If a>0 then Writeln['Bat phuong trinh co nghiem: x>=',-b/a:4:2]
      Else Writeln['Bat phuong trinh co nghiem: x