Viết chương trình giải phương trình bậc nhất ax + b = 0
Quảng cáo
1 câu trả lời 13737
2 năm trước
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.
Quảng cáo
Câu hỏi hot cùng chủ đề
-
1 54616
-
28758
-
26966
Gửi báo cáo thành công!