Круг перемещается по экрану с помощью клавиш управления курсора

@skazochnaia163 · Регистрация: 19.05.2014

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

Круг передвигается по экрану с помощью ←,· *, ↓, →. При нажатии клавиши «пробел» меняется

стиль заполнения случайным образом. При нажатии Enter случайным образом меняется цвет

закраски. Выход по Esc.

@Puporev · 19.05.2014, 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
uses crt,graph;
 
procedure krug(xc,yc:integer;r,c,k:integer);
begin
setcolor(c);
setfillstyle(k,c);
fillellipse(xc,yc,r,r)
end;
 
var x,y,r,cv,st,d:integer;
    k:char;
begin
initgraph(x,y,'');
randomize;
x:=getmaxX div 2;
y:=getmaxY div 2;
r:=20;
cv:=12;
st:=1;
outtextXY(x-150,20,'Dvizenie - Strelki, Style - Spase, Color - Enter');
outtextXY(x-50,40,'Exit - Esc');
krug(x,y,r,cv,st);
repeat
if keypressed then
 begin
  k:=readkey;
  if k=#0 then k:=readkey;
  case k of
  #80:begin
      delay(100);
      krug(x,y,r,0,st);
      if y>getmaxY-r-10 then d:=0
      else d:=10;
      y:=y+d;
      krug(x,y,r,cv,st);
      end;
  #72:begin
      delay(100);
      krug(x,y,r,0,st);
      if y<50+r+10 then d:=0
      else d:=10;
      y:=y-d;
      krug(x,y,r,cv,st);
      end;
  #77:begin
      delay(100);
      krug(x,y,r,0,st);
      if x>getmaxX-r-10 then d:=0
      else d:=10;
      x:=x+d;
      krug(x,y,r,cv,st);
      end;
  #75:begin
      delay(100);
      krug(x,y,r,0,st);
      if x<r+10 then d:=0
      else d:=10;
      x:=x-d;
      krug(x,y,r,cv,st);
      end;
  #32:begin
      krug(x,y,r,0,st);
      st:=1+random(10);
      krug(x,y,r,cv,st);
      end;
  #13:begin
      krug(x,y,r,0,st);
      cv:=1+random(15);
      krug(x,y,r,cv,st);
      end;
  #27:exit;
  end;
 end;
until k=#27;
readln
end.

@skazochnaia163 · 19.05.2014, 20:53 **[ТС]**

Спасибо, конечно, а можно в Pascal ABC.NET

@Puporev · 19.05.2014, 20:54

Вообще-то это раздел Турбо Паскаль, смотрите куда тему лепите.

@skazochnaia163 · 19.05.2014, 21:01 **[ТС]**

Простите пожалуйста, не разобралась ещё! ПРОСТИТЕ!

@Puporev · 19.05.2014, 21:48

Программу в .Net выложил в этой теме.
https://www.cyberforum.ru/pasc... 81388.html

@Puporev · 19.05.2014, 21:50

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
uses graphABC;
const strih:array[0..9] of Hatchstyle=(bhHorizontal,bhVertical,bhForwardDiagonal,
                                       bhBackwardDiagonal,bhCross,bhDiagonalCross,
                                       bhLargeConfetti,bhDiagonalBrick,bhPlaid,
                                       bhSolidDiamond);
      cvet:array[0..9] of Color=(clBlue,clFuchsia,clGreen,clLime,clMagenta,
                                 clRed,clPurple,clSkyBlue,clOrange,clNavy);
var xc,yc,x,y,r,d:integer;
    cv:Color;
    st:Hatchstyle;
    f:boolean;
procedure krug(x,y,r:integer;cv:Color;st:Hatchstyle);
begin
pen.Color:=cv;
brush.Hatch:=st;
brush.Color:=cv;
circle(x,y,r);
end;    
procedure KeyDown(Key: integer);
begin
case Key of
VK_Left:begin
        clearwindow;
        setbrushstyle(bsClear);
        textout(xc-180,20,'Управление - стрелки, смена цвета - Enter, смена стиля - Spase');
        textout(xc-50,40,'Выход - Esc');
        if x<=r+10 then d:=0
        else d:=10;
        x:=x-d;
        brush.Style:=bsHatch;
        krug(x,y,r,cv,st);
        sleep(100);
        redraw
        end;  
