помогите

[S2k]

не работает вот этот код:

program scrin;
var i,j:integer;
begin
ShowCanvas;
setcolor(125,126,127);
for i:=0 to 8 do
for j:=0 to 8 do
if(i mod 2=j mod 2)then
fillrect(i*16,j*16,i*16+16,j*16+16);
repaint;
while getkeyclicked=KE_NONE do
begin end;
end.

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

[EVIL_USER]

эээ вот так наверное...

 program scrin;
var i,j:integer;
begin
  ShowCanvas;
  setcolor(125,126,127);
  for i:=0 to 8 do
begin
    for j:=0 to 8 do
begin
      if(i mod 2=j mod 2)then
        fillrect(i*16,j*16,i*16+16,j*16+16); 
end;
  repaint;
end;
  while getkeyclicked=KE_NONE do
delay (100);
end.

Насчёт репэйнта не уверен, что туда, куда тебе надо его запихнул.
Если тебе надо его во внутренний цикл, то ещё раз бегин-энд будет.

[S2k]

спасибо, теперь работает.
Но я чот не совсем понял чем он отличается от моего, можешь обьяснить?

[EVIL_USER]

Если после фора нету бегина, то выполняется только первый после него оператор.
Если надо больше, то всё тело цикла заключаешь между begin end;
Так со всеми циклами, а так-же ИФ-ами.

Найди какой-нить учебник по паскалю, там это расписано должно быть)