Tin học Chữa lỗi viết chương trình Pascal

[T_P_]

[TẶNG BẠN] TRỌN BỘ Bí kíp học tốt 08 môn
Chắc suất Đại học top - Giữ chỗ ngay!!

ĐĂNG BÀI NGAY để cùng trao đổi với các thành viên siêu nhiệt tình & dễ thương trên diễn đàn.

Nhập vào 3 số a, b, c, in ra diện tích tam giác có 3 cạnh a, b, c .
Input : 3 số nguyên a,b,c cách nhau 1 dấu phẩy
Output : đáp số của bài toán , bao gồm 3 chữ sô thập phân
[Pascal]

var a,b,c,P:integer;
S:real;
begin
read(a, b, c);
P:=a+b+c;
write(sqrt(P*(P-a)*(P-b)*(P-c)));
end.

 

[Trâm Nguyễn Thị Ngọc]

Nhập vào 3 số a, b, c, in ra diện tích tam giác có 3 cạnh a, b, c .
Input : 3 số nguyên a,b,c cách nhau 1 dấu phẩy
Output : đáp số của bài toán , bao gồm 3 chữ sô thập phân
[Pascal]

var a,b,c,P:integer;
S:real;
begin
read(a, b, c);
P:=a+b+c;
write(sqrt(P*(P-a)*(P-b)*(P-c)));
end.

Thiếu lệnh dừng chương trình rồi bạn, với cả khai báo thừa biến S nữa
Để code rõ hơn một tí thì bạn có thể gán giá trị cho s:

s:=sqrt(p*(p-a)*(p-b)*(p-c));

Rồi in kq cũng được:

Writeln(s:0:3);