массивы делфи7

[рита]

утверждается, что массив А целиком(как последовательность) встречается в массиве В. Найти место массива А в массиве В или показать , что его там нет??? помогите пожалуйста

[Данила]

Скажите,зачем флудить в других темах других разделов? Бан захотелось?

[рита]

я еще не ориентируюсь здесь!

[рита]

мне и не нужно полностью, я не могу в задаче запомнить место, где встречается массив а!!!

[Данила]

что значет не можете? запоминайте индекс,начиная с которого А включен в В и всё

[Asix]

рита, что Вы делали и что не получается?
Какие есть свои мысли?? =))

[рита]

я думаю, что ВСЕ неправильно! не знаю, как найти один массив в другом, и думаю, что оба массива д.б. не определены кол-вом а; а у меня 5 и 25(((
program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;
var a:array [1..5] of integer;
b:array [1..25] of integer;
i, j, l:integer;

begin
  { TODO -oUser -cConsole Main : Insert code here }
for i:=1 to 5 do begin
readln (a); end;
for j:=1 to 25 do begin
readln  (b[j]);end;
for i:=1 to 5 do begin
for j:=1 to 25 do begin
while a=b[j] do (l:=j) else
writeln ('Ìàññèâà À â ìàññèâå Â íåò');
end; end;
writeln (l, ' ');
readln;
end.

[InfStudent]

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

[рита]

ну в одном массиве есть другой, причем в такой же последовательности, нужно найти и вывести на экран, где он начинается и где заканчивается!

[privatnebank]

ну в одном массиве есть другой, причем в такой же последовательности, нужно найти и вывести на экран, где он начинается и где заканчивается!

Значит у вас есть 2 массива. Вы можете вводить их либо с клавиатуры, либо заполнять автоматически. Тогда:
1) Заполнение массивов a[1..5] и b[1..25];
2) Затем нужно взять первый элемент массива A и сравнить с первым элементом массива В. Если эти элементы равны между собой, тогда запоминаем номер элемента в массиве В и берем следующие номера элементов и делаем сравнение снова. Если же очередной элемент массива А не равен очередному элементу массива В, тогда возвращаемся к первому элементу массива А и сравниваем его со следующим элементом массива В. Выполнять все эти действия нужно:
 - пока индекс элемента массива А не превысит его размер - и это будет означать, что в массиве В есть массив А:
 - или же пока индекс элемента массива В не превысит его размер - и это будет означать, что массива А в массиве В нет.

 Следуя этой логике, то вроде должно работать...

[рита]

действовать нужно через оп-р for? но тогда при сравнении сравниваются только первые элементы и все...а нельзя как я, ну дальше развить эту мысль? с неопр. циклом, ну пока элементы 2 массивов равны, мы запоминаем поряд.номер элемента, а потом его просто распечатываем???

[privatnebank]

Используйте цикл repeat с постпроверкой условие until i>5 or j>25. Где i- для массива А, а j-для массива B. А внутри этого цикла While i<=5 and j<=25 do if a. Оно где-то так будет выглядеть:
---------------
i:=1; j:=1;
repeat
   while (i<=5) and (j<=25) do
           if a=b[j] then
                          begin
                                 inc(i);
                                 inc(j);
                          end
           else
                begin
                       inc(j);
                       i:=1;
                end;
until j>25 or i>5;
if i>5 then .... значит массив есть
else.... массива нет.
Надо только ещё как-нить номер j-того элемента массива В запоминать, если тот равен первому элементу массива А. Можно булевую операцию использовать. Запоминать j элемент массива, если тот равен итому элементу массива А и устанавливать значение false. Если же следующие элементы массивов не равны значит опять ставим тру, ищем равенство элементов, запоминаем j, ставим фолс... как-то так. Попробуйте поразбираться в этом
                                 
   

[рита]

спасибо, я попробую разобраться!

[InfStudent]

Можете так же использовать столь Вами не любимый цикл While, хотя почему вы его не любите не понятно:
ведь работает он просто:
1) Проверить условие
2) Выполнить тело цикла, если условие=true
3) Изменить переменную хранящие условие
4) ЕСЛИ УСЛОВИЕ=FALSE прекратить цикл
пример:
...
While i<=10 do //выполнять цикл пока i меньше или равна 10
begin
writeln(i);
i:=i+1//изменяем "условную переменную"
end;
 ...

[рита]

скажите, а можете в бейсике, я им ни разу не пользовалась просто очень нужно)))пожалуйста