Bài 2. Làm quen với chương trình và ngôn ngữ lập trình

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

Chỉnh lỗi

Program GPTBN ;

var a; b, Real ;

Begin

Write( Nhap he so a,b cua phuong trinh :);Readln (a;b)
if a#0 then writeln ('Phuong trinh co nghiem duy nhat x=' -b/a:0:4);

else if b=0 then writeln (' Phuong trinh co vo so nghiem ') ;

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

Giải giúp mk vs ạ mk đang cần gấp . Thank

Nguyễn Minh Lệ
19 tháng 3 2020 lúc 14:06

Program GPTBN ;

var a,b: Real ;

Begin

Write( 'Nhap he so a,b cua phuong trinh :'); Readln (a,b);
if a<>0 then writeln ('Phuong trinh co nghiem duy nhat x=' ,-b/a:0:4)

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

else writeln (' phuong trinh vo nghiem ');

Readln;

End.

Khách vãng lai đã xóa
Phan Tiến Đạt
19 tháng 3 2020 lúc 21:26

program gptbn;

uses crt;

var a,b:real;

begin

write('Nhap he so a,b cua phuong trinh: ');readln(a,b);

if a <> 0 then writeln('Phuong trinh co nghiem duy nhat x= ',-b/a:0:4)

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

else writeln('Phuong trinh vo nghiem');

readln

end.

Khách vãng lai đã xóa

Các câu hỏi tương tự
Nguyenthikim Hà
Xem chi tiết
Khôi Ngô
Xem chi tiết
Sách Giáo Khoa
Xem chi tiết
Đặng Ngọc Đăng Thy
Xem chi tiết
Phạm Mỹ Duyên
Xem chi tiết
Lo Lem
Xem chi tiết
hà lê thị
Xem chi tiết
Lyy
Xem chi tiết
Trân Gia Bao
Xem chi tiết