Написать процедуру и функцию преобразования положительного десятичного числа, в восьмеричное. в основной программе ввести массив из 8 элементов при случайных чисел, и для каждого элемента массива вывести его восьмеричное представление
113
134
Ответы на вопрос:
Function dec2oct(n: integer): string; var c, s: string; iquo, irem: integer; begin s : = ''; iquo : = n; while iquo < > 0 do begin irem : = iquo mod 8; iquo : = iquo div 8; str(irem, c); s : = c + s end; if length(s) = 0 then result : = '0' else result : = s end; var m: array[1..8] of integer; i: integer; begin randomize; for i : = 1 to 8 do begin m[i] : = random(10000); writeln(m[i]: 5, '(10)=', dec2oct(m[i]), '(8)') end end. тестовое решение: 973(10)=1715(8) 7245(10)=16115(8) 2511(10)=4717(8) 5136(10)=12020(8) 8002(10)=17502(8) 7101(10)=15675(8) 4277(10)=10265(8) 5916(10)=13434(8) если вместо функции нужна процедура, достаточно заменить несколько строчек. procedure dec2oct(n: integer; s: string); var c: string; iquo, irem: integer; begin s : = ''; iquo : = n; while iquo < > 0 do begin irem : = iquo mod 8; iquo : = iquo div 8; str(irem, c); s : = c + s end; if length(s) = 0 then s : = '0' end;
Реши свою проблему, спроси otvet5GPT
-
Быстро
Мгновенный ответ на твой вопрос -
Точно
Бот обладает знаниями во всех сферах -
Бесплатно
Задай вопрос и получи ответ бесплатно
Популярно: Информатика
-
Vita081430.11.2021 16:01
-
denisgulinskii20.10.2021 07:22
-
katttty998919.09.2022 03:42
-
варай03.04.2023 07:34
-
aydanxudieva1408.06.2020 13:02
-
LaimZ12.12.2020 20:29
-
aikena200511.04.2022 05:22
-
Marína1911200612.06.2020 06:00
-
alinalera7120.03.2022 13:41
-
kety0milka17.01.2020 07:06
Есть вопросы?
-
Как otvet5GPT работает?
otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса. -
Сколько это стоит?
Проект находиться на стадии тестирования и все услуги бесплатны. -
Могу ли я использовать otvet5GPT в школе?
Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое! -
В чем отличия от ChatGPT?
otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.