Заполнение матриц случайными числами

@Valeriy34 · Регистрация: 22.11.2014

Студворк — интернет-сервис помощи студентам

Помогите с заданием, пожалуйста:
В процедуре заполните матрицу пятого порядка случайными числами. В основной программе используйте эту процедуру для заполнения трех матриц с различными именами, а в функции найдите сумму элементов результирующей матрицы.
С программированием у меня всё плохо, поэтому вот что получилось, при запуске выводит 3 случайно заполненные матрицы, но как написать функцию я не знаю:

Pascal

Program s6;
uses crt;
 
type matrix=array  [1..5,1..5] of integer;
var a,b1,c1:matrix;
i,j:integer;
 
procedure random1(var a:matrix);
var i,j:integer;
begin
randomize;
for i:=1 to 5 do 
    for j:=1 to 5 do
         a[i,j]:=random(9);
end;
procedure random2(var a:matrix);
var i,j:integer;
begin
randomize;
for i:=1 to 5 do 
    for j:=1 to 5 do
         b1[i,j]:=random(15);
end;
procedure random3(var a:matrix);
var i,j:integer;
begin
randomize;
for i:=1 to 5 do 
    for j:=1 to 5 do
         c1[i,j]:=random(19);
end;
 
procedure print1(a:matrix);
var i,j: integer; 
begin 
   writeln('Случайная матрица 1:');
   for i:=1 to 5 do 
   begin 
      for j:=1 to 5 do 
         Write (a[i, j]:4);
      Writeln; 
   end; 
end;
procedure print2(b1:matrix);
var i,j: integer; 
begin 
   writeln('Случайная матрица 2:');
   for i:=1 to 5 do 
   begin 
      for j:=1 to 5 do 
         Write (b1[i, j]:4);
      Writeln; 
   end; 
end;
procedure print3(c1:matrix);
var i,j: integer; 
begin 
   writeln('Случайная матрица 3:');
   for i:=1 to 5 do 
   begin 
      for j:=1 to 5 do 
         Write (c1[i, j]:4);
      Writeln; 
   end; 
end;
begin
random1(a);
random2(b1);
random3(c1);
print1(a);
print2(b1);
print3(c1);
end.

@Puporev · 15.04.2018, 17:28

Начало так.

Pascal

uses crt;
const n=5;
type matrix=array  [1..n,1..n] of integer;
procedure rand_mtr(var a:matrix);
var i,j:integer;
begin
for i:=1 to n do
for j:=1 to n do
a[i,j]:=random(20);
end;
procedure print(a:matrix;s:string);
var i,j: integer;
begin
writeln(s);
for i:=1 to n do
 begin
  for j:=1 to n do
  Write (a[i, j]:4);
  Writeln;
 end;
end;
var a,b,c:matrix;
begin
rand_mtr(a);
rand_mtr(b);
rand_mtr(c);
print(a,'Матрица А');
print(b,'Матрица В');
print(c,'Матрица С');
end.

Что еще нужно сделать, что такое результирующая матрица?

@Valeriy34 · 15.04.2018, 17:40 **[ТС]**

Как я понял, нужно сделать функцию перемножения двух любых матриц.
Хотя я внимательнее перечитал задание, и похоже тут нужно сложить 3 эти матрицы с помощью функции)

@Puporev · 15.04.2018, 17:44

Процедура умножения двух матриц.

Pascal

procedure umn(a,b:matrix;var c:matrix);
var i,j,k:integer;
begin
for i:=1 to n do
for j:=1 to n do
 begin
  c[i,j]:=0;
  for k:=1 to n do
  c[i,j]:=c[i,j]+a[i,k]*b[k,j];
 end;
end;

@Valeriy34 · 15.04.2018, 17:58 **[ТС]**

Спасибо большое!

Заполнение матриц случайными числами

Решение

Решение

@Valeriy34 0 / 0 / 0 Регистрация: 22.11.2014 Сообщений: 7
	15.04.2018, 17:40 [ТС]	3
	Как я понял, нужно сделать функцию перемножения двух любых матриц. Хотя я внимательнее перечитал задание, и похоже тут нужно сложить 3 эти матрицы с помощью функции) 0

@Valeriy34 0 / 0 / 0 Регистрация: 22.11.2014 Сообщений: 7
	15.04.2018, 17:58 [ТС]	5
	Спасибо большое! 0

Опции темы