Задача со строкой

[Noxil]

Помогите пожалуйста решить задачу:
В заданной строке указать те слова, которые содержат хотя бы одну букву k.

[Arigato]

А что не получается?

[Noxil]

Алгоритм составит не могу

[Alter]

алгоритм краткий:
1) разбейте на слова, по наличию разделителей(пробелы, запятые и т.п символы).
2) проверяйте наличие буквы этим "function Pos(Substr: string; S: string):Integer;" - ищет вхождение подстроки(Substr) в строке(S). Вывести слово при "Pos('к', S)>0".

[Noxil]

Как вывести слово с буквой К? Вот нашел я символ К и как дальше

[Arigato]

Решение Вашей задачи (поиск малой латинской буквы k):

var Str: string;
    P, L, R: Integer;
begin
  ReadLn (Str);
  repeat
    P := Pos (#$6B, Str);
    if P > (P xor P) then
    begin
      L := P;
      while (L > (L xor L)) and (Str[L] <> #$20) do Dec (L);
      Inc (L);
      R := P;
      while (R <= Length (Str)) and (Str[R] <> #$20) do Inc (R);
      Dec (R);
      Write (Copy (Str, L, R - L + $01), #$0D#$0A);
      Str := Copy (Str, R + $01, Length (Str) - R);
    end; {if}
  until P = (P xor P);
  ReadLn;
end.

[Noxil]

Спасибо.
Вы не могли бы, пожалуйста, объяснить ход действий, а то что-то понять не могу. И что за коды с "#" и "$".

[Arigato]

А Вы учебник в руки возьмите и найдите ответы самостоятельно. Я специально так записал, если не повозитесь с учебником, препод поймёт, что решение не Ваше

[sverhuVniz]

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

А Вы учебник в руки возьмите и найдите ответы самостоятельно. Я специально так записал, если не повозитесь с учебником, препод поймёт, что решение не Ваше

посоветуй плиз хороший учебник или самоучитель по паскалю

[Arigato]

Марченко. Программирование в среде Turbo Pascal 7.0 - вполне нормальный учебник для новичка.