Bài 20: Mạng máy tính

HM

Viết crt giải phương trình ax+b=0

KL
13 tháng 3 2023 lúc 10:07

Var a,b,x:real;

begin

write('Nhap he so a = ');readln(a);

write('Nhap he so b = ');readln(b);

if a = 0 then

begin

if b = 0 then write('Phuong trinh co vo so nghiem')

else write('Phuong trinh vo nghiem');

end

else

begin

x:=-b/a;

write('Nghiem cua phuong trinh la ',s:10:2);

end;

readln;

end.

Bình luận (0)

Các câu hỏi tương tự
HM
Xem chi tiết
KG
Xem chi tiết
TH
Xem chi tiết
TH
Xem chi tiết
TH
Xem chi tiết
HT
Xem chi tiết
DK
Xem chi tiết
H24
Xem chi tiết
PH
Xem chi tiết