|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
06.03.2011, 00:55 | #1 |
Регистрация: 06.03.2011
Сообщений: 4
|
Рекурсивное разбиение прямоугольной области правильным n-угольником
Имеется алгоритмический язык.Помогите реализовать на паскале.
Код:
|
06.03.2011, 05:22 | #2 | |
Форумчанин
Регистрация: 04.02.2011
Сообщений: 260
|
Цитата:
|
|
06.03.2011, 10:19 | #3 |
Старожил
Регистрация: 20.04.2008
Сообщений: 5,528
|
алг procedure RectangleDraw
(арг цел Current_It :integer:integer,;int Count_It, арг вещ Radius:real,; Xc, Yc, арг цел n) еслиif Current_It = Count_It то then begin всеend иначе else begin нц дляfor i от:= 0 до to n begin| Coord[i].x:=IX(Xc + Radius*cos(i*2*M_PI/n)) Coord[i].y:=IY(Yc + Radius*sin(i*2*M_PI/n)) кц end и and и расставить скобки () в если ( (Xc - Radius)>= Xm и Xc + Radius <= XM и Yc - Radius >= Ym и Yc + Radius <=YM ) то
программа — запись алгоритма на языке понятном транслятору
Последний раз редактировалось evg_m; 06.03.2011 в 10:21. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Проблема с правильным выводом текста | Bigtyoma | Общие вопросы Delphi | 1 | 08.11.2010 23:25 |
Рекурсивное зацикливание | Alex_Almaty | Помощь студентам | 8 | 06.07.2010 07:49 |
Разбиение области на прямоугольные элементы | Vitkov | Помощь студентам | 1 | 29.09.2008 22:48 |
Разбиение окна на области? | HunterMan | Win Api | 2 | 03.04.2008 22:18 |