Графика

@Hidalgo08 · Регистрация: 08.12.2009

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

Доброе время суток помогите переделать вот это чудо, так что бы работало в PascalABC:
программа сама по себе, имитирует падающий снег....

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
Program Vredinka;
uses 
    Crt, GraphABC;
const 
    N = 300; { speed of falling snowflakes }
var
    GrDr, GrMd : integer;
    Gx, Gy, k : integer;
    x, y : array[ 1..n ] of integer;
    j : longint;
    i1, i2, i3 : integer; { variables to construct the sky }
begin
 
    GrDr := Detect;
    Initgraph(GrDr, GrMd, 'd:/tp70/tp71/bgi');
   
   TextBackGround (15);
        Randomize;
        { cycle for the construction of the sky, where i1, i2, i3 - the coordinates }
        for k := 1 to 100 do
            begin
                 i1 := random(700);
                 i2 := random(150);
                 i3 := random(150);
                 putpixel( i1, i2, 0);
            end;
 
        Gx := GetMaxX;
        Gy := GetMaxY;
            { cycle to allow the partition of snow falls a lot and after a time only slightly }
            for k := 1 to N do
                begin
                    x[k] := random(Gx);
                    y[k] := random(Gy);
                    PutPixel(x[k] , y[k], 15);
                end;
 
        j := 0;
        repeat
            j := j + 1;
            for k := 1 to N do
                begin
                    if (y[k] < Gy) and (GetPixel(x[k], y[k] + 1) = 0) then
                        begin
                            PutPixel(x[k], y[k], 0);
                            y[k] := y[k] + 1;
                            if (j mod 10 = 0) then
                                begin
                                    x[k] := x[k] + random(11) - 5;
                                    if (x[k] > gx - 2) then x[k] := x[k] - 2;
                                    if (x[k] < 0) then x[k] := x[k] + 2;
                                end;
                            putpixel(x[k], y[k], 15);
                        end
                        else
                            begin
                                x[k] := random(Gx);
                                y[k] := random(Gy div 15);
                                PutPixel(x[k] + 1, y[k], 15);
                            end;
                end;
        until KeyPressed;
end.

@Puporev · 11.01.2011, 10:21

Вот переписал на АВС, но что там рисует??? Землю с небом спутали, что ли...

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
Program Vredinka;
uses Crt, GraphABC;
const N = 300; { speed of falling snowflakes }
var     Gx, Gy, k : integer;
        x, y : array[ 1..n ] of integer;
        j : longint;
    i1, i2, i3 : integer; { variables to construct the sky }
begin
Randomize;
ClearWindow(clblue);
 { cycle for the construction of the sky, where i1, i2, i3 - the coordinates }
for k := 1 to 100 do
 begin
  i1 := random(700);
  i2 := random(150);
  i3 := random(150);
  putpixel( i1, i2, clblue);
 end;
Gx := windowwidth;
Gy := windowheight;
{ cycle to allow the partition of snow falls a lot and after a time only slightly }
for k := 1 to N do
 begin
  x[k] := random(Gx);
  y[k] := random(Gy);
  PutPixel(x[k] , y[k], clwhite);
 end;
j := 0;
repeat
 j := j + 1;
 for k := 1 to N do
  begin
   if (y[k] < Gy) and (GetPixel(x[k], y[k] + 1) = 0) then
    begin
     PutPixel(x[k], y[k], 0);
     y[k] := y[k] + 1;
     if (j mod 10 = 0) then
      begin
       x[k] := x[k] + random(11) - 5;
       if (x[k] > gx - 2) then x[k] := x[k] - 2;
       if (x[k] < 0) then x[k] := x[k] + 2;
      end;
     putpixel(x[k], y[k], clwhite);
    end
else
 begin
  x[k] := random(Gx);
  y[k] := random(Gy div 15);
  PutPixel(x[k] + 1, y[k], clwhite);
 end;
end;
until KeyPressed;
end.

@cuber · 11.01.2011, 13:58

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

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
Program Vredinka;
uses Crt, GraphABC;
const N = 300; { speed of falling snowflakes }
var     Gx, Gy, k : integer;
        x, y : array[ 1..n ] of integer;
        j : longint;
    i1, i2, i3 : integer; { variables to construct the sky }
begin
Randomize;
ClearWindow(clblue);
 { cycle for the construction of the sky, where i1, i2, i3 - the coordinates }
for k := 1 to 100 do
 begin
  i1 := random(700);
  i2 := random(150);
  i3 := random(150);
  putpixel( i1, i2, clblue);
 end;
Gx := windowwidth;
Gy := windowheight;
{ cycle to allow the partition of snow falls a lot and after a time only slightly }
for k := 1 to N do
 begin
  x[k] := random(Gx);
  y[k] := random(Gy);
  PutPixel(y[k] , x[k], clwhite);
 end;
