Задача. Составить одмерный массив из слов, которые состоят только из букв минимального по длине слова. Разделители:. , ! ? / и пробел.
вопрос в том, что не пойму как искать сами вхождения букв минимального слова в остальные слова.
помогите плиз...
const
{ Это массив тех слов, которые найдены в строке }
arr: array[1 .. 10] of string = (
'start', 'finish', 'begin', 'end', 'stop',
'aaaaa', 'bbbbbb', 'ccccc', 'ennndddd', 'eeee'
);
{ Это - минимальное по длине слово, тоже просто определяется }
min_word: string = 'end';
var
i, j: integer;
current: string;
error: boolean;
begin
for i := 1 to 10 do begin { <--- Вместо 10 должна быть реальное количество слов в массиве }
error := false;
current := arr[i];
for j := 1 to length(current) do
if pos(current[j], min_word) = 0 then error := true;
if not error then
writeln(current); { Здесь я просто распечатываю значение, но можно... }
end;
end.
Спасибо большое! Теперь все поняла...
Вы - гений..