Составить программу перевода числа из десятичной системы счисления в двоичную- QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
CLS
INPUT "Vvedite decytichoe chislo -> ", A
PRINT "Resultat -> ";
p = 2
DIM S(15)
k = 0
1:
q = INT(A / p)
r = A - p * q
k = k + 1
S(k) = r
A = q
IF A <> 0 THEN GOTO 1
FOR i = k TO 1 STEP -1
    PRINT S(i);
NEXT

Следующий вариант

1
2
3
4
5
6
INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
PRINT s$

Следующий вариант

1
2
3
4
5
6
7
INPUT n
DO
s$ = LTRIM$(STR$(n MOD 2)) + s$
n = n \ 2
LOOP UNTIL n = 0
r&amp;=val( s$)
print r&amp;

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment