{* Перевод чисел из десятичной системы *}

REM basic

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


10 osn2 = 2: {Двоичное основание
}20 osn8 = 8: {Восьмеричное основание
}30 len2 = 15: {Количество двоичных позиций
}40 len8 = 5: {Количество восьмеричных позиций
}50 n10 = 0: {Десятичное число
}60 n = 0: i = 0: {Вспомогательные переменные
}70 Dim s(len2): {Строка - результат
}80 CLS: {Очистка экрана
}90 INPUT "Введите десятичное целое число ";
100 {Расчет двоичного значения
}110 PRINT "Двоичная форма ";
120 n=n10
130 For i = len2 ТО l Step-1
140 s(i) = n Mod osn2: {Вычисление значения очередного разряда
}150 n = nosn2: {Сдвиг на один разряд влево
}160 Next i
170 For i = 1 To len2: {Вывод результата
}180 PRINT Using "#"; s(i);
190 Next i
200 PRINT
210 {Расчет восьмеричного значения
}220 PRINT "Восьмеричная форма ";
230 n = nl0
240 For i = len8 To l Step-l
250 s(i)=n Mod osn8: {Вычисление значения очередного разряда
}260 n=nosn8: {Сдвиг на один разряд влево
}270 Next i
280 For i = 1 To len8: {Вывод результата
}290 PRINT Using "#"; s(i);
300 Next i
310 End