Задача на матрицы (Delphi)

Posted by obzor under Delphi

Дана целочисленная матрица Q размера nxn и целочисленная матрица P размера mxm, причём 1<m<n. Написать программу для подсчёта количества вхождений матрицы P в матрицу Q в качестве подматрицы.

Аватар

  Count:=0;
  for i1:=1 to n-m+1 do
    for j1:=1 to n-m+1 do begin
      Equ:=True;
      for i:=1 to m do
        for j:=1 to m do
          if q[ i1+i-1,j1+j-1]<>p[ i,j] then begin Equ:=False; Break; end;
      if Equ then Inc(Count);
    end;

тема на форуме

Случайные статьи

• Проверка занятости логина на странице с помощью indy
• Как получить определенный символ из переменной зная его номер в последовательности символов?
• Как можно определить препроцессорной оберткой delphi какой код следует компилить релизную или дебажную версию?
• Задержка консоли перед закрытием в C++
• Дизассемблировать Обработчик прерываний Bios для клавиатуры
• ВВОДИТЬ С КЛАВИАТУРЫ СВЕДЕНИЯ О ПОЛЕТАХ АВИАКОМПАНИИ: ТИП САМОЛЕТА, ПУНКТ НАЗНАЧЕНИЯ, ДАТА ВЫЛЕТА, ПРОДОЛЖИТЕЛЬНОСТЬ ПОЛЕТА
• Рассылка. Выпуск 120
• Извлечь иконку из программы
• Быстрое написание программ на WinAPI
• Безопасность PHP. Проверка поступивших данных