Форум программистов, компьютерный форум CyberForum.ru
CyberForum.ru - форум программистов и сисадминов > >
Восстановить пароль Регистрация
 
KIBERNETIK12
Новичок
0 / 0 / 0
Регистрация: 18.06.2010
Сообщений: 31
24.06.2010, 13:12     Перевод из десятичной системы счисления в восьмеричную   #1
напишите алгоритм по тексту

Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же "алгоритм замещения", что и при переводе из десятичной системы счисления в двоичную, только в качестве делителя используют 8, основание восьмеричной системы счисления:
Делим десятичное число А на 8. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит восьмеричного числа.
Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток записывается в разряды восьмеричного числа в направлении от младшего бита к старшему.
Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a меньше 8.
AdAgent
Объявления
24.06.2010, 13:12     Перевод из десятичной системы счисления в восьмеричную
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.06.2010, 13:12     Перевод из десятичной системы счисления в восьмеричную
Посмотрите здесь:

Pascal Перевод числа с десятичной системы в восьмеричную систему
Free Pascal Перевод из Десятичной системы в восьмеричную
Pascal перевод систем счисления из десятичной в восьмеричную и обратно в Pascal !
Pascal ABC Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.
Turbo Pascal Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.
Pascal ABC Перевод натурального числа из десятичной системы счисления в восьмеричную
Pascal Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную
Pascal Напишите программу перевода числа из десятичной системы счисления в восьмеричную
Puporev
Модератор
43519 / 31870 / 2269
Регистрация: 19.05.2008
Сообщений: 68,338
24.06.2010, 13:22     Перевод из десятичной системы счисления в восьмеричную   #2
Код Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Опции темы

Текущее время: 08:10. Часовой пояс GMT +4.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.
Яндекс.Метрика