[quote=SBT;6.20;T55]-Nhập từ bàn phím ba số thực a,b,c.
-Nếu a,b,c là số dương kiểm tra xem ba số a,b,c đó có là độ dài ba cạnh tam giác hay không ?
-Trong trường hợp a,b,c là độ dài 3 cạnh tam giác, chương trình cần thông báo tam giác đó là tâm giác vuông cân hay đều.
- Trong trường hợp tam giác vuông hoặc đều hãy tính và in ra màn hình diện tích của nó.[/quote]
-Nếu a,b,c là số dương kiểm tra xem ba số a,b,c đó có là độ dài ba cạnh tam giác hay không ?
-Trong trường hợp a,b,c là độ dài 3 cạnh tam giác, chương trình cần thông báo tam giác đó là tâm giác vuông cân hay đều.
- Trong trường hợp tam giác vuông hoặc đều hãy tính và in ra màn hình diện tích của nó.[/quote]
Admin đã viết:VAR a,b,c,p,s: REAL;
BEGIN
Write('Nhap ba so thuc a,b,c: '); Readln(a,b,c);
p:=(a+b+c)/2; s:=sqrt(p*(p-a)*(p-b)*(p-c));
IF ((a>0) AND (b>0) AND (c>0)) THEN
IF (sqr(a)=sqr(b)+sqr(c)) OR (sqr(b)=sqr(c)+sqr(a)) OR (sqr(c)=sqr(b)+sqr(a))
THEN Write('Tam giac vuong co dien tich: ',s:0:4)
ELSE
IF (a-b-c=-a) THEN Write('Tam giac deu co dien tich: ',s:0:4)
ELSE IF (a=b) OR (b=c) OR (a=c) THEN Write('Tam giac can');
Readln
END.