Перевод из двоичной системы счисления в восьмеричную - QBasic

Формулировка задачи:

1. подскажу плиз как в qbasic написать программу перевода из двоичной сс в восьмиричную .......очень нада)) 2. из восьмиричной обратно в двоичную)))

Решение задачи: «Перевод из двоичной системы счисления в восьмеричную»

textual
                            Листинг программы 
                        
 
                        
                          
                    
CLS
INPUT "vvedite chislo"; a$: INPUT "vvedite q"; q: INPUT "vvedite p"; p
FOR i = 1 TO LEN(a$): IF MID$(a$, i, 1) = "." THEN
        a$ = MID$(a$, 1, i - 1) + MID$(a$, i + 1, LEN(a$) - i): z = i
END IF: NEXT
IF z <> 0 THEN INPUT "vvedite chislo znakov posle zapjatoj"; x
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
IF z = 0 THEN r = LEN(a$) - 1 ELSE r = z - 2
FOR i = 1 TO LEN(a$)
    IF i < z THEN m = 1 ELSE m = 1000000
    a = ((c(i) * q ^ r) * m): r = r - 1
    b# = b# + a / m
NEXT
s = FIX(b#): b# = (b# * m - s * m) / m
DO
    c$ = MID$(u$, (s MOD p) + 1, 1) + c$
    s = s \ p
LOOP UNTIL s = 0
DO
    l = l + 1: b# = b# * p * m
    f$ = f$ + MID$(u$, FIX(b# / m) + 1, 1): b# = (b# - (FIX(b# / m) * m)) / m
LOOP UNTIL l = x OR b# = 0
PRINT STRING$(80, 196)
IF z = 0 THEN PRINT c$ ELSE PRINT c$ + "." + f$