(Паскаль) Проверка строк массива на наличие определенных символов
Помогите, пожалуйста, по задаче. Она легкая, но меня чё-то затупило. Условие: Дан массив слов, надо в каждом слове найти позицию первых букв (а,о,е).
Перефразирую: "Дан массив строк. Для каждой строки требуется найти позицию первых символов 'a', 'o','e'.".
[highlight=pascal]
type
TPosition = record
PosA : Integer;
PosO : Integer;
PosE : Integer;
end;
...
for i := 0 to n - 1 do begin
positions.PosA := pos('a',mas);
positions.PosA := pos('o',mas);
positions.PosA := pos('e',mas);
end;
...
[/highlight]
где
n - длина массива mas (массива строк)
positions - массив позиций букв.
[highlight=pascal]
type
TPosition = record
PosA : Integer;
PosO : Integer;
PosE : Integer;
end;
...
for i := 0 to n - 1 do begin
positions.PosA := pos('a',mas);
positions.PosA := pos('o',mas);
positions.PosA := pos('e',mas);
end;
...
[/highlight]
где
n - длина массива mas (массива строк)
positions - массив позиций букв.
Цитата: AIGrifon
Перефразирую: "Дан массив строк. Для каждой строки требуется найти позицию первых символов 'a', 'o','e'.".
[highlight=pascal]
type
TPosition = record
PosA : Integer;
PosO : Integer;
PosE : Integer;
end;
...
for i := 0 to n - 1 do begin
positions.PosA := pos('a',mas);
positions.PosA := pos('o',mas);
positions.PosA := pos('e',mas);
end;
...
[/highlight]
где
n - длина массива mas (массива строк)
positions - массив позиций букв.
[highlight=pascal]
type
TPosition = record
PosA : Integer;
PosO : Integer;
PosE : Integer;
end;
...
for i := 0 to n - 1 do begin
positions.PosA := pos('a',mas);
positions.PosA := pos('o',mas);
positions.PosA := pos('e',mas);
end;
...
[/highlight]
где
n - длина массива mas (массива строк)
positions - массив позиций букв.
Извиняюсь за не точное условие! Я его упростил, а ты AIGrifon его изменил!
(мне не надо было разбивать на разные массивы)
Уточняю: Дан массив строк. Если в строке есть буквы(а,о,е),то вывести строку…
Цитата:
Извиняюсь за не точное условие! Я его упростил, а ты AIGrifon его изменил!
(мне не надо было разбивать на разные массивы)
Уточняю: Дан массив строк. Если в строке есть буквы(а,о,е),то вывести строку…
Тогда код изменится на приведенный ниже:
[highlight=pascal]
...
for i := 0 to n - 1 do begin
if (pos('a',mas) > 0) or (pos('o',mas) > 0) or (pos('e',mas) > 0) then
writeln(mas);
end;
...
[/highlight]
Выполнение данного кода позвлит вывести на экран все строки, содержащие хотя бы один из символов а или о или е. Если нужно вывести строки, содержащие а и о и е, то необходимо or в условии заменить на and.