Лабы по программированию (КИ МГОУ) / Лабы по программированию 1 курс / Лаба1 / треуг

Программный код:

program Project2;

{$APPTYPE CONSOLE}

uses

SysUtils;

var a,b,c,p,s,d:real;

begin

write ('vvedite a,b,c =');

readln (a,b,c);

p:=(a+b+c)*0.5;

d:=(p*(p-a)*(p-b)*(p-c));

if (d<0) then

writeln ('resheniya net')

else begin s:=sqrt(d);

writeln ('s=',s);

end;

readln;

end.

Исходные данные:

a, b, c, p, s, d : real;

Результаты расчета:

Блоксхема: