viết chương trình pascal

[hocmai282008@gmail.com]

[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.

viết chương trình nhập độ dài x,y,z, diện tích s=căn bậc 2 của p.(p-x)(p-y)(p-z) với p là nửa chu vi rồi tính diện tích tam giác
mọi ngừoi ơi giúp mình bài này đi

 

[kingsman(lht 2k2)]

viết chương trình nhập độ dài x,y,z, diện tích s=căn bậc 2 của p.(p-x)(p-y)(p-z) với p là nửa chu vi rồi tính diện tích tam giác
mọi ngừoi ơi giúp mình bài này đi

Program Dien_tich_tam_giac;
Uses Crt;
Var
x,y,x:Integer;
p,s:Real;
Begin
Clrscr;
Writeln('DIEN TICH TAM GIAC');
Writeln('DIEN TICH TAM GIAC');
Write('-Nhap so thu nhat: ');
Readln(x);
Write('-Nhap so thu hai : ');
Readln(y);
Write('-Nhap so thu ba : ');
Readln(z);
If (x+y>z) And (y+z>x) And (z+x>y) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(y+x+z);
s:=Sqrt(p*(p-x)*(p-y)*(p-z));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
@BhofA kiểm tra giúp a nha ...lâu lâu ko viết mấy cái này

 

[BhofA]

Program Dien_tich_tam_giac;
Uses Crt;
Var
x,y,x:Integer;
p,s:Real;
Begin
Clrscr;
Writeln('DIEN TICH TAM GIAC');
Writeln('DIEN TICH TAM GIAC');
Write('-Nhap so thu nhat: ');
Readln(x);
Write('-Nhap so thu hai : ');
Readln(y);
Write('-Nhap so thu ba : ');
Readln(z);
If (x+y>z) And (y+z>x) And (z+x>y) Then
Begin
Writeln('+Dung la Tam giac');
p:=0.5*(y+x+z);
s:=Sqrt(p*(p-x)*(p-y)*(p-z));
Writeln('+Dien tich= ',s:10:2);
End
Else
Writeln('+Khong phai la Tam giac');
Writeln;
Writeln(' Bam phim <Enter> de ket thuc');
Readln
End.
@BhofA kiểm tra giúp a nha ...lâu lâu ko viết mấy cái này

đúng chính xác rồi anh @@ nhưng em nghĩ là phần
Writeln('DIEN TICH TAM GIAC');
Writeln('DIEN TICH TAM GIAC');
không có cũng đc