Помощь - Поиск - Пользователи - Календарь
Полная версия: Одномерные массивы
Форум «Всё о Паскале» > Pascal, Object Pascal > Задачи
Nina
Есть такая задачка:
Имеется 2 одномерных массива X и Y. Проверить входит ли последовательно массив Y в массив X и с какой позиции.
Например X состоит из чисел 1 2 3 4 5 6, а Y из 2 3 4, тогда входит со второй позиции.
Но в моем решении мне не удается проверить входит ли Y в X именно последовательно, т.е если
Y даже 1 3 4 то программа пишет, что входит.
volvo
const
len_x = 6;
x: array[1 .. len_x] of integer =
(1, 2, 3, 4, 5, 6);

len_y = 3;
y: array[1 .. len_y] of integer =
(4, 5, 6);

var
i, j: integer;
found: boolean;

begin
found := false;
i := 1;
while (i <= (len_x - len_y + 1)) and (not found) do begin
j := 1;
while (x[i + j - 1] = y[j]) and (j <= len_y) do inc(j);

if j = succ(len_y) then begin
writeln('Y is inside X from position = ', i);
found := true;
end
else inc(i)
end;

if not found then writeln('Oops ...');

end.

Массив X должен быть большего размера, чем массив Y... Можно сразу проверять это в начале программы...
Altair
Для случая массива из byte, интересен ИМХО такой вариант решения :
{$mode objfpc}
type
schar = packed array[0..255] of char;
var
x,y:schar;
//i:byte;
begin
writeln('X=');
readln(x);
writeln('Y=');
readln(y);
//for i:=0 to length(x) do write(x[i]:3);
writeln(pos(y,x));
readln;
end.

тесты.
1.
Цитата
X=012345
Y=1234
2

2.
Цитата
X=0123456
Y=0234
0

3. (я думал на таком тесте он завалится из-за 0 символа, но прошел на "ура")
Цитата
X=023456
Y=123
0
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.