Двумерная матрица - Pascal
Формулировка задачи:
Помогите пожалуйста решить задачу
В матрице A=(a[i,j] (i,j=1,2,...,n) каждый элемент равен 1,2,3 или 4. Подсчитайте количество четверок
a[i,j],a[i,j+1],a[i+1,j],a[i+1,j+1], в каждой из которых все элементы различны; n=6
Решение задачи: «Двумерная матрица»
textual
Листинг программы
uses crt; const n=6; var a:array[1..n,1..n] of integer; i,j,k,p,q,sm,pr:integer; begin ClrScr; randomize; Writeln('Введенная матрица...'); for i:=1 to n do begin for j:=1 to n do begin a[i,j]:=random(4)+1; Write(a[i,j]:3); end; Writeln; end; k:=0; for i:=1 to n-1 do for j:=1 to n-1 do begin sm:=0;pr:=1; for p:=i to i+1 do for q:=j to j+1 do begin sm:=sm+a[p,q]; pr:=pr*a[p,q]; end; if(sm=10)and(pr=24)then k:=k+1; end; write('Всего четверок=',k); readln end.
Объяснение кода листинга программы
- В начале кода подключается библиотека crt, которая используется для работы с числами с плавающей точкой.
- Затем определяется константа n, которая определяет размерность двумерной матрицы (в данном случае 6).
- Далее объявляются переменные a, i, j, k, q, sm и pr. Переменная a представляет собой двумерную матрицу целых чисел размером n x n. Остальные переменные используются для различных вычислений и циклов.
- Выводится сообщение
Введенная матрица...
, предлагающее пользователю ввести матрицу. - Затем идет цикл for, который проходит по каждому элементу матрицы (от 1 до n) и выполняет следующие действия:
- внутри первого цикла for выводится значение каждого элемента матрицы (от 1 до n) с помощью Write(a[i,j]:3);
- после завершения внутреннего цикла for выводится символ новой строки Writeln;
- после завершения внешнего цикла for выводится символ новой строки Writeln;
- Далее идет еще один цикл for, который проходит по каждому элементу матрицы (от 1 до n-1) и выполняет следующие действия:
- внутри второго цикла for вычисляются суммы sm и произведения pr для каждой пары соседних элементов матрицы (от i до i+1 и от j до j+1) с помощью вложенных циклов for.
- если выполняется условие sm = 10 и pr = 24, то переменная k увеличивается на 1.
- В конце выводится сообщение
Всего четверок=
, которое показывает количество пар соседних элементов матрицы, удовлетворяющих условию. - Конец программы.
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д