Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Карта форума Темы раздела Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
1 / 1 / 3
Регистрация: 25.05.2010
Сообщений: 11
1

Графика

02.06.2010, 15:14. Показов 1224. Ответов 1
Метки нет (Все метки)

Author24 — интернет-сервис помощи студентам
Кривые дракона могут быть построены с помощью следующего рекуррентного метода. Каждой кривой ставится в соответствие последовательность,состоящая из нулей и единиц(будем называть ее двоичной формулой), где единица соответствует повороту кривой налево,а нуль направо. Кривая дракона 1го порядка имеет двоичную формулу 1. Для того чтобы получить двоичную формулу кривой дракона каждого следующего порядка, следует приписать справа к формуле кривой предыдущего порядка единицу. Полученная последовательность даст половину искомой формулы. Затем в последовательности цифр,предшествующих приписной единице, следует заменить на нуль единицу,стоящую в ее середине,посл чего приписать полученную последовательность справа от уже построенной части формулы. Кривая дракона второго порядка- двоичная формула:110. Третьего порядка:1101100. Кривые строятся от хвоста к голове дракона и повернуты так, чтобы драконы "плыли" направо,а пасть и кончик хвоста касались "поверхности воды".
Задачи по программированию С.А.Абрамов
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
02.06.2010, 15:14
Ответы с готовыми решениями:

Графика.Цена деления графика.
Нужно доделать сие творение!Не хватает цены деления хотя бы 3 засечки по иксу в право и по игреку в...

графика
(x^2+y^2)(x^2+y^2-20*a*x)-a^2*y^2=0, a>0

Графика
Мне нужно нарисовать три цветных карандаша(рисунка), я нарисовала один, но паскаль упорно...

Графика
Нужно несколько прог.....:wall: рисунки.....не мего сложные(машинка,человечек и тд и...

1
1 / 1 / 3
Регистрация: 25.05.2010
Сообщений: 11
10.06.2010, 11:20  [ТС] 2
Лучший ответ Сообщение было отмечено Юльчипушка как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
program dragon; 
uses graph; 
var k,d,m:integer; 
procedure ris(x1,y1,x2,y2,k:integer); 
var xn,yn:integer; 
begin 
   if k>0 then 
   begin 
      xn:=(x1+x2) div 2 +(y2-y1) div 2; 
      yn:=(y1+y2) div 2 -(x2-x1) div 2; 
      ris(x1,y1,xn,yn,k-1); 
      ris(x2,y2,xn,yn,k-1); 
   end 
   else begin line(x1,y1,x2,y2); end; 
end; 
begin 
   readln ( k );{§*Ө*Ҙ¬ Ҝ®апӨ®Ә ӘаЁў®©} 
   d:=detect; 
   initgraph(d,m,"e:\bp\bgi"); 
   ris(200,300,500,300,k); 
   readln; 
end.
0
10.06.2010, 11:20
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
10.06.2010, 11:20
Помогаю со студенческими работами здесь

Графика.
Ребята,огромная просьба. Помогите с задачей. Все никак сделать не могу ;( Согласно варианту...

графика
А как построить вот такие задачки? • построения мозаичного изображения; • графического...

Графика
uses crt,graph; var pox,poy,k,i,j,pogor,povert,c, x1,y1,x2,y2,x3,y3,x1s,y1s,x2s,y2s,x3s,y3s,...

Графика
Построить изображение применив какой нибудь стиль закраски, выручите люди добрые


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2024, CyberForum.ru