Напишите пожалуйста программу на паскале

@Влад12345 · Регистрация: 25.10.2013

Author24 — интернет-сервис помощи студентам

Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа n и напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа n.

@bormant · 25.11.2013, 14:54

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
var
  digits: array [0..9] of integer;
  i, c: integer;
  n: longint;
begin
  for i := 0 to 9 do digits[i] := 0;
  c := 0;
  Write('Введите число: '); ReadLn(n);
  while n > 0 do begin
    i := n mod 10;
    if digits[i] = 0 then inc(c);
    inc(digits[i]);
    n := n div 10;
  end;
  Write('Различных значащих цифр ', c, ', отсутствуют цифры: ');
  for i := 0 to 9 do
    if digits[i] = 0 then Write(i:2);
  WriteLn('.');
end.

Добавлено через 10 минут
Или с множествами:

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
var
  digits: set of 0..9;
  i, c: integer;
  n: longint;
begin
  digits := []; c := 0;
  Write('Введите число: '); ReadLn(n);
  while n > 0 do begin
    i := n mod 10;
    if not (i in digits) then inc(c);
    Include(digits, i);
    n := n div 10;
  end;
  Write('Различных значащих цифр ', c, ', отсутствуют цифры: ');
  for i := 0 to 9 do
    if not (i in digits) then Write(i:2);
  WriteLn('.');
end.

@Влад12345 · 25.11.2013, 14:59 **[ТС]**

bormant, можишь объяснить как писал программу

@bormant · 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, что-то осталось непонятно?

@Влад12345 · 25.11.2013, 16:06 **[ТС]**

можешь написать пожалуйста блок-схему

@bormant · 25.11.2013, 16:12

Влад12345, раз всё понятно, нарисовать блок-схему труда не составит.

@Влад12345 · 25.11.2013, 16:16 **[ТС]**

пожалуйста умоляю

@Marinford · 25.11.2013, 16:59

Кое-кто выбрал не тот факультет

@Soniyagfto · 25.11.2013, 17:08

Сообщение от Влад12345

пожалуйста умоляю

Нет, люди, ну имейте хоть калю совести...
Вам уже тут люди уже и программы, как "бесплатные" автоматы "шлепают", а вы не можете элементарно нарисовать какую-то блок-схему??
-Пробегаете глазками по программе, смотрите, какие операции и операторы присутствуют (присваивания,условия,ввода/вывода,циклы и т.п.) и просто рисуете соответствующую "картинку".
Если вы этого не можете сделать, то не мучайте себя и не портите себе жизнь, переводитесь с этого факультета!

@bormant · 25.11.2013, 17:33

Что-то вроде: http://img801.imageshack.us/img801/8233/svdb.png

@ildwine · 25.11.2013, 17:55

Сообщение от bormant

Что-то вроде

Рисунки на хостингах не держим, прикладываем во вложении. На будущее

@bormant · 25.11.2013, 23:14

Ок, свое будущее мы делаем сами, и, пожалуй, оно уже здесь с нами

.

Новые блоги и статьи Все статьи Все блоги /
Мульти-тенантные БД с 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 был найден. . .

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31

	Напишите пожалуйста программу на паскале 25.11.2013, 14:02. Показов 1326. Ответов 11 Метки нет (Все метки) Подсчитать количество различных (значащих) цифр в десятичной записи натурального числа n и напечатать в возрастающем порядке все цифры, не входящие в десятичную запись натурального числа n. 0

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
	25.11.2013, 14:59 [ТС]
	bormant, можишь объяснить как писал программу 0

@bormant Модератор 7806 / 4628 / 2833 Регистрация: 22.11.2013 Сообщений: 13,146 Записей в блоге: 1
	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

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
	25.11.2013, 16:06 [ТС]
	можешь написать пожалуйста блок-схему 0

@bormant Модератор 7806 / 4628 / 2833 Регистрация: 22.11.2013 Сообщений: 13,146 Записей в блоге: 1
	25.11.2013, 16:12
	Влад12345, раз всё понятно, нарисовать блок-схему труда не составит. 0

@Влад12345 0 / 0 / 0 Регистрация: 25.10.2013 Сообщений: 31
	25.11.2013, 16:16 [ТС]
	пожалуйста умоляю 0

@Marinford 1 / 1 / 1 Регистрация: 25.11.2013 Сообщений: 5
	25.11.2013, 16:59
	Кое-кто выбрал не тот факультет 0

@bormant Модератор 7806 / 4628 / 2833 Регистрация: 22.11.2013 Сообщений: 13,146 Записей в блоге: 1
	25.11.2013, 17:33
	Что-то вроде: http://img801.imageshack.us/img801/8233/svdb.png 0

@bormant Модератор 7806 / 4628 / 2833 Регистрация: 22.11.2013 Сообщений: 13,146 Записей в блоге: 1
	25.11.2013, 23:14
	Ок, свое будущее мы делаем сами, и, пожалуй, оно уже здесь с нами . Миниатюры 0

Опции темы