Процедура или функция Опции

[Tatjanka]

помогите решить задачку следующего содержания.

Составте процедуру или функцию нахождения площади треугольника. И найдите площадь всех треугольников.
p = (a + b + c)/2
S=корень квадратный из(p(p-a)(p-B)(p-c))


А еще надо прикрепить рисунок, только что-то не получается.

[Tatjanka]

[IMG]http://mail.vk.edu.ee/~tanja/treugolnik.JPG[/IMG]

Рисунок к задачке.

[volvo]

Tatjanka
Вот так:

Код

function s(a, b, c: real): real;
 var p: real;
 begin
   p := (a + b + c) / 2;
   s := sqrt(p*(p - a)*(p - b)*(p - c))
 end;

var sum: real;
begin
 sum := s(2.5, 1.8, 2.5) + s(2.5, 1.3, 2.3) + s(2.3, 1.5, 2.4);
 writeln('площадь = ', sum:10:5);
end.

Сообщение отредактировано: volvo - 1.12.2004 22:38

[Tatjanka]

volvo
Спасибо тебе огромное ты просто супер. есть же добрые люди на земле.
:rose:

[Tatjanka]

volvo
У меня еще осталась одна задачка с матрицей, но я толком немогу перевести то там в решении хотят. Так что вернусь завтра. И тогда меня допустят к экзамену.