помогите
не работает вот этот код:
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. запускаеться но не работает, закрыть программу тоже не могу, почему не знаю, помогите плз. |
Re: помогите
эээ вот так наверное...
Код:
program scrin; Если тебе надо его во внутренний цикл, то ещё раз бегин-энд будет. |
Re: помогите
спасибо, теперь работает.
Но я чот не совсем понял чем он отличается от моего, можешь обьяснить? |
Re: помогите
Если после фора нету бегина, то выполняется только первый после него оператор.
Если надо больше, то всё тело цикла заключаешь между begin end; Так со всеми циклами, а так-же ИФ-ами. Найди какой-нить учебник по паскалю, там это расписано должно быть) |
Часовой пояс GMT +4, время: 13:30. |
vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot