Quote (QWERTY)
dig есть гуд.:-)) А как быть, если цифр скажем, не 5 а 10?
Циклом. Например, так:
Code
'empty - признак, что еще идет пустота в начале
'number - ваше число
'digit[i] - разряды числа (для перекодировки в семисегм. код)
empty = 1
for i = 9 to 0 step -1
cyfra = number dig i
if cyfra = 0 then
if empty = 1 then
digit[i] = 10 'пусть 10 - это код пробела
else
digit[i] = cyfra
endif
else
empty = 0
digit[i] = cyfra
endif
next i
Таким образом, в массиве digit получили разряды числа number c потушенными незначащими нулями
В принципе, в этом же цикле надо сразу и в семисегментный код перекодировать
Тока, эта... в PBP макс. размер переменной - word, то бишь до 65535...
