Текст программы
program matrix;
uses crt;
const N=4; M=5;
var A: array[1..N,1..M] of integer;
i,j,b,mi,ma,t: integer;
begin
for i:=1 to N do
begin
for j:=1 to M do
begin
A[i,j]:=random(20)-10;
write(A[i,j]:5);
end;
writeln;
end;
writeln;
for i:=1 to N do
begin b:=1;
for j:=1 to M do
begin
b:=b*a[i,j];
end;
writeln(b);
end;
writeln;
for j:=1 to M do
begin t:=0;
for i:=1 to N do
begin
t:=t+A[i,j];
end;
write(t/N:6:2);
end;
writeln;
writeln;
for i:=1 to N do
begin
mi:=0;
ma:=0;
for j:=1 to M do
begin
if mi>A[i,j] then mi:=A[i,j];
if ma<A[i,j] then ma:=A[i,j];
end;
writeln(ma-mi);
end;
writeln;
for j:=1 to M do
begin
b:=0;
for i:=1 to N do
begin
if (A[i,j]<0) and (b=0) then
begin b:=4;
write(A[i,j]:6);
end;
end;
end;
end.
Тестирование
Вводится исходный двухмерный массив(a[i,j]), после чего программа начинает выполнять следующие действия, находит произведение элементов соответствующих строк, среднее арифметическое соответствующих столбцов, разность наибольших и наименьших элементов соответствующих строк, значения первых отрицательных элементов в столбцах.
1:
9 -9 -4 -9 1
-9 7 8 -3 -5
-4 3 3 7 -7
-2 9 -10 0 4
-2916
-7560
1764
0
-1.5 2.5 -0.75 -1.25 -1.75
18
17
14
19
-9 -9 -4 -9 -5
Задача 4
Даны натуральное число n, действительная квадратная матрица порядка n, действительные числа a1,...,an+5. Элементы последовательности a1,...,an+5 домножить на 10, если наибольший элемент матрицы (в предположении, что такой элемент единственный) находится на главной диагонали, и на 0.5 в противном случае.
Работа программы
Путем рандомизации задается квадратная матрица(двух мерный массив), также задается ряд последовательности чисел (одномерный массив), если наибольший элемент квадратной матрицы лежит на главной диагонали, то каждый элемент последовательности(одномерный массив) домножается на 10, во всех остальных случаях на 0.5
Назначение переменных
Назначение переменных, используемых в задаче, приведено в таблице 1
Таблица 1 – Назначение переменных
|
Переменная |
Тип |
Назначение переменной |
|
M,A,B |
Array of integer |
Исходный двумерный массив(m). a,b одномерные массивы |
|
I,n,j,max,imax,jmax |
Integer |
Различные целочисленные константы используемые в теле программы. |
Блок – схема алгоритма программы
Начало
N:=3
I:=1
to n do
j:=1
to n do
A[I,j]:=random(200)
Вывод
массива
I:=1
to n+5 do
A[I,j]:=random(10)
Вывод
массива
Max:=m[1,1]
imax:=1 jmax:=1
I:=1
to n do
j:=1
to n do
M[I,j]>max Да Нет
Max:=m[I,j]
imax:=i jmax:=j
Вывод
элемента массива
imax=jmax Да Нет
I:=1
to n+5 I:=1
to n+5
B[i]:=a[i]*10 B[i]:=a[i]*0.5
Вывод
массива Вывод
массива
Конец