Нужна анимация в ABC Pascal: ночь, луна, рыбалка

14.05.2013, 21:42. **Показов** 5299. **Ответов** 5

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

Прошу помочь, нужен рисунок и анимация в ABC Pascal что то вроде этого:

@Svyatoslav7 · 14.05.2013, 23:27

на когда вам нужно???

Добавлено через 13 секунд
могу попробувать завтра вечерком)

@КонецСвета · 15.05.2013, 00: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
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
uses graphABC;
var zvezdy: array [1..2,1..50] of integer;
    tuchi : array [1..2,1..50] of integer;
    c: boolean;
    schetchik: byte;
 
procedure Gen;
var i: byte;
begin
for i:=1 to 50 do
    begin
    zvezdy[1,i]:=random(801);
    zvezdy[2,i]:=random(601);
    tuchi[1,i] :=random(801);
    if (tuchi[1,i]<150) or (tuchi[1,i]>650)
       then tuchi[2,i]:=random(200)+400 else
            if (tuchi[1,i]<250) or (tuchi[1,i]>550)
               then tuchi[2,i]:=random(100)+500
                    else  tuchi[2,i]:=random(50)+600;
    end;
end;
 
procedure Fon;
var i: byte;
begin
clearwindow(clnavy);
setpencolor(clskyblue);
setbrushcolor(clwhite);
for i:=1 to 50 do
    begin
    if (odd(i)) and (c)
       then setpenwidth(3) else
            if (i mod 2=0) and (not c)
               then setpenwidth(3)
                    else setpenwidth(1);
    circle(zvezdy[1,i],zvezdy[2,i],5);
    end;
setpencolor(clwhite);
setbrushcolor(clwhite);
setpenwidth(1);
for i:=1 to 50 do
    circle(tuchi[1,i],tuchi[2,i],80);
setbrushcolor(clskyblue);
setpencolor(clskyblue);
for i:=1 to 50 do
    circle(tuchi[1,i],tuchi[2,i]+20,80);
setbrushcolor(clnavy);
setpencolor(clnavy);
for i:=1 to 50 do
    circle(tuchi[1,i],tuchi[2,i]+50,80);
end;
 
procedure Hl;
begin
setbrushcolor(clwhite);
setpencolor(clskyblue);
circle(400,200,150);
setbrushcolor(clnavy);
setpencolor(clnavy);
circle(350,180,150);
setbrushcolor(clwhite);
setpencolor(clwhite);
circle(430,200,20);
ellipse(410,220,460,340);
setpenwidth(10);
line(370,250,440,240);
line(380,270,440,240);
setpenwidth(15);
line(390,270,420,320);
line(390,270,370,320);
line(390,320,430,320);
line(390,320,380,380);
setpenwidth(5);
line(270,180,400,280);
setpenwidth(1);
line(270,180,270,380);
end;
 
procedure Fish(x,y: integer);
begin
circle(x-40,y,20);
circle(x,y,30);
setbrushcolor(clblack);
circle(x+10,y-10,7);
end;
 
procedure Splach;
var z,c,x0,y0,xx,yy: integer;
 
begin
c:=clrandom;
x0:=random(800); y0:=600;
for z:=-90 to 90 do
    begin
     Fon;
     Hl;
     xx:=x0+Round(200*sin(Pi*z/180));
     yy:=y0-Round(100*cos(Pi*z/180));
     setpencolor(c);
     setbrushcolor(c);
     Fish(xx,yy);
     sleep(10);
     redraw;
    end;
end;
 
begin
setwindowsize(800,600);
lockdrawing;
Gen;
repeat
Fon;
Hl;
sleep(10);
inc(schetchik);
if schetchik=100 then
   begin
   schetchik:=0;
   Splach;
   end;
c:=(schetchik<=25) or ((schetchik>50) and (schetchik<=75));
redraw;
until false;
end.

'свернутый вариант'

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
uses graphABC;
var zvezdy: array [1..2,1..50] of integer;
    i,j: integer;
 
begin
setwindowsize(800,600);
lockdrawing;
j:=0;
 
for i:=1 to 50 do
    begin
    zvezdy[1,i]:=random(801);
    zvezdy[2,i]:=random(601);
    end;
 
repeat
clearwindow(clnavy);
setpencolor(clskyblue);
setbrushcolor(clwhite);
for i:=1 to 50 do
    circle(zvezdy[1,i],zvezdy[2,i],5);
 
