Ngân Nguyễn
Hỏi từ APP VIETJACK
viết chương trình giải phương trình ax+b=0 (a<>0)
Quảng cáo
1 câu trả lời 353
Program TienPhucKhaiVietJack;
uses crt;
Var a,b,x:real;
Begin
Clrscr;
repeat
Write ('Nhap a= ');
readln(a);
until (a<>0);
Write ('Nhap b= ');
readln(b);
If(a=0) then
If(b=0) then
Writeln(' Phuong trinh co vo so nghiem')
Else
writeln(' Phuong tring vo nghiem')
Else
Writeln('Phuong trinh co nghiem x=',-b/a:4:2);
Readln;
End.
Tiền Phúc Khải
· 4 năm trước
Nếu thấy câu trả lời hữu ích thì đừng quên cho mình 1 tim và đánh giá cho mình nhé, đánh giá của bạn luôn tạo động lực cho mình ngày càng nỗ lực hơn, cảm ơn bạn ạ, chúc bạn học tốt!!!
Quảng cáo
Bạn cần hỏi gì?
Câu hỏi hot cùng chủ đề
-
Đã trả lời bởi chuyên gia
86252
Gửi báo cáo thành công!
