В основной программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства треугольника (a

Выбрать другой вопрос

Смотреть ответ

Перейти к выбору ответа

Информатика

Вопрос школьника по предмету Информатика

 В основной
программе вводятся стороны треугольника a, b, c. В модуле проверяются неравенства
треугольника (a) и
вычисляется площадь треугольника. Ввести данные двух треугольников и вывести
результаты. 

Ответ учителя по предмету Информатика

Program n1;

var a,b,c: real;

procedure tr(a,b,c: real );

var p,S: real;

begin

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

begin

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

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

write(‘S=’,S:6:3);

end else write(‘это не треугольник’);

end;

begin

readln(a,b,c);

tr(a,b,c);

end.

// тестирование:

ввод: 3 4 5

вывод: S=6.000

ввод: 2 3 4

вывод: S=2.905