Алгоритмы и программы. Афанасьева Т. В - 141 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

141
for j:=1 to 3 do
write(a[i,j]:3);
writeln;
end; {заполнение и вывод матриц}
writeln;
for j:=1 to 3 do
for f:=1 to 2 do
b[j,f]:=random(10);
for j:=1 to 3 do
begin
for f:=1 to 2 do write(b[j,f]:3);
writeln;
end;
writeln;
writeln('Задание : найти произведение этих матриц');
writeln('Результат:');
writeln;
for i:=1 to 2 do
for f:=1 to 2 do
begin
s:=0;
for j:=1 to 3 do {поиск произведения}
s:=s+a[i,j]*b[j,f];
c[i,f]:=s;
end;
for i:=1 to 2 do
begin
for f:=1 to 2 do {вывод результата}
write(c[i,f]:5);
writeln;
end;
readln;
readln;
end.
Задания для самостоятельного выполнения
1. Дана вещественная матрица А(3,4). Составить программу подсчета
количества элементов матрицы, удовлетворяющих условию р1<=a(i,j)<=p2.
Значения р1 и р2 задаются самостоятельно.
2. Дана вещественная матрица А(4,4). Составить программу вычисления
суммы элементов, расположенных выше главной диагонали.
3. Дана квадратная матрица А(N.N). Составить программу вычисления
суммы элементов, расположенных ниже главной диагонали.

Страницы