[Pascal]Матрица Опции

[fly]

Хелпаните с задачкой плз...Задание такое:
Дан массив целых чисел MxM.Вводится произвольный массив чисел KxK.Известно ,что K существенно меньше, чем M.Определить,сколько раз второй массив всречается в первом.

Вот пытался кое что делать.Что я не так делаю?

Код

var k:array[1..100,1..100] of integer;
    m:array[1..100,1..100] of integer;
n,h,i,j:byte;
begin
writeln('vv kol strok');
readln(n);
writeln('vv kol stolbcov');
readln(h);
for i:=1 to h do
end;
begin
writeln('vv',h,'chisel);
for j:=1 to m do
read(a[i,j]);
end;
begin
  even:=true;
  for i:=1 to K do
  for j:=1 to K do
     if M[i+x,j+y]<>K[x,y] then begin even:=false; break;end;
end;
count,i,j:byte;
begin
  count:=0;
  for i:=0 to M-K do
  for j:=0 to M-K do
  if even(i,j) then inc(count);
  writeln(count)
end.

Сообщение отредактировано: fly - 18.04.2007 17:21

[volvo]

Ну, пробегай в цикле (в двух, если быть точнее) по большой матрице (строки: 1 .. M-K, столбцы: 1 .. M-K)... Если текущий элемент = элементу малой матрицы с индексами [1, 1], то пробегать по K*K соседним элементам доп. циклами...

Ты хотя бы начни, на самом деле здесь ничего сложного нет...