Сформировать множество, состоящее из первых вхождений букв в последовательность, сохраняя их исходный порядок - Turbo Pascal

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

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

Дана последовательность из строчных латинских букв. Сформировать множество, состоящее из первых вхождений букв в данную последовательность, сохраняя их исходный взаимный порядок.

Решение задачи: «Сформировать множество, состоящее из первых вхождений букв в последовательность, сохраняя их исходный порядок»

textual
Листинг программы
  1. uses crt;
  2. var s:string;
  3.     m:set of 'a'..'z';
  4.     i:byte;
  5. begin
  6. clrscr;
  7. writeln('Введите строку из строчных латинских букв');
  8. readln(s);
  9. writeln('Первые вхождения букв');
  10. m:=[];
  11. for i:=1 to length(s) do
  12. if not(s[i] in m) then
  13.  begin
  14.   write(s[i]);
  15.   m:=m+[s[i]];
  16.  end;
  17. readln
  18. end.

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

  1. В начале кода используется библиотека crt, которая является стандартной для языка Turbo Pascal.
  2. Переменная s типа string предназначена для хранения введенной пользователем строки.
  3. Переменная m типа set of 'a'..'z' представляет собой множество, которое будет содержать первые вхождения букв в строке s.
  4. Переменная i типа byte используется для итерации по символам строки s.
  5. В цикле for происходит проверка каждого символа строки s на наличие его в множестве m. Если символ не содержится в m, то он добавляется в множество.
  6. После завершения цикла выводится последняя добавленная буква.
  7. Код завершается вызовом функции readln, которая считывает ввод пользователя и переводит программу в ожидание ввода.

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


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

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

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

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

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

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