Pascal. Множества.

[Corpinccom]

Дана последовательность из 10-и русских слов. Вывести на печать слова, в которых первая буква слова встречается в нём ещё раз.( Если можно добавьте пожалуйста комментарии )

[DedBoroda]

const vol = 10; //условие 10 слов
var m:array [1..vol] of string; //массив слов
    i:integer; // служебная переменная


function ans (s:string):boolean; //функция определения условия задачи
var j:integer; //служебная
    b:boolean; //тут хранится результат проверки
begin
b := false; //по умолчанию все буквы отличны от первой
for j := 2 to length(s) do //прогоняем по всем буквам
    if s[j] = s[1] then b := true; // при нахождении совпадения b истинно
ans := b; //если ответ положительный - совпадение есть
end;//конец функции


begin // начало основной части
For i := 1 to vol do ReadLn(m[i]); //ввод слов, каждое с новой строки

for i := 1 to vol do if ans(m[i]) then WriteLn(m[i]); // пргоняем по всем словам. Те слова, которые в функции приняли значение true, выводятся на экран, каждое с новой строки.

ReadLn;//для выхода из программы нужно нажать Enter
end.

Фух, думаю всё понятно

[Sparkman]

препод 2 поставит, про множества в коде ни слова

[Stilet]

препод 2 поставит, про множества в коде ни слова

А если так:

  if s[j] in [s[1]] then b := true;

Не проверял но предположил )

[Corpinccom]

Спасибо большое! Все понятно ))

[Sparkman]

Сообщение от Stilet

А если так:

  if s[j] in [s[1]] then b := true;

Не проверял но предположил )

не знаю, но по-моему, если это учебная лабораторная работа, то без слова

set of <type>

не обойтись

[DedBoroda]

переделай условия под множества, как у вас там в конспектах или че там.

set of <type>
не обойтись

Ну если препод проверяет по учебному шаблону - то да.(пративный препод:D)

Спасибо большое! Все понятно ))

на здоровье
Программирование. Множества Pascal