Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > IT форум > Помощь студентам
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.03.2010, 11:35   #1
azemrug
 
Регистрация: 11.03.2010
Сообщений: 5
По умолчанию

делать процедуру елка-1 точка, высота,база число секции нам известно:1-8 высота,13-3 база,1-2 входит в количество секции в данном рисунке 4 секции одна равна высота делённая на каличество секции 4 точка делит отрезок от высоты до 5 точки пополам и так все средние точки как зделать так чтобы 5 точка попадала именно на ребро триугольника? как узнать чему будет равен отрезок 4-5?

Ето рисунокю
Изображения
Тип файла: bmp triugolinik.bmp (1.12 Мб, 118 просмотров)

Последний раз редактировалось Stilet; 15.03.2010 в 12:43.
azemrug вне форума Ответить с цитированием
Старый 15.03.2010, 12:41   #2
Nigadyai
Пользователь
 
Регистрация: 11.03.2010
Сообщений: 37
По умолчанию

В тетрадке по клеточкам надо для начала нарисовать, и всё станет понятно.
4-5 составляет 2/3 отрезка 2-3.
6-7 составляет 2/3 отрезка "высота-5" либо 1/6 отрезка 2-3
p.s. смотри рисунок.
Nigadyai вне форума Ответить с цитированием
Старый 15.03.2010, 13:01   #3
Loky
Пользователь
 
Регистрация: 02.10.2008
Сообщений: 14
По умолчанию

Берешь за начало точку 1. Координаты x,y
+вход. параметры: B(база),Н(высота),к(кол-во секци), тогда имеем:
1 - х,у
2 - х,у-Н/к
3,5,7 - x+(к-N)*(В/2)/(к-1),у-(Н/к)*N, где N номер секции самой елки (3-1,4-2,5-3)
4,6 делим на 2 координату Х у точки 5 Х+(Х5-Х)/2 и 7 Х+(Х7-Х)/2 соответственно, у так же считаем
Остальное симметрично относительно точки 1
Loky вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Создать процедуру. H0Jlb Win Api 0 16.02.2010 22:01
спрятать процедуру Bat{CMD}_Men Общие вопросы Delphi 6 21.01.2010 16:20
вызвать процедуру fize Помощь студентам 4 14.01.2010 01:51
Переделать процедуру AidarBik Общие вопросы Delphi 12 22.05.2008 14:59
подскажите процедуру Nova БД в Delphi 5 15.05.2008 16:43