Помогите с прогой. Тема: символьные массивы

[Алексей Д.]

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

Подскажите что нужно делать!

[Карась]

Подскажите что нужно делать!

Писать программу.

Найди для начала нужные слова.

[Алексей Д.]

Ну слова то я сам ввожу, из головы. А потом нужно вывести какой то общий для всех таких случаев алгоритм, который выводил бы только слова, в которых помимо букв есть еще и знаки.

например последовательность 'fshhse ijsfii isefi sdf'sd sdf,sf efs.qa'

в ней 6 слов и нужно вывести на печать только те в которых есть знаки. как видно это последние три слова. Подскажите плиз что для этого нужно сделать??

[Карась]

Достаточно простой алгоритм:
1. Начинаем двигаться по строке от начала до конца в циеле for

2. При появлении пробела и символа за ним (а это означает что начинается слово) мы начинаем записывать последующии символы в переменную. Если во время считывания слова, мы натыкаемся на символ отличный от буквы, то выставляем флаг что это слово нам неподходит.
Если это нужное нам слово, то флаг оставляется не тронутым.

3. Если во время считывания слова мы натыкаемся на пробел (как нистранно это сигнализирует что слово закончилось) мы проверяем/сбрасываем флаги и выводим слово. Переменную где хранили слово обнуляем.

А на какую печать надо выводить? Принтер?

АДД: Вот например из моего "архива" такая вот программа. Она обрабатывает предложение и каждое слово выписывает на новой строке.
Алгоритм поиска слов как раз который я описал..

var i, k : integer;
      S : String;

begin
k := 0;
Readln (S);
if S[1] <> ' ' Then k := k + 1;
For i := 1 To Length(S) Do
  Begin
    if i = Length(S) Then Break;
    if (S[i] = ' ') And (S[i + 1] <> ' ') Then k := k + 1;
  End;
Writeln (k);
Readln;
end.

[Алексей Д.]

мы натыкаемся на символ отличный от буквы, то выставляем флаг что это слово нам неподходит

Так по идее ж нам как раз нужны те слова в которых есть знаки..

А на какую печать надо выводить? Принтер?

Ну думаю да, но в принципе наверно можно и без этого обойтись. просто чтоб когда идет writeln от строки выводились лишь слова в котрых есть знаки, а остальные отсеивались. я через delete сделал, но препод сказал, что неправильно и надо чтобы для любой строки алгоритм работал, так сказать общее решение для данного случая.

А как выставлять флаг?? И что значит начинаем записывать последующие символы в переменную??

[Алексей Д.]

Могу для наглядности написать официальное так сказать условие программы:

дана последовательность до 30 слов, в каждом из кот от 1 до 5 символов, между словами пробел или запятая, в конце последовательности - точка. напечатать все слова, в кот присутствуют знаки, не являющиеся буквами.

[Карась]

Я опубликовал в этой теме программу.
Которая кстати занимается подсчётом слов в строке
хотя пару минут назад занималась совсем другим....

Для начала переделай её так чтоб она выводила каждое слово на новой строке.
Затем уже немного доработав её ты сделаешь нужный "фильтр".

А как выставлять флаг?? И что значит начинаем записывать последующие символы в переменную??

Это переменная типа Boolean.

Добавление символа к строке: Stroka := Stroka + S[i];