Нарисовать гриб на координатной плоскости, чтобы он увеличивался и уменьшался с помощью стрелок

@ddiman11022000 · Регистрация: 11.10.2017

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

Как нарисовать гриб на координатной плоскости чтобы он увеличивался и уменьшался с помощью стрелок , чтоб можно было его двигать по координатной плоскости и чтобы его можно было отзеркалить

@Puporev · 25.05.2018, 14:18

Сообщение от ddiman11022000

его можно было отзеркалить

Это как?

Добавлено через 21 минуту
И какой Паскаль, просто АВС или АВС.net?

Сообщение от ddiman11022000

чтобы он увеличивался и уменьшался с помощью стрелок , чтоб можно было его двигать по координатной плоскости

Ну двигать понятно, есть 4 клавиши со стрелками, а чем увеличивать и уменьшать?

@ddiman11022000 · 06.06.2018, 18:21 **[ТС]**

вот такой код, нужен более красивый грибок чем вот это из двух палок если вам не сложно помогите

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
uses GraphABC, Events;
const center=windowwidth div 2; p=10;
var ygol,xt,yt,th,tn,ox1,ox2,ox3,ox4,oy1,oy2,oy3,oy4,x1,y1,x2,y2,x3,y3,x4,y4: 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 tit; begin
setwindowcaption('Титульный лист');
setfontcolor(clblue); setfontsize(14); textout(200,50,'Лабораторная работа №9-13');
textout(200,100,'Тема: обработка событий');
textout(200,150,'Задание 15 варианта');
textout(200,250,'Выполнил: Мельников Д А');
sleep(2500); clearwindow; setwindowcaption('Выполнение');end;
 
procedure grib;
begin
SetPenColor(cllightgray); setpenwidth(tn);SetBrushColor(cllightgray); line(x1,y1,x2,y2);//ножка
SetPenColor(clbrown); setpenwidth(th);SetBrushColor(clbrown); 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 end;
if key=VK_Right then begin x1:=x1+p; x2:=x2+p; x3:=x3+p; x4:=x4+p end;
if key=VK_Up then begin y1:=y1-p; y2:=y2-p; y3:=y3-p; y4:=y4-p end;
if key=VK_Down then begin y1:=y1+p; y2:=y2+p; y3:=y3+p; y4:=y4+p end;
if key=VK_Escape then CloseWindow;
{W}if key=$57 then
begin
th:=th+2; y3:=y3-p;x4:=x4+p;y4:=y3;
tn:=tn+2; y1:=y1-p;x1:=x1+p div 2;x2:=x1;
end;
{S}if ((key=$53)and(th>35)) then
begin
th:=th-2; y3:=y3+p; x4:=x4-p; y4:=y3;
tn:=tn-2; y1:=y1+p; x1:=x1-p div 2; x2:=x1;
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;
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));
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;
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));
end;
 
{Q}if key=$51 then begin
f:=-ygol*pi/180;
ox1:=x1;oy1:=y1;ox2:=x2;oy2:=y2;ox3:=x3;oy3:=y3;ox4:=x4;oy4:=y4;
x1:=round(xt+(ox1-xt) * cos(f) - (oy1 - yt) * sin(f));
y1:=round(xt+(oy1-xt) * cos(f) + (ox1 - yt) * sin(f));
x2:=round(xt+(ox2-xt) * cos(f) - (oy2 - yt) * sin(f));
y2:=round(xt+(oy2-xt) * cos(f) + (ox2 - yt) * sin(f));
x3:=round(xt+(ox3-xt) * cos(f) - (oy3 - yt) * sin(f));
y3:=round(xt+(oy3-xt) * cos(f) + (ox3 - yt) * sin(f));
x4:=round(xt+(ox4-xt) * cos(f) - (oy4 - yt) * sin(f));
y4:=round(xt+(oy4-xt) * cos(f) + (ox4 - yt) * sin(f));
end;
 
{E}if key=$45 then begin
f:=ygol*pi/180;
ox1:=x1;oy1:=y1;ox2:=x2;oy2:=y2;ox3:=x3;oy3:=y3;ox4:=x4;oy4:=y4;
x1:=round(xt+(ox1-xt) * cos(f) - (oy1 - yt) * sin(f));
y1:=round(xt+(oy1-xt) * cos(f) + (ox1 - yt) * sin(f));
x2:=round(xt+(ox2-xt) * cos(f) - (oy2 - yt) * sin(f));
y2:=round(xt+(oy2-xt) * cos(f) + (ox2 - yt) * sin(f));
x3:=round(xt+(ox3-xt) * cos(f) - (oy3 - yt) * sin(f));
y3:=round(xt+(oy3-xt) * cos(f) + (ox3 - yt) * sin(f));
x4:=round(xt+(ox4-xt) * cos(f) - (oy4 - yt) * sin(f));
y4:=round(xt+(oy4-xt) * cos(f) + (ox4 - yt) * 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);
end;
{Y}if key=$59 then begin
x1:=center+(center-x1); x2:=center+(center-x2);
x3:=center+(center-x3); x4:=center+(center-x4);
end;
{V}if key=$56 then begin
y1:=center+(center-y1);y2:=center+(center-y2);
y3:=center+(center-y3);y4:=center+(center-y4);
x1:=center+(center-x1); x2:=center+(center-x2);
x3:=center+(center-x3); x4:=center+(center-x4);
end;
 
SetWindowCaption('x='+IntToStr(x1-420)+' y='+IntToStr(y1-210));
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;
setka; grib;
OnKeyDown:=kDown;
write('Введите угол вращения '); readln(ygol);
write('Введите координаты точки вращения ');
read(xt);write(' ');readln(yt);clearwindow;
end.

Добавлено через 6 минут
я просто хз как делать паскаль АВС

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

@ddiman11022000 0 / 0 / 1 Регистрация: 11.10.2017 Сообщений: 22

	Нарисовать гриб на координатной плоскости, чтобы он увеличивался и уменьшался с помощью стрелок 25.05.2018, 12:45. Показов 4356. Ответов 2 Метки нет (Все метки) Как нарисовать гриб на координатной плоскости чтобы он увеличивался и уменьшался с помощью стрелок , чтоб можно было его двигать по координатной плоскости и чтобы его можно было отзеркалить 0

Нарисовать гриб на координатной плоскости, чтобы он увеличивался и уменьшался с помощью стрелок

Решение