Bài pascal này lỗi gì giúp với

[lehieu1603]

nó thông báo Invalid numeric format
program chuvidientichhinhthang;
uses crt;
var b,a,alpha: real;
P,S,h: real;
begin
write('nhapdaylon,daynhovagocalpha');
read(b,a,alhpa);
h:=(b-a)*sin(alpha)/cos(alpha);
P:=a+b+h+h/sin(alpha);
S:=(a+b)*h/2;
writeln('chuvi,dientich ',P,S);
readln.
end.
đây là bài tính diện tích hình thang vuông đáy lớn b , đáy nhỏ a,và góc alpha

[mokona]

cho mình hỏi sau lệnh readln là dấu "." hỉ, theo mình biết đó cũng phải là dấu ";" chứ. Lâu rùi mình ko lập trình Pascal nên hok nhớ nó có lệnh read hok, bạn kiểm tra giúp mình với, vì bình thường mình dùng lệnh readln để đọc dữ liệu ko à.

[ecomputer]

read sau đó là dấu ; ko phải dấu.
cái thứ hai cho mình hỏi là nó báo lỗi ở dòng nào??

[TrongThaiVN]

Luu y khi nhap du lieu cho read(b,a,alhpa); de khong bi bao loi Invalid numeric format:

5 3 0.785

- 0.785 la Pi/4.
- Giua cac gia tri phai co it nhat mot khoang trang hoac Enter.

[1+1=2]

Không câ`n nhu TrongThaiVN nói đâu, đây là làm viê.c vói màn hình đen, nhâ.p sô' liê.u cho tùng cái 1.
Quan tro.ng là nhu ecom nói: "Sai o dòng nào?"

[baby_hacker]

program chuvidientichhinhthang;
uses crt;
var b,a,alpha: real;
P,S,h: real;
begin
write('nhapdaylon,daynhovagocalpha');
readln(b,a,alhpa);
h:=(b-a)*sin(alpha)/cos(alpha);
P:=a+b+h+h/sin(alpha);
S:=(a+b)*h/2;
writeln('chuvi,dientich ',P,S);
readln
end.

Như thế này thì chắc là chạy dc thôi

[nhat_truong]

Bài này có trong SBT, mở ra xem là biết liền ấy mà.
Còn ct của bạn, phải cho biết lỗi ở dòng nào mới sửa được chứ

[=========> Bổ sung bài viết <=========]

Mình chạy thử bài của bạn rồi.
Ngoài sai chữ "alhpa" và dấu "." thì chương trình chạy tốt, không có lỗi