Программа умножения двух матриц порядка n*n

Категория: Delphi/Pascal
2011-09-04 15:47:25

Написать программу умножения двух матриц порядка n*n. Исходную матрицу получить используя генератор псевдослучайных чисел, вторая матрица получается транспонированием исходной.

code: #pascal
  1. program zad1;
  2.  uses crt;
  3.  const max_n=100;
  4.  type
  5.  mass=array[1..max_,1..max_n] of integer;
  6.  var
  7.  a,b:mass;
  8.  i,j,n:integer;
  9.  begin
  10.   clrscr;
  11.   writeln('VVEDITE n');
  12.   readln(n);
  13.   for i:=1 to n do begin
  14.   for j:=1 to n do begin
  15.   a[i,j]:=random(10);
  16.   b[j,i]:=a[i,j];
  17.   write(a[i,j],' ');
  18.  end;
  19.  writeln;
  20.  end;
  21.  writeln;
  22.   for i:=1 to n do begin
  23.   for j:=1 to n do write(b[i,j],' ');
  24.  writeln;
  25.  end;
  26.   for i:=1 to n do
  27.   for j:=1 to n do
  28.   a[i,j]:=a[i,j]*b[i,j];
  29.  writeln;
  30.   for i:=1 to n do begin
  31.   for j:=1 to n do write(a[i,j],' ');
  32.  writeln;
  33.  end;
  34.  writeln;
  35.   for i:=1 to n do begin
  36.   for j:=1 to n do write(b[i,j],' ');
  37.  writeln;
  38.  end;
  39.  readkey;
  40.  end.
Поделиться:

Похожие статьи:

теги: студенты, массив, двумерный массив, консольное приложение, матрица