mấy đại ka giải giùm em ạ :)

pascal nha mấy đại ka

Bài 2: Tính tam giác: Nhập vào ba số a,b,c bất kì. Kiểm tra xem nó có thể là độ dài ba cạnh hay không, nếu không thì in ra màn hình 'Khong la ba canh cua mot tam giac'. Ngược lại, thì in diện tích, chu vi của tam giác ra màn hình.

\begin{array}{c} \color{#db1616}{\texttt{#Khoadang09}} \end{array}
`@`$\texttt{Pascal: }$

var a, b, c : real;
    cv, s, p : real;
begin
    readln(a,b,c);
    if not((a+b>c) and (a+c>c) and (b+c>a)) 
        then write('Khong la ba canh cua mot tam giac')
    else 
         begin
        cv := a + b + c;
        p := cv / 2;
        s := p * (p - a) * (p - b) * (p - c);
        writeln('Chu vi: ',cv:0:2);
        writeln('Dien tich: ',sqrt(s):0:2);
         end ;
end .

`@`$\texttt{Giải thích: }$

  - Để `a,b,c` là cạnh của một tam giác, thoả cả 3 điều kiện sau :

\begin{cases} a+b>c\\a+c>b\\b+c>a\end{cases}

  - Nếu `a,b,c` đã là 3 cạnh của một tam giác, chúng ta áp dụng định lý Heron để tính diện tích :

\(\begin{array}{c} \texttt{Diện tích: }\sqrt{p*(p-a)*(p-b)*(p-c)}&\\ \texttt{Trong đó} : p=\dfrac{a+b+c}2(\texttt{ nửa chu vi tam giác}) \end{array}\)

  - Phép not : đảo giá trị logic (Booolean)

\begin{array}{|c|c|c|}\hline \texttt{Giá trị đầu:}&\texttt{True}&\texttt{False}\\\hline \texttt{Sau khi dùng "not": }&\texttt{False}&\texttt{True}\\\hline \hline\end{array}