Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок - Free Pascal

  1. Дана строка из строчных латинских букв. Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок. Указание: формируйте множество, в которое очередной элемент добавляется после первой печати. Примечание: Программы должны быть написаны в рамках структурного программирования. В частности, запрещается использовать операторы перехода и метки.


textual

Код к задаче: «Напечатать первые вхождения букв в текст, сохраняя их взаимный порядок - Free Pascal»

var s:string;
    m:set of char; //само множество
    i:byte;
begin
writeln('Введите строку из строчных латинских букв');
readln(s); //ввод строки
m:=[]; //грубо говоря обнуляем множество
writeln('Первые вхождения букв');
for i:=1 to length(s) do //повтор цилка от одного до кол-ва букв в строке
if not(s[i] in m) then //если буквы нет в множестве то
 begin
  write(s[i]); //вывести её
  m:=m+[s[i]]; //и добавить в множество
 end;
end.

СДЕЛАЙТЕ РЕПОСТ

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



Похожие ответы
  1. 3)Дан текст из строчных латинских букв, за которым следует точка. Напечатать номер последней буквы к и количество этих букв в тексте

  1. Программа печатает первые пять символов введенной строки

  1. Здравствуйте всем! Не могу скомпилировать программу! Ошибки! Программа должна переворачивать слова задом наперед ( Миша круто поет- теоп отурк ашиМ)+ результат должен сохряниться в буфере обмена Windows, чтоб можно было результат. например, вставить в блокнот или еще куда-нибудь... Есть вот две программы по-отдельности: 1 программа переворачивает слова наоборот, 2 программа копирует слово в буфер. А вот объединить не получается(( Помогите! 2 дня пытаюсь... 1 программа:

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

  1. Напечатать таблицу значений функции f(x)=10x для x [a,b] с шагом h=(b-a)/n, если a=1, b=1.5, n=10

  1. Очень требуется помощь!!! Имеется массив А из N произвольных чисел А(N), среди которых есть положительные, отрицательные и равные нулю. Составить программу, выполняющую задачу. Напечатать те числа из массива, которые образуют убывающие последовательности. Например, если А={2,4,3,0,2,5,–2,5}, результат: 4, 3, 0 и 5, –2.

  1. Определить и напечатать количество ненулевых элементов в каждом столбце заданной матрицы. Найти и напечатать минимальные по значению элементы в каждой строке заданной матрицы.(как видите я это сделал). Только вот, программу надо распределить на функции и процедуры. Буду очень благодарен)

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

  1. Напечатать таблицу значений функции на отрезке [a, b] с шагом h. Найти корень функции на этом интервале. Помогите пожалуйста режить данное задание.На форуме нашёл несколько похожих тем и вроде всё получилось, но никак не сходиться с ответом. У меня ответ получается - 1.