0 / 0 / 0
Регистрация: 25.10.2013
Сообщений: 31
|
|
Напишите пожалуйста программу на паскале25.11.2013, 14:02. Показов 1326. Ответов 11
Метки нет Все метки)
(
Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа n и напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа n.
0
|
25.11.2013, 14:02 | |
Ответы с готовыми решениями:
11
НАПИШИТЕ ПОЖАЛУЙСТА ПРОГРАММЫ НА ПАСКАЛЕ .ЧЕРЕЗ ФУНКЦИЮ ИЛИ ПРОЦЕДУРУ!
|
Модератор
![]() ![]() ![]() |
|||||||||||
25.11.2013, 14:54 | |||||||||||
Или с множествами:
0
|
Модератор
![]() ![]() ![]() |
|
25.11.2013, 15:58 | |
Исходя из задания требуется:
1) получить натуральное число, 2) разобрать его на десятичные цифры, 3) определить, какие цифры встретились, 4) посчитать количество цифр без учёта повторов, 5) зная, что десятичных цифр всего 10 -- от 0 до 9, вывести оставшиеся. Начинаем разбираться. 1) получить десятичное число: -- завести переменную: var n: longint; -- получить значение с клавиатуры: ReadLn(n); 2) получить последовательно цифры числа несложно, достаточно брать последовательно остатки от деления на основание системы счисления (для 10-чной это 10), затем делить на основание системы счисления само число: while n > 0 do begin цифра := n mod 10; n := n div 10; end; 3) нужно посчитать только те цифры, которые раньше не встречались. Значит где-то нужно хранить признак, встречалось ли число раньше. Для этого подходят множество или массив: множество: digits: set of 0..9; массив: digits: array [0..9] of integer; изначально мы не видели никаких цифр, поэтому в начале множество или массив должны быть пусты: множество: digits := []; массив: for i := 0 to 9 do digits[i] := 0; 4) получать цифру мы умеем, проверять наличие цифры умеем (присутствие в множестве или ненулевое количество встреченных цифр в массиве): not (цифра in digits) digits[цифра] = 0 заведём отдельный аккумулятор, и, если цифра ранее не встречалась, будем его увеличивать var c: integer; inc(c); или c := c + 1; после проверки будем отмечать факт получения цифры включением в множество или увеличением соответствующего цифре элемента массива: Include(digits, цифра); inc(digits[цифра]); или digits[цифра] := digits[цифра] + 1; 5) пройдём все цифры от 0 до 9 и, если цифра не встречалась в записи числа (отсутствует в множестве digits или элемент массива digits для этой цифры равен 0), выведем её. А теперь, собрав сё вмете, получим то, что получили. Влад12345, что-то осталось непонятно?
0
|
Модератор
![]() ![]() ![]() |
|
25.11.2013, 16:12 | |
Влад12345, раз всё понятно, нарисовать блок-схему труда не составит.
0
|
![]() |
||
25.11.2013, 17:08 | ||
Вам уже тут люди уже и программы, как "бесплатные" автоматы "шлепают", а вы не можете элементарно нарисовать какую-то блок-схему?? -Пробегаете глазками по программе, смотрите, какие операции и операторы присутствуют (присваивания,условия,ввода/вывода,циклы и т.п.) и просто рисуете соответствующую "картинку". Если вы этого не можете сделать, то не мучайте себя и не портите себе жизнь, переводитесь с этого факультета!
1
|
Модератор
![]() ![]() ![]() |
|
25.11.2013, 17:33 | |
Что-то вроде: http://img801.imageshack.us/img801/8233/svdb.png
0
|
Почетный модератор
![]() |
|
25.11.2013, 17:55 | |
0
|
Модератор
![]() ![]() ![]() |
|
25.11.2013, 23:14 | |
Ок, свое будущее мы делаем сами, и, пожалуй, оно уже здесь с нами
![]()
0
|
25.11.2013, 23:14 | |
Помогаю со студенческими работами здесь
12
напишите программу пожалуйста
Напишите пожалуйста программу по теме работа с файлами Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
|
Опции темы | |
|
Новые блоги и статьи
![]() |
||||
Мульти-тенантные БД с PostgreSQL Row Security
Codd 23.04.2025
Современные облачные сервисы и бизнес-приложения всё чаще обслуживают множество клиентов в рамках единой программной инфраструктуры. Эта архитектурная модель, известная как мульти-тенантность, стала. . .
|
Реализация конвейеров машинного обучения с Python и Scikit-learn
AI_Generated 23.04.2025
Мир данных вокруг нас растёт с каждым днём, и умение эффективно обрабатывать информацию стало необходимым навыком. Специалисты по машинному обучению ежедневно сталкиваются с задачами предобработки. . .
|
Контроллеры Kubernetes Ingress: Сравнительный анализ
Mr. Docker 23.04.2025
В Kubernetes управление входящим трафиком представляет собой одну из ключевых задач при построении масштабируемых и отказоустойчивых приложений. Ingress — это API-объект, который служит вратами. . .
|
Оптимизация кода Python с Cython и Numba
py-thonny 23.04.2025
Python прочно обосновался в топе языков программирования благодаря своей простоте и гибкости. Разработчики любят его за читабельность кода и богатую экосистему библиотек. Но у этой медали есть и. . .
|
Микросервис на Python с FastAPI и Docker
ArchitectMsa 23.04.2025
В эпоху облачных вычислений и растущей сложности программных продуктов классическая монолитная архитектура всё чаще уступает место новым подходам. Микросервисная архитектура становится фаворитом. . .
|
Создаем веб-приложение на Vue.js и Laravel
Reangularity 23.04.2025
Выбор правильного технологического стека определяет успех веб-проекта. Laravel и Vue. js формируют отличную комбинацию для создания современных приложений. Laravel — это PHP-фреймворк с элегантным. . .
|
Максимальная производительность C#: Span<T> и Memory<T>
stackOverflow 22.04.2025
Мир высоконагруженных приложений безжалостен к неэффективному коду. Каждая миллисекунда на счету, каждый выделенный байт памяти может стать причиной падения производительности. Разработчики на C#. . .
|
JWT аутентификация в Java
Javaican 21.04.2025
JWT (JSON Web Token) представляет собой открытый стандарт (RFC 7519), который определяет компактный и самодостаточный способ передачи информации между сторонами в виде JSON-объекта. Эта информация. . .
|
Спринты Agile: Планирование, выполнение, ревью и ретроспектива
EggHead 21.04.2025
Спринты — сердцевина Agile-методологии, позволяющая командам создавать работающий продукт итерационно, с постоянной проверкой гипотез и адаптацией к изменениям. В основе концепции спринтов лежит. . .
|
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров
Programma_Boinc 21.04.2025
Очередные открытия мега простых чисел, сделанные добровольцами с помощью домашних компьютеров.
3 марта 2025 года, в результате обобщенного поиска простых чисел Ферма в PrimeGrid был найден. . .
|