Создание движущихся изображений: движение прямоугольника по диагоналям

@Shman · Регистрация: 30.04.2012

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

Создать движение прямоугольника по диагоналям: из левого верхнего угла – в правый нижний, а затем из правого верхнего угла – в левый нижний. Без выделения динамической памяти, с помощью перерисовки или сменой видеостраниц.

@Puporev · 01.05.2012, 08:01

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
uses Graph, Crt;
var w,h,x,y,dx,dy:integer;
begin
initgraph(w,h,' ') ;
w:=12;
h:=8;
x:=w;
y:=h;
{и*Ј Ї® ®бп¬}
dx := 4;
dy := 3;
{®б*®ў*®© жЁЄ«}
{Їа*ў® *Ё§}
repeat
setcolor(15);{аЁбгҐ¬ ЎҐ«л¬}
rectangle(x-w,y-h,x+w,y+h);
delay(100);{§*¤Ґа¦Є*}
setcolor(0);{аЁбгҐ¬ зҐа*л¬, бвЁа*Ґ¬}
rectangle(x-w,y-h,x+w,y+h);
{Ї®«гз*Ґ¬ *®ўлҐ Є®®а¤Ё**вл}
x:=x+dx;
y:=y+dy;
{Ї®Ї*«Ё ў гЈ®«}
if (x>=getmaxX-w) or (y>=getmaxY-h)then
 begin
  y:=h;{ўўҐае}
  x:=getmaxX-w;
  dx:=-4;
 end;
until (x>=getmaxX-w) or (y>=getmaxY-h);
{«Ґў® *Ё§}
repeat
setcolor(15);
rectangle(x-w,y-h,x+w,y+h);
delay(100);
setcolor(0);
rectangle(x-w,y-h,x+w,y+h);
{Ї®«гз*Ґ¬ *®ўлҐ Є®®а¤Ё**вл}
x:=x+dx;
y:=y+dy;
{Ї®Ї*«Ё ў гЈ®«}
if (x<=w) or (y>=getmaxY-h)then
 begin
  dx:=0;
  dy:=0;
  setcolor(15);
  outtextXY(getmaxX div 2-50,20,'Game Ower, press Enter');
  readln
 end;
until (x<=w) or (y>=getmaxY-h);
end.

Новые блоги и статьи Все статьи Все блоги /
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, то после закрытия окошка. . .	SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .
SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .	SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@Shman 6 / 6 / 6 Регистрация: 30.04.2012 Сообщений: 216

	Создание движущихся изображений: движение прямоугольника по диагоналям 30.04.2012, 15:29. Показов 2836. Ответов 1 Метки нет (Все метки) Создать движение прямоугольника по диагоналям: из левого верхнего угла – в правый нижний, а затем из правого верхнего угла – в левый нижний. Без выделения динамической памяти, с помощью перерисовки или сменой видеостраниц. 0

Создание движущихся изображений: движение прямоугольника по диагоналям

Решение