Форум программистов и сисадминов CyberForum.ru
Вернуться   Форум программистов и сисадминов CyberForum.ru > Форум Форум программистов > Форум Pascal (Паскаль)
Восстановить пароль Регистрация

Ответ Создать новую тему
 
Старый 24.06.2010, 12:12   #1
KIBERNETIK12
Новичок
 
Регистрация: 18.06.2010
Сообщений: 31
Репутация: 0 (0)
Перевод из десятичной системы счисления в восьмеричную / Pascal (Паскаль)

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

Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же "алгоритм замещения", что и при переводе из десятичной системы счисления в двоичную, только в качестве делителя используют 8, основание восьмеричной системы счисления:
Делим десятичное число А на 8. Частное Q запоминаем для следующего шага, а остаток a записываем как младший бит восьмеричного числа.
Если частное q не равно 0, принимаем его за новое делимое и повторяем процедуру, описанную в шаге 1. Каждый новый остаток записывается в разряды восьмеричного числа в направлении от младшего бита к старшему.
Алгоритм продолжается до тех пор, пока в результате выполнения шагов 1 и 2 не получится частное Q = 0 и остаток a меньше 8.
Старый 24.06.2010, 12:22   #2
Puporev
Модератор
 
Аватар для Puporev
 
Регистрация: 18.05.2008
Сообщений: 62,279
Репутация: 40947 (29494)
Лучшие ответы: 1174
Перевод из десятичной системы счисления в восьмеричную / Pascal (Паскаль)

Код 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.
Другие темы раздела Форум программистов Pascal. Программирование с использованием языка Pascal (Паскаль). Помощь студентам и школьникам в решении задач.
Pascal Ошибка в инструкции
Program perevodCC; const zn:string='01234567'; function DecToOct(n:longint):string; var s:string; begin s:=''; while n>0 do begin s:=zn+s; n:=n div 8;
Построить оси X, Y и начертите цветом green графики функций Pascal
Построить оси X, Y и начертите цветом green графики функций: y=sin(в квадрате)x, y=cos(в кубе)х, y=tg(в 4-степени)x, по выбору пользователя. Интервал значений
Старый 24.06.2010, 12:22
Yandex
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Автор
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
Опции темы

Текущее время: 22:43. Часовой пояс GMT +4.

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.7 PL3
Copyright ©2000 - 2014, vBulletin Solutions, Inc.