Создайте еще одну собственную мини-игру! Напишите код управления приведением в замке по стрелкам: влево, вправо, вверх, вниз. А для того, чтобы получилось еще интереснее напишите код изменения скина при нажатии на пробел - эту проверку лучше прописать в функции on_key_down(key): если кнопка нажата и сейчас скин ghost, то он меняется на ghost1, иначе, если нажат пробел и сейчас скин ghost1, то он меняется на ghost. Не забудьте написать проверку на то, что призрак не уйдет за границы окна игры! я почти сделал но мне нужно чтобы скин менялся#pgzero WIDTH = 300 # Ширина окна HEIGHT = 300 # Высота окна TITLE = "Призрак в замке" # Заголовок окна игры FPS = 30 # Количество кадров в секунду # Объекты ghost = Actor('ghost', (150, 150)) fon = Actor("bg") def draw(): fon.draw() ghost.draw() if keyboard.left and ghost.x > 30: ghost.x = ghost.x - 5 elif keyboard.right and ghost.x < 270: ghost.x = ghost.x + 5 elif keyboard.up and ghost.y > 40: ghost.y = ghost.y - 5 elif keyboard.down and ghost.y < 260: ghost.y = ghost.y + 5

Основные

Объяснение:

монитор - отображение видеоинформации

видеокарта - обработка и подача видеосигнала на монитор

клавиатура и мышь - ввод информации от пользователя

блок питания - распределение питания между внутренними устройствами

жёсткий диск - постоянная память компьютера

оперативная память - временная память компьютера

процессор - основные вычислительные операции

материнская плата - связыает все элементы между собой

куллер - охлаждает

системный блок - для крепления внутренних элементов

дополнительные устройства ввода: сд или двд приводы, сканер, тачпад на ноутах, сенсорные понели, вэбкамеры, микрофоны...

дополнительные устройства вывода: колонки или наушники + звуковая карта, принтеры, плоттеры, проэкторы..

Можно еще модем, но компьютер может работать и без него

Код PascalABC 3.0

uses GraphABC, Crt;
Var
x,y,t,v1,v2:integer;
C:word;
Begin
Write('Введите время работы светофора:  ');
ReadLn(t);
Write('Введите скорость зелёной машины: ');
ReadLn(v1);
Write('Введите скорость красной машины: ');
ReadLn(v2);
LockDrawing;
Repeat
ClearWindow;
Case (C div t) mod 3 of
0:SetBrushColor(clGreen);
1:SetBrushColor(clYellow);
2:SetBrushColor(clRed);
End;
Circle(-30+(WindowWidth div 2),-40+(WindowHeight div 2),10);

Case (C div t) mod 3 of
2:SetBrushColor(clGreen);
1:SetBrushColor(clYellow);
0:SetBrushColor(clRed);
End;
Circle(-40+(WindowWidth div 2),30+(WindowHeight div 2),10);
if C<65535 then C:=C+1
else C:=0;

SetBrushColor(clMedGray);
FillRect(0,20+(WindowHeight div 2),WindowWidth,-20+(WindowHeight div 2));
FillRect(20+(WindowWidth div 2),0,-20+(WindowWidth div 2),WindowHeight);

SetBrushColor(clGreen);
FillRect(-13+(WindowWidth div 2),-40+y,13+(WindowWidth div 2),y);
if ((x+v1<=(WindowWidth div 2)-20)or(x-40>=(WindowWidth div 2)+20)) then x:=x+v1
else
   Begin
   if ((y-40>=20+(WindowHeight div 2))or(y<=(WindowHeight div 2)-20)) then
      Begin
      if ((C div t) mod 3 = 2)or(x>(WindowWidth div 2)-20) then x:=x+v1
      End
   End;

if x>=WindowWidth+40 then x:=0;
SetBrushColor(clRed);
FillRect(-40+x,13+(WindowHeight div 2),x,-13+(WindowHeight div 2));
if (y+v2<=(WindowHeight div 2)-20)or(y-40>=(WindowHeight div 2)+20) then y:=y+v2
else
   Begin
   if (x-40>=20+(WindowWidth div 2))or(x<=(WindowWidth div 2)-20) then
      Begin
      if ((C div t) mod 3 = 0)or(y>(WindowHeight div 2)-20) then y:=y+v2
      End
   End;

if y>=WindowHeight+40 then y:=0;
Redraw
Until false;

End.