Движение лепестков крутились по часовой стрелке

@noyan · Регистрация: 09.01.2011

Студворк — интернет-сервис помощи студентам

Мне надо что бы это ромашка, точнее ее лепестки крутились по часовой стрелке! Как сделать не пойму:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
uses Turtle,GraphABC;
const 
  N=14;
  R=300;
  Rmin=50;
  d=50;
procedure Lepestok (Rmin,R,p: real);
 procedure Vspom(sign: integer);
 var n,i: integer;
 begin
  Center;
  SetTurtlePhi(p);
  Turn(90);
  Forw(RMin);
  Turn(-sign*30);
  PenDown;
  n:=30;
  for i:=1 to 6 do
  begin
    forw(R*sin(Pi/n));
    Turn(sign*360/n);
  end;
  PenUp;
 end;
 begin
  Vspom(1);
  Vspom(-1);
end;
var i: integer;
begin
  SetWindowCaption('Черепашья графика: ромашка');
  SetWindowSize(500,500);
  Init;
  for i:=0 to N-1 do
    Lepestok(Rmin,R,i*360/N);
  SetBrushColor(clYellow);
  Ellipse(WindowWidth div 2 - d,WindowHeight div 2 - d,
          WindowWidth div 2 + d,WindowHeight div 2 + d);
end.

@Puporev · 22.04.2011, 21:35

У Вас там используется какой-то самопальный модуль Turtle, у нас его нет...

@noyan · 22.04.2011, 21:41 **[ТС]**

Извиняюсь что забыл добавить! Вот ;

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
unit Turtle;
 
uses GraphABC;
 
const Pi=3.141592;
 
var
  _up: boolean;
  _xx,_yy,_phi: real;
 
procedure PenUp;
begin
  _up:=True;
end;
 
procedure PenDown;
begin
  _up:=False;
end;
 
procedure ToPoint (x,y: real);
begin
  if not _up then Line(Round(x),Round(y),Round(_xx),Round(_yy));
  _xx:=x;
  _yy:=y;
end;
 
procedure OnVector (dx,dy: real);
begin
  ToPoint(_xx+dx,_yy+dy);
end;
 
procedure Forw (r: real);
begin
  OnVector(r*cos(_phi*Pi/180),r*sin(_phi*Pi/180));
end;
 
procedure Turn (dphi: real);
begin
  _phi:=_phi-dphi;
end;
 
procedure Center;
begin
  ToPoint(WindowWidth div 2,WindowHeight div 2);
end;
 
procedure Init;
begin
  PenUp;
  Center;
end;
 
function TurtleX: real;
begin
  Result:=_xx
end;
 
function TurtleY: real;
begin
  Result:=_yy
end;
 
function TurtlePhi: real;
begin
  Result:=_Phi
end;
 
procedure SetTurtleX(x: real);
begin
  _xx:=x
end;
 
procedure SetTurtleY(y: real);
begin
  _yy:=y
end;
 
procedure SetTurtlePhi(phi: real);
begin
  _phi:=phi
end;
 
end.

@Puporev · 23.04.2011, 06:56

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
uses Turtle,GraphABC,crt; //подключим crt для выхода из программы по нажатию клавиши, не обязательно
const
  N=14;
  R=300;
  Rmin=50;
  d=50;
procedure Lepestok (Rmin,R,p: real;c:integer); //добавим параметр-цвет
 procedure Vspom(sign: integer);
 var n,i: integer;
 begin
  setpencolor(c);//цвет черный или белый
  Center;
  SetTurtlePhi(p);
  Turn(90);
  Forw(RMin);
  Turn(-sign*30);
  PenDown;
  n:=30;
  for i:=1 to 6 do
  begin
    forw(R*sin(Pi/n));
    Turn(sign*360/n);
  end;
  PenUp;
 end;
 begin
  Vspom(1);
  Vspom(-1);
end;
var i,u: integer; //добавим переменную - угол поворота
begin
  SetWindowCaption('Черепашья графика: ромашка');
  SetWindowSize(500,500);
  Init;
  hidecursor;//уберем курсор от crt
  SetBrushColor(clYellow);
  Ellipse(WindowWidth div 2 - d,WindowHeight div 2 - d,
          WindowWidth div 2 + d,WindowHeight div 2 + d);
  u:=0; //начнем с ноля
  repeat
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clblack); //рисуем черным
  sleep(500); //задержка(можно delay(500))
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clwhite); //рисуем белым-стираем
  u:=u+10;//поворачиваем на 10 гр. можно менять
  if u=360 then u:=0;//чтобы не накапливалось очень большое значение после оборота обнуляем
  until keypressed;  //по нажатию клавиши останавливаем
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clblack);//рисуем
end.

@noyan · 23.04.2011, 08:12 **[ТС]**

Ооо огромное спасибо тебе!!! По гроб жизни благодарен!

@Нарбек · 24.05.2011, 20:15

Puporev, а никак нельзя такую же программу сделать без модуля Turtle?

@Puporev · 24.05.2011, 20:26

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
uses GraphABC,crt;
const
  N=14;
  R=300;
  Rmin=50;
  d=50;
var
  _up: boolean;
  _xx,_yy,_phi: real;
 
