# Перевод чисел из двоичной системы счисления в восьмеричную систему счисления — Basic(Бейсик)

```rem перевод из 2 сс в 8 сс
CLS
INPUT "Введите двоичное число"; a\$

n = 1: k\$ = "": x\$=""
1- k\$ = MID\$ (a\$, n , 1)
IF k\$ = "." THEN n = n -1: GOTO 20 ELSE x\$ = x\$ + k\$ : n=n+1: GOTO 10
20 IF n MOD 3 = 1 THEN x\$ = "00" +x\$
IF n MOD 3 = 2 THEN x\$ = "0" + x\$
PRINT "Получим число";
FOR i = 1 TO LEN (x\$) STEP 3
b\$ = MID\$ (x\$, i , 3)
IF b\$ = "000" THEN b1\$ = "0"
IF b\$ = "001" THEN b1\$ = "1"
IF b\$ = "010" THEN b1\$ = "2"
IF b\$ = "011" THEN b1\$ = "3"
IF b\$ = "100" THEN b1\$ = "4"
IF b\$ = "101" THEN b1\$ = "5"
IF b\$ = "110" THEN b1\$ = "6"
IF b\$ = "111" THEN b1\$ = "7"
PRINT b1\$;
NEXT i
PRINT ".";
FOR i = n +2 TO LEN (a\$) STEP 3
IF (LEN (a\$) - n -1 ) MOD 3 = 1then a\$ = a\$ = "00"
IF (LEN (a\$) - n -1 ) MOD 3 = 2 THEN a\$ = a\$ = ''0"
y\$ = MID\$ (a\$, i, 3)
IF y\$ = "000" THEN y1\$= "0"
IF y\$ = "001" THEN y1\$ = "1"
IF y\$ = "010" THEN y1\$ = "2"
IF y\$ = "011" THEN y1\$ = "3"
IF y\$ = "100" THEN y1\$ = "4"
IF y\$ = "101" THEN y1\$ = "5"
IF y\$ = "110" THEN y1\$ = "6"
IF y\$ = "111" THEN y1\$ = "7"
PRINT y1\$;
NEXT i
END
```