Примеры задач

Множества


Составить программу печати всех символов заданного текста, входящих в него по одному разу.

Методика решения

Пример:
Дан текст: ‘Я пишу программу на Паскале’.
Один раз встречаются символы: «Я», «и», «ш», «о», «г», «н», «с», «к», «л», «е».

Используемые переменные:
m – множество символов;
st – строка, в которую считывается текст;
I – параметр цикла.

Для начала считываем с экрана строку.
Затем просматриваем с помощью цикла элементы строки, объединяем каждый символ строки с множеством m . Таким образом, в множестве окажутся все символы, входящие в строку по одному разу.
Выводим на экран элементы множества. Для этого снова просматриваем символы строки, проверяем, есть ли символ в множестве, если есть, то выводим его на экран и удаляем из множества ( m:=m-st[i] ).

Листинг программы

Program ex5_1;
Uses Crt;
Var st:String; i:byte; m:set of char;
BEGIN
clrscr;
writeln('Введите строку');
readln(st);
writeln('Результат');
for i:=1 to length(st) do
m:=m+[st[i]];
for i:=1 to length(st) do
if st[i] in m then
begin
write(st[i]);
m:=m-[st[i]];
end;
Readkey;
End.

Запустить программу






Назад

Закрыть