=osn Q=n/osn R=n mod osn If osn<=n then a$=str$(r)+a$ n=q: wend a$= str$(r)+a$ print a$ 4. Паскаль Program s86; Uses crt; Var osn, q, r, n: integer; ss, rez: string; begin clrscr; readln(osn); readln(n); rez:=”; while (n>=osn) do begin q:=n div osn; r:=n mod osn; str(r,ss); rez:=ss+rez; n:=q; end; str(n,ss); rez:=ss+rez; writeln(rez); readln; end. 5. Обсуждение и выбор метода решения задачи. Разработка алгоритма. Алгоритм решения задачи. Алгоритм перевода из десятичной системы счисления в Pичную для целых чисел реализуем с помощью электронной таблицы Excel. В ячейку В3 вводим число, которое надо перевести, в ячейку Н3 основание системы счисления Р<16 В ячейку А6 запишем формулу = ЦЕЛОЕ (В3/$Н$4), в столбце В получаем остаток от деления исходного числа на Р. Для получения Ричной записи числа надо выписать все цифры, получаемые в столбце В снизу вверх. Чтобы этот процесс автоматизировать и сразу получить искомое значение, в столбце С на каждом шаге будем получать очередную степень 10, в столбце D результат умножения степени на соответствующее число из столбца В. Затем сложим полученные значения в столбце D., используя стандартную функцию суммирования. Если в последней ячейке столбца А получился 0, то это последняя операция по переводу исходного числа. Данный способ создания таблицы для перевода из десятичной системы в Ричную с помощью электронной таблицы демонстрирует наглядный пошаговый метод.
© ООО «Знанио»
С вами с 2009 года.