Помогите решить эту задачу в паскале!

Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников. (Вычисление площади оформить в виде под программы-функция или процедура).

Question

Информатика

Зара

13 октября, 03:17

Помогите решить эту задачу в паскале!

Для двух треугольников с катетами а, b, с, d. Найти сумму площадей треугольников. (Вычисление площади оформить в виде под программы-функция или процедура).

+3

Ответы (1)

Знаете ответ на вопрос?

Мечислав · Answer 1

Function S_tr (a, b:integer) : real;

begin

S_tr:=a*b/2

end;

var a, b, c, d:integer;

s:real;

begin

s:=0;

read (a, b, c, d) ;

s+=S_tr (a, b) ;

s+=S_tr (c, d) ;

writeln (s) ;

end.