Главная
Решение задач.
Справочные данные.
Формулы.
Программирование.
Как в Windows?
Разное.
Утилиты Windows.
Несправности принтеров.
BIOS по алфавиту.
Тесты.
Карта сайта.
|
Перевод чисел из десятичной системы в ...
10 osn2 = 2: REM Двоичное основание
20 osn8 = 8: REM Восьмеричное основание
30 len2 = 15: REM Количество двоичных позиций
40 len8 = 5: REM Количество восьмеричных позиций
50 n10 = 0: REM Десятичное число
60 n = 0: i = 0: REM Вспомогательные переменные
70 DIM s(len2): REM Строка - результат
80 CLS: REM Очистка экрана
90 INPUT "Введите десятичное целое число ";
100 REM Расчет двоичного значения
110 PRINT "Двоичная форма ";
120 n=n10
130 FOR i = len2 ТО l STEP-1
140 s(i) = n MOD osn2: REM Вычисление значения очередного разряда
150 n = n\osn2: REM Сдвиг на один разряд влево
160 NEXT i
170 FOR i = 1 TO len2: REM Вывод результата
180 PRINT USING "#"; s(i);
190 NEXT i
200 PRINT
210 REM Расчет восьмеричного значения
220 PRINT "Восьмеричная форма ";
230 n = nl0
240 FOR i = len8 TO l STEP-l
250 s(i)=n MOD osn8: REM Вычисление значения очередного разряда
260 n=n\osn8: REM Сдвиг на один разряд влево
270 NEXT i
280 FOR i = 1 TO len8: REM Вывод результата
290 PRINT USING "#"; s(i);
300 NEXT i
310 END
Web программирование Pascal&Delphi Бeйсик
|
|
|