my-programs.3dn.ru
Быстрая навигация
Главная
Домашняя страница
Решенные задачи
Все решенные задачи
Форум
Наш форум
Выход
Выход из сайта
Реклама
Пусто
Меню сайта
Категории раздела
С подпрограммой [8]
Простые задачи [11]
Строки [5]
Массивы [7]
Графика [2]
Сложные задачи [2]
Мини-чат
Статистика


Онлайн всего: 1
Гостей: 1
Пользователей: 0
Главная » Turbo Pascal - готовые задачи » С подпрограммой

Найти длину медиан треугольника по коордианатам

Задан треугольник со своими координатами. Найти длину его медиан.

Решение:
function med(a1,a2,b1,b2,c1,c2:real):real;
var l1,l2,m1,m2:real;
begin
l1:=(a1+b1)/2;
l2:=(a2+b2)/2;
m1:=l1-c1;
m2:=l2-c2;
med:=sqrt((m1*m1)+(m2*m2));
end;
Объяснение: В этой задаче главное знать как найти длину медиан по координатам треугольника. Все остальное думаю понятно.
Категория: С подпрограммой | Добавил: deespe (29.01.2011)
Просмотров: 3032 | Рейтинг: 0.0/0
Всего комментариев: 0
Имя *:
Email *:
Код *:

Поиск
Опрос
Вам помог наш сайт?
Всего ответов: 133
Хостинг от uCoz