Графика

@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.

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

Новые блоги и статьи Все статьи Все блоги /
моя боль iceja 24.01.2026 Выложила интерполяцию кубическими сплайнами www. iceja. net REST сервисы временно не работают, только через Web. Написала за 56 рабочих часов этот сайт с нуля. При помощи perplexity. ai PRO , при. . .	Модель сукцессии микоризы anaschu 24.01.2026 Решили писать научную статью с неким РОманом	http://iceja.net/ математические сервисы iceja 20.01.2026 Обновила свой сайт http:/ / iceja. net/ , приделала Fast Fourier Transform экстраполяцию сигналов. Однако предсказывает далеко не каждый сигнал (см ограничения http:/ / iceja. net/ fourier/ docs ). Также. . .	http://iceja.net/ сервер решения полиномов iceja 18.01.2026 Выкатила http:/ / iceja. net/ сервер решения полиномов (находит действительные корни полиномов методом Штурма). На сайте документация по API, но скажу прямо VPS слабенький и 200 000 полиномов. . .
Расчёт переходных процессов в цепи постоянного тока igorrr37 16.01.2026 / * Дана цепь(не выше 3-го порядка) постоянного тока с элементами R, L, C, k(ключ), U, E, J. Программа находит переходные токи и напряжения на элементах схемы классическим методом(1 и 2 з-ны. . .	Восстановить юзерскрипты Greasemonkey из бэкапа браузера damix 15.01.2026 Если восстановить из бэкапа профиль Firefox после переустановки винды, то список юзерскриптов в Greasemonkey будет пустым. Но восстановить их можно так. Для этого понадобится консольная утилита. . .	Сукцессия микоризы: основная теория в виде двух уравнений. anaschu 11.01.2026 https:/ / rutube. ru/ video/ 7a537f578d808e67a3c6fd818a44a5c4/	WordPad для Windows 11 Jel 10.01.2026 WordPad для Windows 11 — это приложение, которое восстанавливает классический текстовый редактор WordPad в операционной системе Windows 11. После того как Microsoft исключила WordPad из. . .

@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