1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 | rem перевод из 2 сс в 8 сс CLSINPUT "Введите двоичное число"; 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 1020 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 3b$ = 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 iPRINT ".";FOR i = n +2 TO LEN (a$) STEP 3IF (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 iEND |