Программа №4

Листинг:

program Program4;

{$APPTYPE CONSOLE}

uses

SysUtils,

Math;

var a,b,c,p,S:real;

begin

{Ввод данных}

Write('storona a=');

readln(a);

Write('storona b=');

readln(b);

Write('storona c=');

readln(c);

{вычисление результата}

if (a+b>c) and (a+c>b) and (c+b>a) then

begin

p:=(a+b+c)/2;

S:=sqrt(p*(p-a)*(p-b)*(p-c));

Writeln('Znachenie S= ',S:7:2);

Writeln('Znachenie poluperimetra p= ',p:7:2);

end

else write('takogo treugolnika ne suschestvuet');

{Вывод на печать}

Readln;

end.

Тестовые значения:

Результат:

№1

№2