Bài 5: Khai báo biến

Bạn chưa đăng nhập. Vui lòng đăng nhập để hỏi bài
Quyết Thắng Đỗ

Ghi chú dòng lệnh bằng tiếng việt với chương trình giải phương trình bậc hai:

Program Giai_PTB2;

Uses crt;

var a,b,c: real;

D, x1, x2: real;

begin

clrscr;

write(' a, b, c: ');

readln(a, b, c);

D:= b*b-4*a*c;

If D<0 then writeln (' Phương trinh vo nghiem.')

else

begin

x1:= (-b-sqrt(D))/(2*a);

x2:= -b/a-x1;

writeln(' x1= ', x1:8:3, x2= ', x2:8:3);

end;

readln

end.

Nguyễn Lê Phước Thịnh
18 tháng 3 2020 lúc 10:49

uses crt: thư viện crt;

var a,b,c:real có nghĩa là khai báo a,b,c kiểu số thực

d,x1,x2: real là khai báo d,x1,x2 kiểu số thực

begin: bắt đầu

write('a,b,c:'); : viết(a,b,c)

readln(a,b,c); : đọc(a,b,c)

d:=b*b-4*a*c; : delta được gán bằng b bình -4 nhân a nhân c

if d<0 then writeln('phuong trinh vo nghiem'): nếu d<0 thì viết('phuong trinh vo nghiem')

else: ngược lại

gán x1,x2 lần lượt là hai nghiệm của phương trình

xuất hai nghiệm đó ra màn hình

xong rồi readln; end. có nghĩa là kết thúc chương trình

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

Các câu hỏi tương tự
Bảo Trần
Xem chi tiết
Quyết Thắng Đỗ
Xem chi tiết
Mỹ Duyên
Xem chi tiết
Huy Nguyen
Xem chi tiết
Lê Trần
Xem chi tiết
Yến Trần
Xem chi tiết
Thúy Yoona
Xem chi tiết
hien nguyen
Xem chi tiết
Phương Phương
Xem chi tiết