Форум программистов, компьютерный форум CyberForum.ru Форум программистов | Компьютерный форум | Форум web-программистов | Форум по электронике и бытовой технике | Форум о софте | Научный форум | Карьера и бизнес
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:12
AdAgent
Объявления
24.06.2010, 12:22   #2
Puporev
Модератор
Регистрация: 18.05.2008
Сообщений: 64,996
Репутация: 42025 (30545)
Лучшие ответы: 1,725
Перевод из десятичной системы счисления в восьмеричную / 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 Ошибка в инструкции
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
Объявления
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Ответ Создать новую тему

Похожие темы
Тема Раздел Автор Дата
C (СИ) Перевод с десятичной в восьмеричную систему счисления
Написал такую вот программу: #include <stdio.h> #include <stdafx.h> void main(void) { int n; scanf("%d", &n); printf("%o", n);
C для начинающих flex5221 20.04.2014 22:31
Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления - Информатика
1. Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. Для а) и б) написать прямые коды (8 бит). Для в), г) и д) написать нормальные формы (1 бит под знак мантиссы, 8 бит под мантиссу, 1 бит под знак порядка, 4 бита под порядок).
Информатика Bacardi 18.01.2014 16:47
Assembler Assembler - перевод из десятичной в восьмеричную систему счисления
Есть программка которая переводит из 10 в 8 систему счисления stkseg segment stack db 256 dup (?) stkseg ends data segment mes1 db 'Vvedite chislo v 10-sisteme (0..65535):',0ah,0dh,'$' mes2 db 0ah,0dh,'Chislo v 8-sisteme:',0ah,0dh,'$' input db 6,0,7 dup ('$'),'$' outbx db 5 dup (8),'0','$'
Assembler для начинающих beitfor 14.05.2013 12:37
Pascal ABC Перевод натурального числа из десятичной системы счисления в восьмеричную
\Написать рекурсивную процедуру перевода натурального числа из десятичной системы счисления в восьмеричную
Pascal ABC sparta3131 27.12.2012 17:44
Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления - Дискретная математика
1. Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. 2. Перевести данное число в десятичную систему счисления. 3. Сложить числа. 4. Выполнить вычитание. 5. Выполнить умножение. Примечание. В заданиях 3–5 проверять...
Дискретная математика MAZUR777 18.04.2010 11:56
Опции темы

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

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