Tin học lập trình Pascal <câu lệnh điều kiện>

[Kudo Shinchi]

[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 vào 3 độ dài kiểm tra xem chúng có tạo thành tam giác ko? Nếu có tính chu vi, diện tích hình tam giác đó.

 

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

Viết chương trình nhập vào 3 độ dài kiểm tra xem chúng có tạo thành tam giác ko? Nếu có tính chu vi, diện tích hình tam giác đó.

Var
   A,b,c,p:integer;
Begin
   Readln(a);readln(b);readln(c);
   If (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (c+a)>b then
        Begin
               Writeln('3 canh tao thanh tam giac');
               P:=a+b+c;
               Writeln('chu vi=',p,' dien tich=',sqrt(p*(p-a)*(p-b)*(p-c)));
         End
   Else write('khong the tao thanh tam giac');
Readln
End.

 

[CuongGrove]

Var
   A,b,c,p:integer;
Begin
   Readln(a);readln(b);readln(c);
   If (a>0) and (b>0) and (c>0) and (a+b>c) and (b+c>a) and (c+a)>b then
        Begin
               Writeln('3 canh tao thanh tam giac');
               P:=a+b+c;
               Writeln('chu vi=',p,' dien tich=',sqrt(p*(p-a)*(p-b)*(p-c)));
         End
   Else write('khong the tao thanh tam giac');
Readln
End.

Bạn nhầm chỗ P bạn ơi, P trong tính diện tích bằng (a+b+c)/2