gazon

Люди помогите нужна программа "пчелинный рой" в паскале


Более конкретно опишите, что вам нужно. Может быть, вы имели в виду реализацию исполнителя Live (Жизнь)? Из названия "пчелинный рой" абсолютно ничего не понятно. Ваш модератор.

Vladimir_S

А мне не поможете? Срочно нужна программа "Носорожжий зад". Тоже в Паскале.

gazon

) Модифицировать программу "пчелиный рой":. Замедлить перемещение роя и запрограммировать изменение направления перемещения при достижении края экрана.

Daniellos

Осмелюсь предположить gazon'y надо, чтобы некое облако из хаотичных точек перемещалось по экрану. Хотя могу и ошибаться...

gazon

Да, мне именно это и надо, ну кто-нибудь поможет?

AlexZir

Помочь-то можно, но только советом:
1) сгенерируйте массив случайных координат для точек таким образом, чтобы они были в пределах одной области
2) в цикле для всех сгененрированных точек: стирайте точку на старом месте (выводите цветом фона), задавайте случайное приращение для каждой координаты, вычисляйте новые координаты и выводите точку на новом месте.
3) Для каждой координаты отслеживайте наибольшее значение, при достижении предела приращение меняйте на отрицательное, чтобы за пределы экрана не выходить.
3) зациклите процесс до наступления какого-либо события, к примеру, до нажатия кнопки Esc (код 27).
Дерзайте

gazon

Спасибо, попробую

Rossomaxa

Вам еще нужна помощь?

gazon

Пожалуйста помогите с самим кодом, пытаюсь ничего не выходит. И в Турбо и в АБС пробовал - тщетно

gazon

Program sempch;
uses graph,crt;
var j,gd,gm,i,b,l,c:integer;
x,y,k:array [1..1000] of integer;
Begin
randomize;
gd:=detect;
initgraph(gd,gm,'d:\tp7\units\');
setcolor(90);
b:=10;
l:=2;
c:=6;
FOR J:=1 to 50 DO
BEGIN
for i:=1 to 50 do
begin
x[i]:=random(100)+10;
y[i]:=random(100)+10;
end;
for i:=1 to 50 do
begin
putpixel(x[i],y[i],c);
end;
for i:=1 to 500 do
begin
c:=0;
putpixel(x[i],y[i],c);
end;
for i:=1 to 50 do
begin
k[i]:=random(50);
putpixel(x[i]+k[i],y[i]+k[i],6);
end;
END;
readln;
End.