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

Hung Mai

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

Kiều Vũ Linh
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.


Các câu hỏi tương tự
Hung Mai
Xem chi tiết
Kiệt Xinh Gái
Xem chi tiết
Thu Hằng
Xem chi tiết
Thu Hằng
Xem chi tiết
Thu Hằng
Xem chi tiết
Hoàng Thế
Xem chi tiết
Duy Khánh
Xem chi tiết
kenduongg
Xem chi tiết
Phạm Xuân Hoàng
Xem chi tiết