Розв'язок

Дано натуральное число m. Создать целочисленную матрицу А порядка m, которая на главной диагонали имеет 1, под ней – 5, над ней – 4.

Пример.

program Vvod_matr2;

const n=9; m=11;

var A:array [1..n,1..m] of byte;

i,j:byte;

begin

for i:=1 to n do

for j:=1 to m do

a[i,j]:=sqr(i+j);

writeln;

writeln('Output matrix a(',n,'*',m,')');

for i:=1 to n do

begin

for j:=1 to m do

write(a[i,j]:3);

writeln

end;

readln;readln

end.

Решим задачу, когда матрицу необходимо получить за заданным алгоритмом.

В математике матрица это прямоугольная таблица, образованная из элементов некоторого множества и составляет с m строк и n столбцов. Если таблица называется прямоугольной матрицей размера . Если матрица называется квадратной, а число m – ее порядком.

Рассмотрим эту задачу на примере матрицы . Выучим условия какие присутствуют в этом примере: , , (i – номер строки, j – номер столбца).

Равные индексы () имеют элементы главной диагонали. Если (), то элементы расположены над главной диагональю (i изменяется от 1 до 3, j изменяется от 2 до 4). Если (), то элементы расположены под главной диагональю (i изменяется от 2 до 4, j изменяется от 1 до 3).Учитывая эти соображения, запишем формулу для вычисления элемента матрицы

program N2;

const m=4;

var A: array [1..m, 1..m] of byte;

i,j:byte;

begin

//Создание матрицы по заданному правилу

for i:=1 to m do

for j:=1 to m do

if i=j then A[i,j]:=1

else

if i<j then A[i,j]:=4

else A[i,j]:=5;

//Вывод матрицы на экран

writeln(‘Matriza porydka’, m);

for i:=1 to m do

begin

for j:=1 to m do

write(a[i,j],' ');

writeln

end;

end.

Дана прямоугольная матрица размером 3*4. Найти количество нулевых элементов в каждом столбце матрицы

program DM;

const m=3; n=4;

var a: array [1..m,1..n] of byte;

i, j, k: byte;

begin

writeln('Vvedite matrizu razmerom ',m,'*',n);

//Создание матрицы

For i:=1 to m do

For j:=1 to n do

read(a[i,j]);

For j:=1 to n do

begin

k:=0;

For i:=1 to m do

if A[i,j]=0 then k:=k+1;

writeln('v ',j, ' stolbze ',k, ' elementov');

end;

readln;readln

end.

Дата добавления: 2014-01-04