Дорисовать к елке новогодней шар (чтобы он двигался вместе с елкой)

@swenty · Регистрация: 21.12.2017

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

Вот сам код:

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
uses GraphABC, Events;
const center=windowwidth div 2; p=10;
var ygol,xt,yt,th,tn,ox1,ox2,ox3,ox4,ox5,oy1,oy2,oy3,oy4,oy5,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5: integer; f:real;
procedure setka;
begin
TextOut(100,10,'Выполнил Васильев А.А');
TextOut(100,30,'Вариант 10-13');
setpencolor(clgreen);
setpencolor(clblack); setpenwidth(2);
line(0,windowheight div 2,700,windowwidth div 2);
line(windowwidth div 2,0,windowwidth div 2,700);
 setpencolor(clgreen);
end;
 
procedure tit;
begin
writeln('Вариант №13');
writeln('-');
writeln ('-');
writeln ('-');
readln;
end;
 
procedure grib;
begin
SetPenColor(clgreen);
line(x1,y1,x5,y5);//фигура
line(x3,y3,x2,y2);//фигура
line(x4,y4,x2,y2);//фигура
line(x3,y3,x4,y4);//фигура
end;
 
procedure kDown(key: integer);
begin
clearwindow;
if key=VK_Left then begin x1:=x1-p; x2:=x2-p; x3:=x3-p; x4:=x4-p; x5:=x5-p; end;
if key=VK_Right then begin x1:=x1+p; x2:=x2+p; x3:=x3+p; x4:=x4+p; x5:=x5+p; end;
if key=VK_Up then begin y1:=y1-p; y2:=y2-p; y3:=y3-p; y4:=y4-p; y5:=y5-p; end;
if key=VK_Down then begin y1:=y1+p; y2:=y2+p; y3:=y3+p; y4:=y4+p; y5:=y5+p; end;
if key=VK_Escape then CloseWindow;
 
{W}if key=$57 then
begin
th:=th+10; y3:=y3-p; y1:=y1-p;  y4:=y4-p; x4:=x4+p;           // y5:=y5-p; x2:=x2+p; y5:=y4;
tn:=tn+2; x1:=x1+p div 2 ; x5:=x5+p div 2; y1:=y1-p div 2; y5:=y5-p div 2; x2:=x1;                  // y5:=y5-p div 2; x5:=x4;
end;
{S}if ((key=$53)and(th>35)) then
begin
th:=th-2; y3:=y3+p; x4:=x4-p; y4:=y3;          // y5:=y5+p; x2:=x2-p; y5:=y4;
tn:=tn-2; y1:=y1+p; x1:=x1-p div 2; x5:=x5-p div 2; y1:=y1+p div 2; y5:=y5+p div 2; x2:=x1;     //y5:=y5-p div 2; x5:=x4;
end;
 
{A}if key=$41 then begin
f:=-30*pi/180;
ox1:=x1;oy1:=y1;ox2:=x2;oy2:=y2;ox3:=x3;oy3:=y3;ox4:=x4;oy4:=y4; ox5:=x5; oy5:=y5;
x1:=round(center+(ox1-center) * cos(f) - (oy1 - center) * sin(f));
y1:=round(center+(oy1-center) * cos(f) + (ox1 - center) * sin(f));
x2:=round(center+(ox2-center) * cos(f) - (oy2 - center) * sin(f));
y2:=round(center+(oy2-center) * cos(f) + (ox2 - center) * sin(f));
x3:=round(center+(ox3-center) * cos(f) - (oy3 - center) * sin(f));
y3:=round(center+(oy3-center) * cos(f) + (ox3 - center) * sin(f));
x4:=round(center+(ox4-center) * cos(f) - (oy4 - center) * sin(f));
y4:=round(center+(oy4-center) * cos(f) + (ox4 - center) * sin(f));
x5:=round(center+(ox5-center) * cos(f) - (oy5 - center) * sin(f));
y5:=round(center+(oy5-center) * cos(f) + (ox5 - center) * sin(f));
end;
 
{D}if key=$44 then begin
f:=30*pi/180;
ox1:=x1;oy1:=y1;ox2:=x2;oy2:=y2;ox3:=x3;oy3:=y3;ox4:=x4;oy4:=y4; ox5:=x5; oy5:=y5;
x1:=round(center+(ox1-center) * cos(f) - (oy1 - center) * sin(f));
y1:=round(center+(oy1-center) * cos(f) + (ox1 - center) * sin(f));
x2:=round(center+(ox2-center) * cos(f) - (oy2 - center) * sin(f));
y2:=round(center+(oy2-center) * cos(f) + (ox2 - center) * sin(f));
x3:=round(center+(ox3-center) * cos(f) - (oy3 - center) * sin(f));
y3:=round(center+(oy3-center) * cos(f) + (ox3 - center) * sin(f));
x4:=round(center+(ox4-center) * cos(f) - (oy4 - center) * sin(f));
y4:=round(center+(oy4-center) * cos(f) + (ox4 - center) * sin(f));
x5:=round(center+(ox5-center) * cos(f) - (oy5 - center) * sin(f));
y5:=round(center+(oy5-center) * cos(f) + (ox5 - center) * sin(f));
end;
 
{X}if key=$58 then begin
y1:=center+(center-y1);y2:=center+(center-y2);
y3:=center+(center-y3);y4:=center+(center-y4); y5:=center+(center-y5);
end;
{Y}if key=$59 then begin
x1:=center+(center-x1); x2:=center+(center-x2);
x3:=center+(center-x3); x4:=center+(center-x4);  x5:=center+(center-x5);
end;
{V}if key=$56 then begin
y1:=center+(center-y1);y2:=center+(center-y2);
y3:=center+(center-y3);y4:=center+(center-y4);  y5:=center+(center-y5);
x1:=center+(center-x1); x2:=center+(center-x2);
x3:=center+(center-x3); x4:=center+(center-x4);  x5:=center+(center-x5);
end;
 
setpencolor(clgreen);
SetWindowCaption('x='+IntToStr(x1-400)+' y='+IntToStr(y1-350));
setka;
grib;
redraw;
end;
 
BEGIN lockdrawing;
setwindowsize(700,700);
x1:=420; y1:=210; x2:=420; y2:=340;  tn:=30;
x3:=370; y3:=210; x4:=470; y4:=210;  th:=45;
 
x5:=420; y5:=190;
setka; grib;
OnKeyDown:=kDown;
read(xt);write(' ');readln(yt);clearwindow;
END.

Нужно добавить новогодний шар к этой елке.

@Puporev · 22.06.2018, 15:38

К какой елке? Что это вообще за программа?

Новые блоги и статьи Все статьи Все блоги /
Переходник USB-CAN-GPIO Eddy_Em 20.03.2026 Достаточно давно на работе возникла необходимость в переходнике CAN-USB с гальваноразвязкой, оный и был разработан. Однако, все меня терзала совесть, что аж 48-ногий МК используется так тупо: просто. . .	Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .
[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .	делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .

@Puporev Почетный модератор 64315 / 47611 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	22.06.2018, 15:38
	К какой елке? Что это вообще за программа? 0