Автор | Сообщение |
|
| постоянный участник
|
Пост N: 33
Зарегистрирован: 12.09.06
|
|
Отправлено: 13.10.06 21:18. Заголовок: Не срабатывает оператор (%)
/* Разборка алгоритма. Требуется вывести на экран 2 столбика по 20 строчек, а далее по 24 строчки. Набросал программку и получил не известно что. Не срабатывает оператор (%) Это глюк, или что ? */ FUNCTION MAIN() LOCAL nI, nEnd := 96 LOCAL nProc, nKolvo := 20, nKolvo2 := 24 LOCAL y := 0 , x := 0 LOCAL nPage := 1 CLEAR SCREEN FOR nI:=1 TO nEnd @ 24,0 SAY "страница:"+ALLTRIM(STR(nPage)) nProc := INT(nI % nKolvo) @ y,x say "" ?? STR(nI,2),"-",ALLTRIM(STR(nProc))+"%"," "+ALLTRIM(STR(y)) y++ IF y > nProc y:=0 x:=x+15 nPage++ IF nPage > 2 nKolvo := nKolvo2 ENDIF INKEY(0) ENDIF NEXT INKEY(0)
|
|
|
Ответов - 1
[только новые]
|
|
|
| Администратор
|
Пост N: 333
Зарегистрирован: 23.05.05
|
|
Отправлено: 14.10.06 11:42. Заголовок: Re:
Замени вывод на ?? STR(nI,2)+"%"+Str(nKolvo,2)+"="+ALLTRIM(STR(nProc))+"-"+" "+ALLTRIM(STR(y)) и увидишь что все правильно
|
|
|