Chương trình đơn giản

Phụng Nguyễn Thị

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

Nguyễn Lê Phước Thịnh
17 tháng 12 2019 lúc 17:01

Uses crt;
Var a,b,x: real;
Begin
Clrscr;
Writeln('GIAI PHUONG TRINH BAC NHAT: AX + B=0');
Writeln('------------------------------------------------------------');
Write ('Nhap a= '); readln(a);
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.

Bình luận (0)
 Khách vãng lai đã xóa
Bùi Anh Tuấn
17 tháng 12 2019 lúc 19:39

Hỏi đáp Tin học

Bình luận (0)
 Khách vãng lai đã xóa

Các câu hỏi tương tự
Nam Phạm An
Xem chi tiết
Kimian Hajan Ruventaren
Xem chi tiết
Nguyễn Thị Tươi
Xem chi tiết
Anna
Xem chi tiết
Heo Con🐷🐷🐷
Xem chi tiết
Nguyễn Lan
Xem chi tiết
Hải Títt
Xem chi tiết
Phương Võ văn
Xem chi tiết
Trần Thị Hương Ly
Xem chi tiết