Lập trình đơn giản

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
kiyoshi Nguyễn

viết chương trình giải phương trình bậc nhất một ẩn ax+b=0

duong nguyenvan
29 tháng 11 2017 lúc 15:08

program giaipb1;
uses crt;
var a,b:real;
begin
clrscr;
writeln('Chuong Trinh Giai PT bac 1: ax+b=0');
writeln('Nhap a va b'); readln(a,b);
If (a=0) and (b<>0) then writeln('Phuong trinh vo nghiem');
If (a=0) and (b=0) then writeln('Phuong trinh co vo so nghiem');
If (a<>0) and(b<>0) then writeln('Phuong trinh co nghiem x=',(-b)/a:4:2);
readln;
end.


Các câu hỏi tương tự
Lê Trung Kiên
Xem chi tiết
Vamy Clor
Xem chi tiết
haizzz!!
Xem chi tiết
Ngô Ánh Loan
Xem chi tiết
hoai luu
Xem chi tiết
cuong phamquoc
Xem chi tiết
Kamato Heiji
Xem chi tiết
Dienn
Xem chi tiết
Phạm Trung Nguyên
Xem chi tiết