Переделать грибок на снеговика(зеркалирование)

@wonderfu1 · Регистрация: 01.06.2018

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

Клавиша для начало работы зеркалирования - V

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
uses graphabc,Events;
const center=windowwidth div 2; p=10;
var ygol,d,xt,yt,th,tn,ox5,ox6,ox7,ox8,oy5,oy6,oy7,oy8,ox9,oy9,ox10,oy10, x,y,
ox1,ox2,ox3,ox4,oy1,oy2,oy3,oy4,x1,y1,x2,y2,x3,y3,x4,y4,x5,y5,x6,y6, x7,y7,y8,x8,oxa,oya,oxb,oyb,oxc,oyc,oxd,oyd,oxe,oye,oxf,oyf,ox11,ox12,oy11,oy12,ox13,ox14,oy13,oy14,
x9,x10,y9,y10,xa,ya,xb,yb,xc,yc,xd,yd,xe,xf,ye,yf,x11,x12,y11,y12,x13,x14,y13,y14,x15,x16,y15,y16,x17,x18,y17,y18,ox15,ox16,oy15,oy16,ox17,ox18,oy17,oy18,ox19,ox20,oy19,oy20,ox21,ox22,oy21,oy22,x19,x20,y19,y20,x21,x22,y21,y22: integer; f:real;
procedure setka;
begin
setpencolor(clblack); setpenwidth(2);
line(0,windowheight div 2,700,windowwidth div 2);
line(windowwidth div 2,0,windowwidth div 2,700);
end;
procedure tank;
begin
line(x1,y1,x2,y2);
line(x3,y3,x4,y4);
line(x5,y5,x6,y6);
line(x8,y8,x7,y7);
line(x11,y11,x12,y12);
line(x13,y13,x14,y14);
line(x15,y15,x16,y16);
end;
procedure kDown(key: integer);
begin
clearwindow;
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);y6:=center+(center-y6);
y7:=center+(center-y7);y8:=center+(center-y8);
y9:=center+(center-y9);y10:=center+(center-y10);
y11:=center+(center-y11);y12:=center+(center-y12);
y13:=center+(center-y13);y14:=center+(center-y14);
y15:=center+(center-y15);y16:=center+(center-y16);
y17:=center+(center-y17);y18:=center+(center-y18);
y19:=center+(center-y19);y20:=center+(center-y20);
y21:=center+(center-y21);y22:=center+(center-y22);
ya:=center+(center-ya);yb:=center+(center-yb);
yc:=center+(center-yc);yd:=center+(center-yd);
ye:=center+(center-ye);yf:=center+(center-yf);
end;
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);x6:=center+(center-x6);
x7:=center+(center-x7);x8:=center+(center-x8);
x9:=center+(center-x9);x10:=center+(center-x10);
x11:=center+(center-x11);x12:=center+(center-x12);
x13:=center+(center-x13);x14:=center+(center-x14);
x15:=center+(center-x15);x16:=center+(center-x16);
x17:=center+(center-x17);x18:=center+(center-x18);
x19:=center+(center-x19);x20:=center+(center-x20);
x21:=center+(center-x21);x22:=center+(center-x22);
xa:=center+(center-xa);xb:=center+(center-xb);
xc:=center+(center-xc);xd:=center+(center-xd);
xe:=center+(center-xe);xf:=center+(center-xf);
end;
if key=$56 then begin
x1:=center+(center-x1);x2:=center+(center-x2);
x3:=center+(center-x3);x4:=center+(center-x4);
x5:=center+(center-x5);x6:=center+(center-x6);
x7:=center+(center-x7);x8:=center+(center-x8);
x9:=center+(center-x9);x10:=center+(center-x10);
x11:=center+(center-x11);x12:=center+(center-x12);
x13:=center+(center-x13);x14:=center+(center-x14);
x15:=center+(center-x15);x16:=center+(center-x16);
x17:=center+(center-x17);x18:=center+(center-x18);
x19:=center+(center-x19);x20:=center+(center-x20);
x21:=center+(center-x21);x22:=center+(center-x22);
xa:=center+(center-xa);xb:=center+(center-xb);
xc:=center+(center-xc);xd:=center+(center-xd);
xe:=center+(center-xe);xf:=center+(center-xf);
y1:=center+(center-y1);y2:=center+(center-y2);
y3:=center+(center-y3);y4:=center+(center-y4);
y5:=center+(center-y5);y6:=center+(center-y6);
y7:=center+(center-y7);y8:=center+(center-y8);
y9:=center+(center-y9);y10:=center+(center-y10);
y11:=center+(center-y11);y12:=center+(center-y12);
y13:=center+(center-y13);y14:=center+(center-y14);
y15:=center+(center-y15);y16:=center+(center-y16);
y17:=center+(center-y17);y18:=center+(center-y18);
y19:=center+(center-y19);y20:=center+(center-y20);
y21:=center+(center-y21);y22:=center+(center-y22);
ya:=center+(center-ya);yb:=center+(center-yb);
yc:=center+(center-yc);yd:=center+(center-yd);
ye:=center+(center-ye);yf:=center+(center-yf);
end;
SetWindowCaption('x='+IntToStr(x1-420)+' y='+IntToStr(y1-210));
tank; redraw;setka;
end;
begin
setka;
setwindowsize(700,700);
x1:=240; y1:=300; x2:=260; y2:=300; x11:=210; x12:=220;y11:=250;y12:=225;
x5:=210; x6:=290; y5:=250; y6:=250; x7:=260; x13:=220; x14:=280;y13:=225;y14:=225;
x8:=260; y7:=250; y8:=300; x9:=200; x10:=175; y9:=250; y10:=275; x15:=280;x16:=290;y15:=225;y16:=250;
xa:=175; xb:=200; ya:=275;yb:=300;  xc:=300;xd:=325;yc:=250;yd:=275; x17:=283;x18:=325;y17:=230;y18:=230;
x3:=240; y3:=300; x4:=240; y4:=250; th:=45; xe:=325;xf:=300;ye:=275;yf:=300;
x19:=325;x20:=325;y19:=230;y20:=235; x21:=325;x22:=284;y21:=235;y22:=235;
tank;
clearwindow;
setka;
OnKeyDown:=kDown;
end.

