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

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
CLS
INPUT "vvedite chislo"; a$
INPUT "vvedite q"; q
INPUT "vvedite p"; p
DIM c(LEN(a$))
u$ = "0123456789ABCDEF"
FOR i = 1 TO LEN(a$): FOR j = 1 TO LEN(u$)
        IF UCASE$(MID$(a$, i, 1)) = MID$(u$, j, 1) THEN c(i) = j - 1
NEXT: NEXT
FOR i = LEN(a$) TO 1 STEP -1
    b = b + c(i) * q ^ r
    r = r + 1
NEXT
DO
    c$ = MID$(u$, (b MOD p) + 1, 1) + c$
    b = b \ p
LOOP UNTIL b = 0
PRINT STRING$(80, 196)
PRINT c$

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

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

Leave a Comment