Прокомментировать код - Turbo Pascal (29668)

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

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.

Решение задачи: «Прокомментировать код»

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

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.