Вывести все цифры строки на экран без повторений - Turbo Pascal

Узнай цену своей работы

Формулировка задачи:

Написать программу, используя подпрограммы. Дана строка. Сколько цифр входит в строку? Вывести все цифры на экран без повторений.

Решение задачи: «Вывести все цифры строки на экран без повторений»

textual
Листинг программы
  1. var
  2.   s: String;
  3.   m: set of '0'..'9';
  4.   i, k: Integer;
  5.   c: Char;
  6. begin
  7.   Write('Строка: '); ReadLn(s); {k:=0;}
  8.   for i:=1 to Length(s) do
  9.     if s[i] in ['0'..'9'] then begin
  10.       Include(m,s[i]); Inc(k);
  11.     end;
  12.   Write('Цифр: ',k);
  13.   if k>0 then begin
  14.     Write(': ');
  15.     for c:='0' to '9' do if c in m then Write(' ',c);
  16.   end; WriteLn;
  17. end.

Объяснение кода листинга программы

  1. Строка введена пользователем. Сохраняется в переменной s.
  2. Создается множество символов от '0' до '9'. Сохраняется в переменной m.
  3. Создаются две переменные i и k типа Integer. Переменная i используется для итерации по символам строки, а переменная k используется для отслеживания количества цифр, которые уже были найдены.
  4. Итерация начинается с первого символа строки.
  5. Проверяется, является ли текущий символ цифрой. Если да, то он добавляется в множество m, увеличивается значение переменной k на единицу и цикл продолжается.
  6. После завершения итерации выводится количество найденных цифр.
  7. Если количество найденных цифр больше нуля, то выводится двоеточие и цикл повторяется для каждого символа из множества m, пока не будут найдены все цифры.
  8. По завершении выводится символ новой строки.

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

5   голосов , оценка 3.8 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Бесплатно
Оформите заказ и авторы начнут откликаться уже через 10 минут
Похожие ответы