Форум » Clipper » Не срабатывает оператор (%) » Ответить

Не срабатывает оператор (%)

Andrey: /* Разборка алгоритма. Требуется вывести на экран 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

Pasha: Замени вывод на ?? STR(nI,2)+"%"+Str(nKolvo,2)+"="+ALLTRIM(STR(nProc))+"-"+" "+ALLTRIM(STR(y)) и увидишь что все правильно



полная версия страницы