forum.boolean.name - помогите

forum.boolean.name (http://forum.boolean.name/index.php)

- Проекты на MidletPascal (http://forum.boolean.name/forumdisplay.php?f=88)

- - помогите (http://forum.boolean.name/showthread.php?t=4217)

S2k	21.08.2007 11:51

помогите

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

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

21.08.2007 18:56

Re: помогите

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

Код:

 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	21.08.2007 20:39

Re: помогите

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

EVIL_USER

21.08.2007 23:44

Re: помогите

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

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

Часовой пояс GMT +4, время: 00:49.