-chu vi :
Var A,S: real;  *với S là chu vi,A là độ dài*         

     Begin 
writeln('Nhap so do 1 canh');

readln('A');

        S:=A*3;

writeln('Chu vi tam giac deu la:';S:2:4);

End.

*giải thích: Ta có chu vi tam giác là tổng độ dài ba cạnh,vậy giả sử độ dài một cạnh tam giác đều là a,mà tính chất tam giác đều là độ dài cả ba cạnh đều bằng nhau=>chu vi sẽ là a+a+a = ax3 đối chiếu theo sách thì hàm nhân trong pascal là dấu * nên ta có A*3

-diện tích:

Var A,S : real;

      Begin 

               writeln('nhap so do canh A');

               readln(A);

    S:=sqr(A)*sqrt(3)/4; 

writeln('Chu vi tam giac deu la:';S:2:4);

      End.

*giải thích:vẫn như ví dụ trên,cho cạnh = a , ta có công thức tính diện tích tam giác là theo cạnh và góc là 1/2 axa sin(60o) = 1/2xa²x√3/2 = a²√3/4. Quy ra hàm trong pascal là sqr(a)*sqrt(3)/4

-đường cao:

Var A,S : real;

    Begin

    writeln('nhap so do mot canh')

    readln(A)

S:=A*sqrt(3)/4

writeln('Chu vi tam giac deu la:';S:2:4);

    End.

giải thích:giống ví dụ trên,ta có đường cao của tam giác đều vừa là trung truyến nên nó đi qua trung điểm cạnh đó.Vậy nên sử dụng Pitago cho một nửa tam giác đều (một nửa tam giác đều chính là tam giác vuông) : a² - (a/2)²= a² - a²/4 = 3a²/4 => h=a²x√3/√4 = √3/2 quy ra hàm trong pascal là a*sqrt(3)/4.

 Căn bản đây là những bài yêu cầu vận dụng thấp,chỉ cần đòi hỏi có kiến thức về công thức toán là làm được thôi.Không có khó khăn lắm đâu bạn ^^