Бейсик-помощь

[null_device]

ZEman, загляните в книжку: "как написать игру на бейсике". Там есть пример.

Либо:

10 LET n="число которое надо перевести"
15 LET n$=""
30 IF n>127 THEN LET n$=n$+"1": LET n=n-128: GOTO 40
35 LET n$=n$+"0"
40 IF n>63 THEN LET n$=n$+"1": LET n=n-64: GOTO 50
45 LET n$=n$+"0"
50 IF n>31 THEN LET n$=n$+"1": LET n=n-32: GOTO 60
55 LET n$=n$+"0"
60 IF n>15 THEN LET n$=n$+"1": LET n=n-16: GOTO 70
65 LET n$=n$+"0"
70 IF n>7 THEN LET n$=n$+"1": LET n=n-8: GOTO 80
75 LET n$=n$+"0"
80 IF n>3 THEN LET n$=n$+"1": LET n=n-4: GOTO 90
85 LET n$=n$+"0"
90 IF n>1 THEN LET n$=n$+"1": LET n=n-2: GOTO 100
95 LET n$=n$+"0"
100 IF n>0 THEN LET n$=n$+"1": LET n=n-1: GOTO 110
105 LET n$=n$+"0"
110 PRINT n$

[Black Cat / Era CG]

Формула есть. Только оно ж тормозно будет.

[baxter]

10 DEF FN V(x,y)=x-y*INT (x/y)
20 DEF FN b$(b)=STR$ INT (b/128)+STR$ INT (FN V(b,128)/64)+STR$ INT (FN V(FN V(b,128),64)/32)+STR$ INT (FN V(FN V(FN V(b,128),64),32)/16)+STR$ INT (FN V(FN V(FN V(FN V(b,128),64),32),16)/8)+STR$ INT (FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8)/4)+STR$ INT (FN V(FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8),4)/2)+STR$ INT FN V(FN V(FN V(FN V(FN V(FN V(FN V(b,128),64),32),16),8),4),2)
30 INPUT "input num 0 to 255 ";a
40 PRINT FN b$(a)

[ZEman]

null_device, угу видел такое, но оно слишком громоздкое.
видимо придётся пойти на хитрость и использовать что-то типа poke 22400 (g) - где g число от 0 до 255.
и получившеюся черту переводить в двоичное число.

[goodboy]

похоже надо мудрить в цикле 0-7 со степенями двойки и десятки

[null_device]

ZEman, громоздкое? Зато не использует сложных вычислений. И относительно быстрое.
Если вы собираетесь использовать отображение бинарного числа линией пикселей и команды POINT, врятли получится короче и быстрее. К тому же ЕМНИП, команда не работает со служебной частью экрана...

Не совсем понятно какую цель вы преследуете переводя числа из одной системы в другую? Возможно есть способ короче, проще и элегантней.

[Black Cat / Era CG]

Могу сделать маленькую процедурку в коде. Раз забить ее через POKE и потом вызывать, предварительно положив нужное число через POKE и установив место вывода через PRINT AT x,y; Будет точно быстрее.

[ZX_NOVOSIB]

В конкурсах бейсик-игр процедурки в кодах под запретом, например.

[ZEman]

большое спасибо за советы, но я уже сам разобрался с данной задачкой.
просто думал что может есть простенькое решение в виде одной строчки формулы.
на днях выложу новую версию rararura, хотя нового там не так уж и много.

[Black Cat / Era CG]

В конкурсах бейсик-игр процедурки в кодах под запретом, например.

Ну дык это ж спорт - специальная олимпиада.