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

KIBERNETIK12 · 24.06.2010, 12:12

напишите алгоритм по тексту

Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же "алгоритм замещения", что и при переводе из десятичной системы счисления в двоичную, только в качестве делителя используют 8, основание восьмеричной системы счисления:
Делим десятичное число А на 8. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит восьмеричного числа.
Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток записывается в разряды восьмеричного числа в направлении от младшего бита к старшему.
Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a меньше 8.

Puporev · 24.06.2010, 12:22

Код Pascal

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.

24.06.2010, 12:12	#1
KIBERNETIK12 Новичок Регистрация: 18.06.2010 Сообщений: 38 Репутация: 0 (0)	Перевод из десятичной системы счисления в восьмеричную напишите алгоритм по тексту Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же "алгоритм замещения", что и при переводе из десятичной системы счисления в двоичную, только в качестве делителя используют 8, основание восьмеричной системы счисления: Делим десятичное число А на 8. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит восьмеричного числа. Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток записывается в разряды восьмеричного числа в направлении от младшего бита к старшему. Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a меньше 8.

Похожие темы
Тема	Автор
VBA Перевести числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную СС а) Перевести следующие числа из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 360(10); 235(10) Выполнить вычитание. 1011001001(2) +1100111011(2) б) Создать программу VBA, реализующую алгоритм получения произведения 7 натуральных чисел. в)...	uncoflops
Pascal (Паскаль) перевод систем счисления из десятичной в восьмеричную и обратно в Pascal ! Помогите написать программу : - " перевод систем счисления из десятичной в восьмеричную и обратно" ! Плиз.	Natal'ya
Free Pascal Перевод из Десятичной системы в восьмеричную Здравствуйте, прошу прощения но мне срочно нужна помощь. Мне задали задачу а завтра сдавать а я вообще ничего не знаю..... Помогите пожалуйста..... Дано вещественное число в десятичной системе перевести в восьмеричную. Очень нужно. Только чтоб не профессионально, а так на уровне первого...	farmay
Дискретная математика Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления 1. Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 2. Перевести данное число в десятичную систему счисления. 3. Сложить числа. 4. Выполнить вычитание. 5. Выполнить умножение. Примечание. В заданиях 3–5 проверять...	MAZUR777
Pascal (Паскаль) Перевод числа с десятичной системы в восьмеричную систему Составить программу, которая переводит число А с десятичной системы исчесления в восмиричную, используя метод деления в столбик. Промежуточные и итоговые результаты перевода отобразить на экране. Число А вводится с клавиатуры в десятичном формате. При составлении программы нужно использовать...	Yarikdik

Опции темы	Поиск в этой теме
	Поиск в этой теме: Расширенный поиск
Опции просмотра
Линейный вид Комбинированный вид Древовидный вид

24.06.2010, 12:22
Yandex Объявления