Viết chương trình giải phương trình bậc 1 (ax + b = 0)
Trả lời
Tổng hợp câu trả lời (1)
NguyenHieu
12:11:11 24-Nov-2021
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
Else
writeln(' Phuong tring vo nghiem')
End.
Writeln('Phuong trinh co nghiem x=',-b/a:4:2); Readln;
Hãy giúp mọi người biết câu trả lời này thế nào?