VK_Right:begin
         clearwindow;
         setbrushstyle(bsClear);
         textout(xc-180,20,'Управление - стрелки, смена цвета - Enter, смена стиля - Spase');
         textout(xc-50,40,'Выход - Esc');
         if x>windowwidth-r-10 then d:=0
         else d:=10;
         x:=x+d;
         brush.Style:=bsHatch;
         krug(x,y,r,cv,st);
         sleep(100);
         redraw
         end; 
VK_Up:begin
      clearwindow;
      setbrushstyle(bsClear);
      textout(xc-180,20,'Управление - стрелки, смена цвета - Enter, смена стиля - Spase');
      textout(xc-50,40,'Выход - Esc');
      if y<50+2*r then d:=0
      else d:=10;
      y:=y-d;
      brush.Style:=bsHatch;
      krug(x,y,r,cv,st);
      sleep(100);
      redraw
      end;    
VK_Down:begin
        clearwindow;
        setbrushstyle(bsClear);
        textout(xc-180,20,'Управление - стрелки, смена цвета - Enter, смена стиля - Spase');
        textout(xc-50,40,'Выход - Esc');
        if y>windowheight-r-10 then d:=0
        else d:=10;
        y:=y+d;
        brush.Style:=bsHatch;
        krug(x,y,r,cv,st);
        sleep(100);
        redraw;
        end;
VK_Space:begin
         st:=strih[random(10)];
         krug(x,y,r,cv,st);
         sleep(100);
         redraw;
         end;
VK_Return:begin
          cv:=cvet[random(10)];
          krug(x,y,r,cv,st);
          sleep(100);
          redraw;
          end;
VK_Escape:f:=false
end;
end;
 
begin
f:=true;
xc:=windowwidth div 2;
yc:=windowheight div 2;
x:=xc;
y:=yc;
r:=20;
 
textout(xc-180,20,'Управление - стрелки, смена цвета - Enter, смена стиля - Spase');
textout(xc-50,40,'Выход - Esc');
brush.Style:=bsHatch;
cv:=clRed;
st:=bhCross;
krug(x,y,r,cv,st);
lockdrawing;
repeat
OnKeyDown := KeyDown;
until f=false
end.

Новые блоги и статьи Все статьи Все блоги /
Символьное дифференцирование igorrr37 13.02.2026 / * Логарифм записывается как: (x-2)log(x^2+2) - означает логарифм (x^2+2) по основанию (x-2). Унарный минус обозначается как ! в-строка - входное арифметическое выражение в инфиксной(обычной). . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .

@skazochnaia163 0 / 0 / 0 Регистрация: 19.05.2014 Сообщений: 6

	Круг перемещается по экрану с помощью клавиш управления курсора 19.05.2014, 12:32. Показов 1878. Ответов 6 Метки нет (Все метки) Круг передвигается по экрану с помощью ←,· *, ↓, →. При нажатии клавиши «пробел» меняется стиль заполнения случайным образом. При нажатии Enter случайным образом меняется цвет закраски. Выход по Esc. 0

@skazochnaia163 0 / 0 / 0 Регистрация: 19.05.2014 Сообщений: 6
	19.05.2014, 20:53 [ТС]
	Спасибо, конечно, а можно в Pascal ABC.NET 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.05.2014, 20:54
	Вообще-то это раздел Турбо Паскаль, смотрите куда тему лепите. 0

@skazochnaia163 0 / 0 / 0 Регистрация: 19.05.2014 Сообщений: 6
	19.05.2014, 21:01 [ТС]
	Простите пожалуйста, не разобралась ещё! ПРОСТИТЕ! 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,167
	19.05.2014, 21:48
	Программу в .Net выложил в этой теме. https://www.cyberforum.ru/pasc... 81388.html 0