setbrushcolor(clwhite);
setpencolor(clskyblue);
circle(400,200,150);
setbrushcolor(clnavy);
setpencolor(clnavy);
circle(350,180,150);
setbrushcolor(clwhite);
setpencolor(clwhite);
circle(430,200,20);
ellipse(410,220,460,340);
setpenwidth(10);
line(370,250,440,240);
line(380,270,440,240);
setpenwidth(15);
line(390,270,420,320);
line(390,270,370,320);
line(390,320,430,320);
line(390,320,380,380);
setpenwidth(5);
line(270,180,400,280);
setpenwidth(1);
line(270,180,270,180+(j));
j:=j+5;
if j=400 then j:=0;
sleep(100);
redraw;
until false;
end.

пс clyellow-желтый, можно написать вместо clwhite... но это неуважение к dreamworks =(

15.05.2013, 12:40

В пятницу надо сдать мне, если не трудно, то пожалуйста нарисуйте))

@Svyatoslav7 · 15.05.2013, 12:59

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

В пятницу надо сдать мне, если не трудно, то пожалуйста нарисуйте))

так тебе де вроде что то написали

Добавлено через 17 минут
если к вечеру тебе никто не поможет тогда я попробую нарисовать ... только скажи где нужно анимацию???? с какими фигурами????

@КонецСвета · 15.05.2013, 13:44

Fixellerate,

спойлер разверните... не... разверну-ка я...

Новые блоги и статьи Все статьи Все блоги /
Ритм жизни kumehtar 27.02.2026 Иногда приходится жить в ритме, где дел становится всё больше, а вовлечения в происходящее — всё меньше. Плотный график не даёт вниманию закрепиться ни на одном событии. Утро начинается с быстрых,. . .	SDL3 для Web (WebAssembly): Сборка SDL3 и Box2D из исходников с помощью CMake и Emscripten 8Observer8 27.02.2026 Недавно вышла версия 3. 4. 2 библиотеки SDL3. На странице официальной релиза доступны исходники, готовые DLL (для x86, x64, arm64), а также библиотеки для разработки под Android, MinGW и Visual Studio. . . .	SDL3 для Web (WebAssembly): Реализация движения на Box2D v3 - трение и коллизии с повёрнутыми стенами 8Observer8 20.02.2026 Содержание блога Box2D позволяет легко создать главного героя, который не проходит сквозь стены и перемещается с заданным трением о препятствия, которые можно располагать под углом, как верхнее. . .	Конвертировать закладки radiotray-ng в m3u-плейлист damix 19.02.2026 Это можно сделать скриптом для PowerShell. Использование . \СonvertRadiotrayToM3U. ps1 <path_to_bookmarks. json> Рядом с файлом bookmarks. json появится файл bookmarks. m3u с результатом. # Check if. . .
Семь CDC на одном интерфейсе: 5 U[S]ARTов, 1 CAN и 1 SSI Eddy_Em 18.02.2026 Постепенно допиливаю свою "многоинтерфейсную плату". Выглядит вот так: https:/ / www. cyberforum. ru/ blog_attachment. php?attachmentid=11617&stc=1&d=1771445347 Основана на STM32F303RBT6. На борту пять. . .	Камера Toupcam IUA500KMA Eddy_Em 12.02.2026 Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .	И ясному Солнцу zbw 12.02.2026 И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.	«Знание-Сила» zbw 12.02.2026 «Знание-Сила» «Время-Деньги» «Деньги -Пуля»

Fixellerate

	Нужна анимация в ABC Pascal: ночь, луна, рыбалка 14.05.2013, 21:42. Показов 5299. Ответов 5 Метки нет (Все метки) Прошу помочь, нужен рисунок и анимация в ABC Pascal что то вроде этого: Миниатюры

@Svyatoslav7 18 / 18 / 17 Регистрация: 19.08.2012 Сообщений: 281
	14.05.2013, 23:27
	на когда вам нужно??? Добавлено через 13 секунд могу попробувать завтра вечерком) 0

Fixellerate
	15.05.2013, 12:40
	В пятницу надо сдать мне, если не трудно, то пожалуйста нарисуйте))

@КонецСвета Почетный модератор 7966 / 3937 / 2464 Регистрация: 30.10.2011 Сообщений: 5,377
	15.05.2013, 13:44
	Fixellerate, спойлер разверните... не... разверну-ка я... 0