множества

[Walter]

Вечер добрый! Пожалуйста помогите с задачкой.

Вводяться 2 строки и набор чисел. Введённые числа показывают номера выбранных мест в строках. Верно ли, что на выбранных местах в первой строке нет символов второй строки?

Она вроде как не сложная, но для меня множества мало изучены, может кто сможет подкинуть какую идею или кусок кода хотябы, может я и сам смогу решить...

Спасибо заранее...

[Somebody]

Проверка, содержится ли символ c в строке s.

var
  s: String = 'qwerty';
  c: Char = 'g';
  cs: set of Char;
  i: Integer;

begin
  cs := [];
  for i := 1 to length(s) do
    include(cs, s[i]);
  if c in cs then
    {содержится}
  else
    {не содержится};
end.

[MAKEDON]

Сейчас ночь, и мне лень писать код. Поэтому вот алгоритм. Даны две строки. Вводим числа. Создаем переменную для хранения. Просматриваем всю строку с числами до конца. Каждое число, если больше чем кол-во символов в строке, то сразу break. А если нет, то сравниваем с каждым элементом второго массива. Если попадутся то прибавляем к переменной schet+1. И в самом конце. Если переменная счет>0, то выводим "FALSE", иначе же "TRUE".

Ой. Опоздал. Завтра утром набросаю, если еще нужно будет.

[Walter]

2 Somebody вот, эт то что нужно, т.к. нахождение во множестве эт я уже прописал, а тока остался сам обработчик программы )))
2 MAKEDON так вот алгоритм тоже мне возможно поможет, т.к. эт мона сказать самое главное, понять чё хочет от тебя программа )))
Кст по поводу 2-х строк... туда чё, чтото вводить надо или они даны как бы для ввода чисел? или вообще как они там представлены, а то я не вкуриваю )

[Walter]

Ах да... если что тут надо на Делфи реализовать, как бы С и С++ пока мне не идут