Перевод из десятичной системы счисления в восьмеричную - Pascal (8531)
Формулировка задачи:
напишите алгоритм по тексту
Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же "алгоритм замещения", что и при переводе из десятичной системы счисления в двоичную, только в качестве делителя используют 8, основание восьмеричной системы счисления:
Делим десятичное число А на 8. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит восьмеричного числа.
Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток записывается в разряды восьмеричного числа в направлении от младшего бита к старшему.
Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a меньше 8.
Решение задачи: «Перевод из десятичной системы счисления в восьмеричную»
textual
Листинг программы
uses crt; const zn:string[8]='01234567'; function DecToOct(n:longint):string; var s:string; begin s:=''; while n>0 do begin s:=zn[n mod 8+1]+s; n:=n div 8; end; DecToOct:=s; end; var d:longint; begin clrscr; write('Число в системе 10='); readln(d); write(' В системе 8 =',DecToOct(d)); readln end.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д