procedure PenUp;
begin
  _up:=True;
end;
 
procedure PenDown;
begin
  _up:=False;
end;
 
procedure ToPoint (x,y: real);
begin
  if not _up then Line(Round(x),Round(y),Round(_xx),Round(_yy));
  _xx:=x;
  _yy:=y;
end;
 
procedure OnVector (dx,dy: real);
begin
  ToPoint(_xx+dx,_yy+dy);
end;
 
procedure Forw (r: real);
begin
  OnVector(r*cos(_phi*Pi/180),r*sin(_phi*Pi/180));
end;
 
procedure Turn (dphi: real);
begin
  _phi:=_phi-dphi;
end;
 
procedure Center;
begin
  ToPoint(WindowWidth div 2,WindowHeight div 2);
end;
 
procedure Init;
begin
  PenUp;
  Center;
end;
 
function TurtleX: real;
begin
  Result:=_xx
end;
 
function TurtleY: real;
begin
  Result:=_yy
end;
 
function TurtlePhi: real;
begin
  Result:=_Phi
end;
 
procedure SetTurtleX(x: real);
begin
  _xx:=x
end;
 
procedure SetTurtleY(y: real);
begin
  _yy:=y
end;
 
procedure SetTurtlePhi(phi: real);
begin
  _phi:=phi
end;
 
 
procedure Lepestok (Rmin,R,p: real;c:integer); //добавим параметр-цвет
 procedure Vspom(sign: integer);
 var n,i: integer;
 begin
  setpencolor(c);//цвет черный или белый
  Center;
  SetTurtlePhi(p);
  Turn(90);
  Forw(RMin);
  Turn(-sign*30);
  PenDown;
  n:=30;
  for i:=1 to 6 do
  begin
    forw(R*sin(Pi/n));
    Turn(sign*360/n);
  end;
  PenUp;
 end;
 begin
  Vspom(1);
  Vspom(-1);
end;
var i,u: integer; //добавим переменную - угол поворота
begin
  SetWindowCaption('Черепашья графика: ромашка');
  SetWindowSize(500,500);
  Init;
  hidecursor;//уберем курсор от crt
  SetBrushColor(clYellow);
  Ellipse(WindowWidth div 2 - d,WindowHeight div 2 - d,
          WindowWidth div 2 + d,WindowHeight div 2 + d);
  u:=0; //начнем с ноля
  repeat
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clblack); //рисуем черным
  sleep(500); //задержка(можно delay(500))
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clwhite); //рисуем белым-стираем
  u:=u+10;//поворачиваем на 10 гр. можно менять
  if u=360 then u:=0;//чтобы не накапливалось очень большое значение после оборота обнуляем
  until keypressed;  //по нажатию клавиши останавливаем
  for i:=0 to N-1 do
  Lepestok(Rmin,R,i*360/N+u,clblack);//рисуем
end.

@Нарбек · 24.05.2011, 20:30

хаааа классс вот это тема), благодарю!

@rom4_ik · 13.04.2012, 19:02

можно ли сделать что бы у этой ромашки лепестки были разноцветные???

Новые блоги и статьи Все статьи Все блоги /
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.
Фиксация колонок в отчете СКД Maks 14.04.2026 Фиксация колонок в СКД отчета типа Таблица. Задача: зафиксировать три левых колонки в отчете. Процедура ПриКомпоновкеРезультата(ДокументРезультат, ДанныеРасшифровки, СтандартнаяОбработка) / / . . .	Настройки VS Code Loafer 13.04.2026 { "cmake. configureOnOpen": false, "diffEditor. ignoreTrimWhitespace": true, "editor. guides. bracketPairs": "active", "extensions. ignoreRecommendations": true, . . .	Оптимизация кода на разграничение прав доступа к элементам формы Maks 13.04.2026 Алгоритм из решения ниже реализован на нетиповом документе, разработанного в конфигурации КА2. Задачи, как таковой, поставлено не было, проделанное ниже исключительно моя инициатива. Было так:. . .	Контроль заполнения и очистка дат в зависимости от значения перечислений Maks 12.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеПерсонала", разработанного в конфигурации КА2. Задача: реализовать контроль корректности заполнения дат назначения. . .

@Puporev Почетный модератор 64319 / 47615 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.04.2011, 21:35
	У Вас там используется какой-то самопальный модуль Turtle, у нас его нет... 0

@noyan 1 / 1 / 0 Регистрация: 09.01.2011 Сообщений: 90
	23.04.2011, 08:12 [ТС]
	Ооо огромное спасибо тебе!!! По гроб жизни благодарен! 0

@Нарбек 7 / 7 / 1 Регистрация: 11.01.2011 Сообщений: 78
	24.05.2011, 20:15
	Puporev, а никак нельзя такую же программу сделать без модуля Turtle? 0

@Нарбек 7 / 7 / 1 Регистрация: 11.01.2011 Сообщений: 78
	24.05.2011, 20:30
	хаааа классс вот это тема), благодарю! 0

@rom4_ik 0 / 0 / 0 Регистрация: 11.12.2011 Сообщений: 11
	13.04.2012, 19:02
	можно ли сделать что бы у этой ромашки лепестки были разноцветные??? 0