[Pascal] Двумерные массивы
Добавлено: 14 апр 2007, 19:08
Дан массив целых чисел MxM.Вводится произвольный массив чисел KxK.Известно ,что K существенно меньше, чем M.Определить,сколько раз второй массив всречается в первом.
Почему сразу "лень"? Ведь существует понятие "начинающий программист", которму, как показывает практика, всё нужно разжевать и положить в рот, чтобы он понял... Может быть ты и прав, но нужно хотя бы что-то знать о том человеке, в чей адрес говоришь, прежде чем бросаться такими словами!задача из разряда "легко, но лень"
Сразу код:Дан массив целых чисел MxM.Вводится произвольный массив чисел KxK.Известно ,что K существенно меньше, чем M.Определить,сколько раз второй массив всречается в первом.
Код: Выделить всё
var m,k,cons: integer; {m - массив MxM; k - массив KxK; consists - ответ}
begin
readln(m);
readln(k);
cons:=sqr((m-k)+1);
end.
Код: Выделить всё
function even(x,y:byte):boolean;
var i,j:byte;
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;
var 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.