@Semtos · 09.10.2018, 12:59

клавиши v и с

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
Program SnowMan;
uses GraphABC,Events;
var k:integer;
procedure KeyDown(Key: integer);
begin
   case Key of
  VK_V: k:=0;
  VK_C: k:=1;
    end;
  //----------------
  // обычном положение по нажатию клавиши v
  if k=0 then begin 
  //размер окна
  setwindowsize (700,600);
  //Заголовок
  setwindowtitle ('Снеговик');
  //устанавливает ширину пера, равную w пикселам.
  setpenwidth(3);
  // устанавливает цвет пера, задаваемый параметром color.
  setpencolor(clred);
  //рисуем снеговика
  //----------------
  circle(150,100,35);//тело
  circle(140,100,10);//глаз 1
  circle(160,100,10);//глаз 2
  line(140,120,160,120);//рот
  circle(150,200,65);//тело
  circle(150,350,85);//тело
  //----------------
  setfontcolor(clblue);
  setfontstyle(fsbold);
  //Возращаем надпись
  textout (100,20,'Снеговик!');
  end;
  //----------------
  //в перевернутом положение по нажати клавиши с
  if k=1 then begin  
  //тело
  circle(350,150,85);
  circle(350,300,65);
  circle(350,400,35);
  //глаза и рот
  circle(340,400,10);
  circle(360,400,10);
  line(340,380,360,380);
  textout (300,20,'Перевернутый Снеговик!');
  end;
end;
begin
  // Привязка обработчиков к событиям
  OnKeyDown := KeyDown; 
end.

@wonderfu1 · 26.11.2018, 14:42 **[ТС]**

Спасибо)

Новые блоги и статьи Все статьи Все блоги /
Как использовать OAuth2 со Spring Security в Java Javaican 14.05.2025 Протокол OAuth2 часто путают с механизмами аутентификации, хотя по сути это протокол авторизации. Представьте, что вместо передачи ключей от всего дома вашему другу, который пришёл полить цветы, вы. . .	Анализ текста на Python с NLTK и Spacy AI_Generated 14.05.2025 NLTK, старожил в мире обработки естественного языка на Python, содержит богатейшую коллекцию алгоритмов и готовых моделей. Эта библиотека отлично подходит для образовательных целей и. . .	Реализация DI в PHP Jason-Webb 13.05.2025 Когда я начинал писать свой первый крупный PHP-проект, моя архитектура напоминала запутаный клубок спагетти. Классы создавали другие классы внутри себя, зависимости жостко прописывались в коде, а о. . .	Обработка изображений в реальном времени на C# с OpenCV stackOverflow 13.05.2025 Объединение библиотеки компьютерного зрения OpenCV с современным языком программирования C# создаёт симбиоз, который открывает доступ к впечатляющему набору возможностей. Ключевое преимущество этого. . .	POCO, ACE, Loki и другие продвинутые C++ библиотеки NullReferenced 13.05.2025 В C++ разработки существует такое обилие библиотек, что порой кажется, будто ты заблудился в дремучем лесу. И среди этого многообразия POCO (Portable Components) – как маяк для тех, кто ищет. . .
Паттерны проектирования GoF на C# UnmanagedCoder 13.05.2025 Вы наверняка сталкивались с ситуациями, когда код разрастается до неприличных размеров, а его поддержка становится настоящим испытанием. Именно в такие моменты на помощь приходят паттерны Gang of. . .	Создаем CLI приложение на Python с Prompt Toolkit py-thonny 13.05.2025 Современные командные интерфейсы давно перестали быть черно-белыми текстовыми программами, которые многие помнят по старым операционным системам. CLI сегодня – это мощные, интуитивные и даже. . .	Конвейеры ETL с Apache Airflow и Python AI_Generated 13.05.2025 ETL-конвейеры – это набор процессов, отвечающих за извлечение данных из различных источников (Extract), их преобразование в нужный формат (Transform) и загрузку в целевое хранилище (Load). . . .	Выполнение асинхронных задач в Python с asyncio py-thonny 12.05.2025 Современный мир программирования похож на оживлённый мегаполис – тысячи процессов одновременно требуют внимания, ресурсов и времени. В этих джунглях операций возникают ситуации, когда программа. . .	Работа с gRPC сервисами на C# UnmanagedCoder 12.05.2025 gRPC (Google Remote Procedure Call) — открытый высокопроизводительный RPC-фреймворк, изначально разработанный компанией Google. Он отличается от традиционых REST-сервисов как минимум тем, что. . .

@wonderfu1 0 / 0 / 0 Регистрация: 01.06.2018 Сообщений: 37
	26.11.2018, 14:42 [ТС]
	Спасибо) 0

Опции темы

Переделать грибок на снеговика(зеркалирование)

Решение