j := 0;
repeat
 j := j + 1;
 for k := 1 to N do
  begin
   if (y[k] < Gy) or (GetPixel(y[k], x[k] + 1) = 0) then
    begin
     PutPixel(x[k], y[k], 0);
     y[k] := y[k] + 1;
     if (j mod 10 = 0) then
      begin
       x[k] := x[k] + random(11) - 5;
       if (x[k] > gx + 2) then x[k] := x[k] - 2;
       if (x[k] < 0) then x[k] := x[k] + 2;
      end;
     putpixel(x[k], y[k], clwhite);
    end
else
 begin
  x[k] := random(Gx);
  y[k] := random(Gy div 15);
  PutPixel(x[k] + 1, y[k], clwhite);
 end;
end;
until KeyPressed;
end.

@Puporev · 11.01.2011, 14: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
uses crt,graphABC;
type Point=record
           x,y:integer;
           end;
var i,j,k,n:integer;
    a:array[1..500] of Point;
begin
randomize;
hidecursor;
ClearWindow(clblue);
setpencolor(white);
for i:=1 to 500 do
 begin
  a[i].x:=random(windowwidth);
  a[i].y:=random(windowheight);
  circle(a[i].x,a[i].y,1);
 end;
k:=0;n:=0;
repeat
k:=k+1;
delay(200);
setpencolor(clblue);
for i:=1 to 500 do
circle(a[i].x,a[i].y,1);
for i:=1 to 500 do
 begin
  if a[i].y>windowheight-n-10 then a[i].y:=1
  else a[i].y:=a[i].y+3;
  if a[i].x<0 then a[i].x:=windowwidth
  else a[i].x:=a[i].x-1;
 end;
setpencolor(clwhite);
for i:=1 to 500 do
circle(a[i].x,a[i].y,1);
if k mod 20=0 then
 begin
  n:=n+1;
  line(0,windowheight-n,windowwidth,windowheight-n);
 end;
until keypressed;
end.

@cuber · 11.01.2011, 14:40

можно, нооба ведь варианта мне кажется правильны буду?

разве я не прав?

@Puporev · 11.01.2011, 14:41

У меня здесь
https://www.cyberforum.ru/post1277510.html
какая-то мазня получается....

@cuber · 11.01.2011, 14:44

ну не знаю из за чего это, ведь я же только подправил код где было написано что небо и земля перепутаны

.....ну если немного подождать , то получится вполне нормальный падающий снег

26.03.2013, 17:47

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

Можно попроще нарисовать....

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
uses crt,graphABC;
type Point=record
           x,y:integer;
           end;
var i,j,k,n:integer;
    a:array[1..500] of Point;
begin
randomize;
hidecursor;
ClearWindow(clblue);
setpencolor(white);
for i:=1 to 500 do
 begin
  a[i].x:=random(windowwidth);
  a[i].y:=random(windowheight);
  circle(a[i].x,a[i].y,1);
 end;
k:=0;n:=0;
repeat
k:=k+1;
delay(200);
setpencolor(clblue);
for i:=1 to 500 do
circle(a[i].x,a[i].y,1);
for i:=1 to 500 do
 begin
  if a[i].y>windowheight-n-10 then a[i].y:=1
  else a[i].y:=a[i].y+3;
  if a[i].x<0 then a[i].x:=windowwidth
  else a[i].x:=a[i].x-1;
 end;
setpencolor(clwhite);
for i:=1 to 500 do
circle(a[i].x,a[i].y,1);
if k mod 20=0 then
 begin
  n:=n+1;
  line(0,windowheight-n,windowwidth,windowheight-n);
 end;
until keypressed;
end.

А можете про комментировать программу (желательно всю)???

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Вывод текста со шрифтом TTF с помощью SDL3_ttf 8Observer8 01.02.2026 Содержание блога В этой пошаговой инструкции создадим с нуля веб-приложение, которое выводит текст в окне браузера. Запустим на Android на локальном сервере. Загрузим Release на бесплатный. . .	SDL3 для Web (WebAssembly): Сборка C/C++ проекта из консоли 8Observer8 30.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .	SDL3 для Web (WebAssembly): Установка Emscripten SDK (emsdk) и CMake для сборки C и C++ приложений в Wasm 8Observer8 30.01.2026 Содержание блога Для того чтобы скачать Emscripten SDK (emsdk) необходимо сначало скачать и уставить Git: Install for Windows. Следуйте стандартной процедуре установки Git через установщик. . . .	SDL3 для Android: Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 29.01.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами. Версия v3 была полностью переписана на Си, в. . .
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	SDL3 для Android: Загрузка PNG с альфа-каналом с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	Влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .

@cuber 7 / 7 / 1 Регистрация: 22.06.2010 Сообщений: 40
	11.01.2011, 14:40
	можно, нооба ведь варианта мне кажется правильны буду? разве я не прав? 1

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	11.01.2011, 14:41
	У меня здесь https://www.cyberforum.ru/post1277510.html какая-то мазня получается.... 1

@cuber 7 / 7 / 1 Регистрация: 22.06.2010 Сообщений: 40
	11.01.2011, 14:44
	ну не знаю из за чего это, ведь я же только подправил код где было написано что небо и земля перепутаны.....ну если немного подождать , то получится вполне нормальный падающий снег 1