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

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

Посмотрите здесь:

Pascal Перевод числа с десятичной системы в восьмеричную систему

Free Pascal Перевод из Десятичной системы в восьмеричную

Pascal Создать программу обучение переводу чисел из десятичной системы счисления в двоичную,восьмеричную, шестнадцатеричную.

Pascal перевод систем счисления из десятичной в восьмеричную и обратно в Pascal !

Pascal ABC Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

Turbo Pascal Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

Pascal ABC Перевод натурального числа из десятичной системы счисления в восьмеричную

Pascal Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную

PascalABC.NET Составить программу перевода натурального числа из десятичной системы счисления в двоичную,восьмеричную, шестнадцатиричную

Pascal Напишите программу перевода числа из десятичной системы счисления в восьмеричную

Puporev
Модератор
43150 / 31521 / 2132
Регистрация: 18.05.2008
Сообщений: 67,488
24.06.2010, 12: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.
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему
Опции темы

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