Вы не могли бы написать программу перевода из 16-й в 2-ую систему счисления. (с функцией.)

300

500

Посмотреть ответы 2

Ответы на вопрос:

6561813

Информатика

4,7(99 оценок)

Function f16t2(s16: string): string; const m: array['0'..'f'] of string= ('0000','0001','0010','0011','0100','0101','0110','0111', '1000','1001','','','','','','','','1010','1011','1100', '1101','1110','1111'); m1: array['0'..'f'] of string= ('0','1','10','11','100','101','110','111','1000','1001','', '','','','','','','1010','1011','1100','1101','1110','1111'); var s: string; i: integer; begin s16: =uppercase(s16); s: =m1[s16[1]]+''''; for i: =2 to length(s16) do s: =s+m[s16[i]]+''''; f16t2: =copy(s,1,length(s)-1) end; var s: string; begin write('введите шестнадцатиричное число: '); readln(s); writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 101'1010'1100'1000'1110'0010 если разбивка вывода по не нужна, можно чуть : function f16t2(s16: string): string; const m: array['0'..'f'] of string= ('0000','0001','0010','0011','0100','0101','0110','0111', '1000','1001','','','','','','','','1010','1011','1100', '1101','1110','1111'); m1: array['0'..'f'] of string= ('0','1','10','11','100','101','110','111','1000','1001','', '','','','','','','1010','1011','1100','1101','1110','1111'); var s: string; i: integer; begin s16: =uppercase(s16); s: =m1[s16[1]]; for i: =2 to length(s16) do s: =s+m[s16[i]]; f16t2: =s end; var s: string; begin write('введите шестнадцатиричное число: '); readln(s); writeln('в двоичной системе: ',f16t2(s)) end. тестовое решение: введите шестнадцатиричное число: 5ac8e2 в двоичной системе: 10110101100100011100010

aiau2004

Информатика

4,5(94 оценок)

Вобщем хотелось получше.(один раз хотел обработать числа при запуске формы, однако похоже обработчик не запускался почему не выяснил, а время выходит), получилось только так: картинки снимки экрана при работающей программе. файл pdf содержит текст исходника. zip архив с проектом по-моему не пришивается к ответу. и как тогда быть? весь проект я не . прилепить отдельно файлы проекта тоже не получится. такие расширения сервис не принимает придется создавать проект в lazaruse самому и по образу и подобию лепить формочку. а потом копировать текст исходника : ). на сей случай уточню, что кнопка button 1 - запускает подсчет и вывод простых чисел. кнопка button 2 - запускает подсчет и вывод составных чисел. в метку label 3 (самая нижняя на формочке) выводим ответ. а в метку label 4 (вторая снизу) (выводим пояснения о выводе). соответствующие комментарии в исходнике есть, но мало ли. можно конечно список файлов проекта приложить и их содержимое, загнанное в pdf, но мороки с развёртыванием такого чуда не меньше чем при создании нового проекта и новой формы.

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.