Procedure Plosh;

Begin

Per:=a+b+c;

p:=Per/2; {vichislaem poluperimetr}

S:=sqrt(p*(p-a)*(p-b)*(p-c)); {vichislaem ploshad}

Writeln('S=', S:5:2); {vivodim znachenie ploshadi}

End;

BEGIN

Clrscr;

textcolor(15);

Writeln('Программа для вычисления периметра и площади треугольника ');

Writeln;

Dannie;

Menu;

Repeat

Kod:=ReadKey;

If Kod=#0 then Kod:=ReadKey;

Case Kod of

#49: ProvT;

#50: ProvP;

#51: Perim;

#52: Plosh;

#53: begin Perim; Plosh end;

#54: Dannie;

#55: Exit;

End;

Until Kod=#27;

END.

Тестирование и отладка

Пример 1

Программа для вычисления периметра и площади треугольника

Введите сторону a=5

Введите сторону b=3

Введите сторону c=4

Можно ли построить треугольник из отрезков длина, которых равна a,b,c?

можно

Является ли треугольник прямоугольным?

да c гипотенузой

a= 5.00

Per=12.00

S= 6.00

Пример 2

Введите сторону a=3

Введите сторону b=4

Введите сторону c=7

Можно ли построить треугольник из отрезков длина, которых равна a,b,c?

нельзя

Является ли треугольник прямоугольным?

нет

Пример 3

Введите сторону a=2

Введите сторону b=3

Введите сторону c=3

Можно ли построить треугольник из отрезков длина, которых равна a,b,c?

можно

Является ли треугольник прямоугольным?

нет

Per=8.00

S= 2.83

Пример 4

Введите сторону a=2

Введите сторону b=3.5

Введите сторону c=6

Можно ли построить треугольник из отрезков длина, которых равна a,b,c?

нельзя

Является ли треугольник прямоугольным?

Нет