Не работает...

[Вадим Вергун]

Вот необходимо реализовать примитивный код... однако почему-то не работает ошибок не выдаёт, но на экране всего один пиксель закрашен. матёрые программисты скажите что не так
P. S. написано в паскале абс. нэт.


uses GraphABC;
var x,y,i,q,w:integer;
c,c1,c2:Color;
begin
x:=100;
y:=100;
c:=clRed;
SetPixel(x, y,c);
while i<10 do
for q := 1 to 300 do
for w := 1 to 300 do
c1:=GetPixel(q,w);
if c1=clRed then SetPixel(q-Random(-1,1),w-Random(-1,1),c);
i:=i+1;
end.

[Аватар]

Матёрные? Операторные скобки знаешь? begin ... end. Так вот - их нужно правильно расставить в коде выше приведенном. Это как минимум

[Dvoishnik]

Сообщение от Аватар

begin ... end;

а то поставит же точку.

while i<10 do // начало цикла 
for q := 1 to 300 do
for w := 1 to 300 do
c1:=GetPixel(q,w); // конец,  я думаю он должен быть где то в другом месте 
if c1=clRed then SetPixel(q-Random(-1,1),w-Random(-1,1),c);
i:=i+1; //у вас переменная i не наращивается

[Вадим Вергун]

Уже сам допёр, другое вылезло. Растущее нечто "упирается" в незримую стену на координатах более 300 по х и у...

[Dvoishnik]

не она ли стена?

Сообщение от Вадим Вергун

.........
  for q := 1 to 300 do
   for w := 1 to 300 do 
..........

end.