Прокомментировать код - Turbo Pascal (29668)
Формулировка задачи:
Решение задачи: «Прокомментировать код»
textual
Листинг программы
program ex_set_3;
var m : set of char;//множество символов
s : string; //строка
i : byte; //счетчик цикла
begin
write('Введите строку: ');
readln(s);
m :=[]; //множество пока пустое
i := 1; //первый символ
while i <= length(s) do //пока не конец строки
if s[i] in m then delete(s, i, 1) //если символ есть в множестве, удалем его из строки
else //иначе
begin
m:=m+[s[i]];//добавляем его в множество
i := i + 1 //переходим к следующему символу
end;
writeln(s)
end.
Объяснение кода листинга программы
- Программа объявляет три переменные: m (тип set of char), s (тип string) и i (тип byte).
- В строке ввода читается строка.
- Создается пустое множество m.
- Устанавливается счетчик цикла i равным 1.
- Запускается цикл while, условием которого является i <= длительность строки.
- Внутри цикла проверяется, содержится ли текущий символ в множестве m.
- Если символ содержится в m, то он удаляется из строки s.
- Если символ не содержится в m, то он добавляется в множество m.
- Счетчик i увеличивается на 1.
- После окончания цикла while выводится строка s.