Анимация PascalABC- флаг

@Hrustik · Регистрация: 29.05.2013

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

Всем привет.Я сделал анимацию флага Украины вот код:

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
uses graphABC,crt;
var x,y,k: integer; xx,yy,a,h,w: real;
begin
lockdrawing; {убирає мерцаніє}
hidecursor;  {Убирає курсор}
setwindowsize(400,400);
repeat
a:=0; k:=10; h:=10; w:=0.5; {a - скільки разів буде виконуватися цикл, k - задання довжини хвильок, h- збільшення хвиль, w - частота хвиль}
while a<=6 do     {проходження циклу}
      begin
      clearwindow(clskyblue);
      setbrushcolor(clbrown);
      rectangle(90,60,100,400);
      xx:=1*k; yy:=H*sin( w*xx + a );
      while xx<=2.9*k do
            begin
            y:=round( H*sin(w*xx + a ));
            x:=round(xx*k);
            putpixel(x,y+280,clblack); {верхня хвиляста лінія}
            putpixel(x,y+330,clblack); {середня}
            putpixel(x,y+380,clblack); {нижня}
            xx:=xx+0.02;   {хвидкість крайніх ліній прапоку}
            end;
      line(100,280+round(yy),100,380+round(yy)); {ліва бокова лінія прапоку}
      line(290,280-round(yy),290,380-round(yy)); {права бокова лінія прапоку}
      floodfill(150,300,clBlue);
      floodfill(150,350,clYellow);
      a:=a+0.2; {швидкість руху прапоку}
      sleep(50); {швидкість виконання програми}
      redraw;
      end;
      
until keypressed;
end.

Нужно чтобы сам флаг подымался вверх до конца коричневой палки с той позиции в которой он щас, только как ето зделать не знаю.
на подсказки в програме не обращайте внимания вы все равно ничего не поймете).

@Striker · 03.06.2013, 15:31

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

на подсказки в програме не обращайте внимания вы все равно ничего не поймете).

Могли бы стереть тогда уж.

Добавлено через 8 минут

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
uses graphABC,crt;
var x,y,k: integer; xx,yy,a,h,w: real;
pr:integer;
begin
lockdrawing; {убирає мерцаніє}
hidecursor; {Убирає курсор}
setwindowsize(400,400);
//pr:=100;
repeat
a:=0; k:=10; h:=10; w:=0.5; {a - скільки разів буде виконуватися цикл, k - задання довжини хвильок, h- збільшення хвиль, w - частота хвиль}
while a<=6 do {проходження циклу}
begin
clearwindow(clskyblue);
setbrushcolor(clbrown);
rectangle(90,60,100,400);
xx:=1*k; yy:=H*sin( w*xx + a );
while xx<=2.9*k do
begin
y:=round( H*sin(w*xx + a ));
x:=round(xx*k);
putpixel(x,y+280+pr,clblack); {верхня хвиляста лінія}
putpixel(x,y+330+pr,clblack); {середня}
putpixel(x,y+380+pr,clblack); {нижня}
xx:=xx+0.02; {хвидкість крайніх ліній прапоку}
end;
line(100,280+round(yy)+pr,100,380+round(yy)+pr); {ліва бокова лінія прапоку}
line(290,280-round(yy)+pr,290,380-round(yy)+pr); {права бокова лінія прапоку}
floodfill(150,300+pr,clBlue);
floodfill(150,350+pr,clYellow);
a:=a+0.2; {швидкість руху прапоку}
sleep(50); {швидкість виконання програми}
redraw;
dec(pr);
end;
 
until keypressed;
end.

@Hrustik · 03.06.2013, 15:41 **[ТС]**

striker72rus, хорошо, а как теперь сделать чтобы флаг останавливался на конце коричневой палки? а то он уходит в небо и пропадает.

@Striker · 03.06.2013, 15:47

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

Хорошо, а как теперь сделать чтобы флаг останавливался на конце коричневой палки? а то он уходит в небо и пропадает.

Вместо:

Pascal
1
dec(pr);

Пишем:

Pascal
1
2
if pr>-200 then
dec(pr);

@Hrustik · 03.06.2013, 15:53 **[ТС]**

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

Вместо:

Pascal
1
dec(pr);

Пишем:

Pascal
1
2
if pr>-200 then
dec(pr);

Спасибо за помощь!

@Puporev · 03.06.2013, 16:06

Или так

Pascal
1
until pr<=-200;

Добавлено через 1 минуту
Вместо

Pascal
1
until keypressed;

@Striker · 03.06.2013, 16:07

Puporev, Если так, то у флага пропадёт анимация, когда он доберётся до конца.

@Puporev · 03.06.2013, 16:08

Да, завершается программа.

Новые блоги и статьи Все статьи Все блоги /
Подключение Box2D v3 к SDL3 для Android: физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .	Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .
Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .	Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .

@Hrustik 2 / 2 / 2 Регистрация: 29.05.2013 Сообщений: 143
	03.06.2013, 15:41 [ТС]
	striker72rus, хорошо, а как теперь сделать чтобы флаг останавливался на конце коричневой палки? а то он уходит в небо и пропадает. 0

@Striker SausageFlat 242 / 221 / 154 Регистрация: 19.08.2012 Сообщений: 499 Записей в блоге: 1
	03.06.2013, 16:07
	Puporev, Если так, то у флага пропадёт анимация, когда он доберётся до конца. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	03.06.2013, 16:08
	Да, завершается программа. 0