Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.83/29: Рейтинг темы: голосов - 29, средняя оценка - 4.83
1 / 1 / 0
Регистрация: 06.05.2018
Сообщений: 18

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

02.06.2018, 12:46. Показов 5902. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Помогите написать программу перевода числа из двоичной системы счисления в восьмеричную систему.
0
Лучшие ответы (1)
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
02.06.2018, 12:46
Ответы с готовыми решениями:

Перевод числа из двоичной системы счисления в восьмеричную из текстового файла
Написать функцию перевода числа из двоичной системы счисления в восьмеричную. Исходный текстовый файл содержит числа в двоичной...

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

Рекурсия: перевод целого числа из десятичной системы счисления в восьмеричную
Проверочная работа напишите пж. Написать рекурсивную процедуру, переводящую целое число из десятичной системы счисления в восьмеричную.

2
Эксперт Pascal/Delphi
6812 / 4568 / 4820
Регистрация: 05.06.2014
Сообщений: 22,434
02.06.2018, 17:24
Из двоичной системы в восьмеричную
0
Почетный модератор
 Аватар для Puporev
64314 / 47610 / 32743
Регистрация: 18.05.2008
Сообщений: 115,167
02.06.2018, 17:41
Лучший ответ Сообщение было отмечено annie7 как решение

Решение

Или так. Для АВС.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
const tr:array[0..7] of string[3]=('000','001','010','011',
                                   '100','101','110','111');
var s2,s8:string;
    i,j:byte;
begin
repeat
writeln('Введите число в СС 2');
readln(s2);
i:=1;
while(i<=length(s2))and(s2[i] in ['0'..'1']) do inc(i);
if i<=length(s2) then writeln('Число введено неверно, повторите');
until i>length(s2);
while length(s2) mod 3<>0 do
s2:='0'+s2;
s8:='';
i:=1;
while(i<length(s2)-1)do
 begin
  j:=0;
  while (j<=7)and (copy(s2,i,3)<>tr[j])do inc(j);
  s8:=s8+inttostr(j);
  i:=i+3;
 end;
write('В СС 8=',s8);
end.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
02.06.2018, 17:41
Помогаю со студенческими работами здесь

Используя стек осуществить перевод числа, представленного строкой, из двоичной системы счисления в шестнадцатеричную и обратно.
Используя стек осуществить перевод числа, представленного строкой, из двоичной системы счисления в шестнадцатеричную и обратно. P.S:...

Перевод из десятичной системы счисления в восьмеричную
Прогеры, &quot;Братья&quot; мои помогите написать программу перевода из 10 - тичной сс в 8 - ричную сс... говорю сразу я паскаль не учил... можо на С...

Перевод из десятичной системы счисления в восьмеричную
напишите алгоритм по тексту Для перевода чисел из десятичной системы счисления в восьмеричную используют тот же &quot;алгоритм...

Перевод из двоичной системы счисления в десятичную
Помогите создать программу на языке паскаль Добавлено через 40 секунд и если сможете блок схему. Очень поможете)

Перевод из 10-ной системы счисления в восьмеричную
Здравствуйте, у меня такая проблема, не могу написать корректный цикл для перевода системы исчисления с десятичной в восьмеричную. ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru