Алгоритм на выборку из текста

[o1ps]

(алгоритм)Подскажите пожалуйста способ как из теста длины в 200 символов выбрать слова длиной в 5 символов, причем эти слова не должны содержать букву "А". Буду очень благодарен.

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
temp, SourceString, ResultString: string;
begin
temp := '';
ResultString := '';
SourceString := Memo1.Text;
for i := 1 to length(SourceString) do
begin
if SourceString[i] = ' ' then
begin
if length(temp) = 5 and pos(temp, 'A') = 0 then
ResultString := ResultString + temp + ', ';
temp := '';
continue;
end;
temp := temp + SourceString[i];
end;
ResultString := copy(ResultString, 1, length(ResultString) - 2);
end;

Примерно так, здесь нет проверки на символы переноса строки, это добавьте сами.

[o1ps]

это код. а в виде простого алгоритма можно пожалуйста показать?! Буду благодарен безмерно

[Shuraken]

Э-э-э, гхм...
Блок-схему что ли надо? Или просто объяснить как работает код?
Код работает просто: в одной строковой переменной содержится исходная строка, в другую записываем нужные нам слова через запятую, к примеру иходная строка такая:
'Делфи ответ тематика режим сообщение студент подпись...'. Начинаем ее посимвольно проходить и записывать промежуточный результат. Как только мы увидели, что слово закончилось, то проверяем промежуточный результат: if length(temp) = 5 - длина слова ; pos(temp, 'A') = 0 - отсутствует буква "А". Если он совпадает (в текущем примере это будут слова Делфи ответ режим) то тогда записываем это слово в результирующую строку.

[o1ps]

Спасибо. ИМенно то что мне нужно. Только подскажи пожалуйста поподробней в виде блок схемы как пройти данный этап : "Начинаем ее посимвольно проходить и записывать промежуточный результат. Как только мы увидели, что слово закончилось, то проверяем промежуточный результат"
А не затруднит ли вас помочь составить такой же алгоритм (блок схему ) на поиск именно цифр в тексте?

[Shuraken]

И как искать цифры?

[Killer_djon]

Ну придется разве что объявлять символьный массив цифр типа:

numb : array[0..9] of string('0', '1', и так до '9');
и потом в цикле прокрутить это, если какой либо элемент массива попадается в тексте то... тело процедуры или функции... вот и всё!

[Shuraken]

procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
IsNum: boolean;
temp, SourceString, ResultString: string;
begin
IsNum := false;
temp := '';
ResultString := '';
SourceString := Memo1.Text;
for i := 1 to length(SourceString) do
begin
if SourceString[i] = ' ' then
begin
if not IsNum then
if length(temp) = 5 and pos(temp, 'A') = 0 then
ResultString := ResultString + temp + ', ';
temp := '';
IsNum := false;
continue;
end;
temp := temp + SourceString[i];
IsNum := IsNum or SourceString[i] in ['1', '2', '3', '4', '5', '6', '7', '8', '9', '0'];
end;
ResultString := copy(ResultString, 1, length(ResultString) - 2);
end;

Здесь лишь немного изменяется алгоритм. Проходим посимвольно строку и если встречается цифра, то устанавливаем флаг, что встретилась цифра и при проверке слова смотрим флаг. Если цифры не было, то проверяем остальные условия.

[o1ps]

Можно вас пожалуйста попросить написать это не в виде кода, а блок схемы? Буду очень признателен, пожалуйста.

[Shuraken]

Можно узнать зачем? Ты не понимаешь, как это работает? Тогда и блок-схема не поможет. Я могу объяснить, это несложно.