Составте процедуру или функцию нахождения площади треугольника. И найдите площадь всех треугольников.
p = (a + b + c)/2
S=корень квадратный из(p(p-a)(p-B)(p-c))
А еще надо прикрепить рисунок, только что-то не получается.
Полная версия: Процедура или функция
помогите решить задачку следующего содержания.
Составте процедуру или функцию нахождения площади треугольника. И найдите площадь всех треугольников.
p = (a + b + c)/2
S=корень квадратный из(p(p-a)(p-B)(p-c))
А еще надо прикрепить рисунок, только что-то не получается.
Составте процедуру или функцию нахождения площади треугольника. И найдите площадь всех треугольников.
p = (a + b + c)/2
S=корень квадратный из(p(p-a)(p-B)(p-c))
А еще надо прикрепить рисунок, только что-то не получается.
[IMG]http://mail.vk.edu.ee/~tanja/treugolnik.JPG[/IMG]
Рисунок к задачке.
Рисунок к задачке.
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.
Вот так:
Код
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
Спасибо тебе огромное ты просто супер. есть же добрые люди на земле.
:rose:
Спасибо тебе огромное ты просто супер. есть же добрые люди на земле.
:rose:
volvo
У меня еще осталась одна задачка с матрицей, но я толком немогу перевести то там в решении хотят. Так что вернусь завтра. И тогда меня допустят к экзамену.
У меня еще осталась одна задачка с матрицей, но я толком немогу перевести то там в решении хотят. Так что вернусь завтра. И тогда меня допустят к экзамену.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.