Анимация. Ёлка растет

@JesusLucifer · Регистрация: 27.12.2017

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

Добрый день, срочно, пожалуйста, данная ёлка должна расти, как анимация.

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
uses graphabc; 
begin 
line(150,0,100,50); 
line(150,0,200,50); 
line(100,50,200,50); 
line(150,50,50,150); 
line(150,50,250,150); 
line(150,150,0,250); 
line(150,150,300,250); 
line(50,150,250,150); 
line(0,250,300,250); 
Floodfill(250,300,clGreen);
line(125,250,125,275); 
line(175,250,175,275); 
line(125,275,175,275); 
floodfill(150,2,clgreen); 
floodfill(150,51,clgreen); 
floodfill(150,151,clgreen); 
floodfill(150,251,clbrown); 
end.

Пожалуйста, срочно.1

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

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
uses graphabc; 
begin 
line(150,0,100,50); 
line(150,0,200,50); 
line(100,50,200,50); 
line(150,50,50,150); 
line(150,50,250,150); 
line(150,150,0,250); 
line(150,150,300,250); 
line(50,150,250,150); 
line(0,250,300,250); 
Floodfill(50,100,clBlue);
Floodfill(200,300,ClBlue);
line(125,250,125,275); 
line(175,250,175,275); 
line(125,275,175,275); 
floodfill(150,2,clgreen); 
floodfill(150,75,clgreen); 
floodfill(150,175,clgreen); 
floodfill(150,251,clbrown); 
end.

Та же ёлка,но разукрасил.
Сделайте анимацию, чтобы она росла, пожалуйста!

@ZX Spectrum-128 · 27.12.2017, 20:30

Взято отсюда: Нарисовать ёлку с шариками и гирляндой. Гирлянда должна переливаться разноцветными огоньками

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
uses graphABC;
var
  r, i, j, x, y, c: integer;
 
procedure Shar(xx, yy: integer);
begin
  setpencolor(clblack);
  setbrushcolor(clred);
  circle(xx, yy, 10);
  setbrushcolor(clmaroon);
  setpencolor(clmaroon);
  circle(xx + 2, yy + 2, 5);
end;
 
procedure Triangle(x, y, r: integer);
begin
  setpencolor(clgreen);
  line(x - r, y, x, y - (r * 2));
  line(x, y - (r * 2), x + r, y);
  line(x - r, y, x + r, y);
  floodfill(x, y - 2, clgreen);
  Shar(x, y - (r div 2) - (r div 3));
  Shar(x - (r div 4), y - (r div 4));
  Shar(x + (r div 4), y - (r div 4));
  Shar(x - r, y + 10);
  Shar(x + r, y + 10);
end;
 
procedure Gir(x, y, r: integer);
var
  i: integer;
begin
  i := -r;
  while i <= r do
  begin
    if (getpixel(x + i, y + i) = clgreen) then
    begin
      setbrushcolor(clrandom);
      setpencolor(clrandom);
      circle(x + i, y + i, 5);
    end;
    inc(i, 10);
  end;
end;
 
begin
  SetWindowTitle('С Новым Годом!');
  setwindowsize(400, 500);
  lockdrawing;
  x := 200;y := 200;
  r := 25;
  for i := 1 to 20 do
  begin
    clearwindow;
    Triangle(x, y, r);
    Triangle(x, y + 100, r + 30);
    Triangle(x, y + 200, r + 50);
    setpencolor(clbrown);
    setbrushcolor(clbrown);
    rectangle(180, 400, 220, 440);
    Gir(200, 200, 70);
    Gir(200, 300, 100);
    Gir(200, 400, 150);
    sleep(50);
    redraw;
    inc(r, 2);
  end;
end.

Новые блоги и статьи Все статьи Все блоги /
Загрузка PNG-файла с альфа-каналом с помощью библиотеки SDL3_image на Android 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 и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом