Показать сообщение отдельно
Старый 28.04.2013, 14:19   #4 (permalink)
Darik102rus
Новичок
 
Регистрация: 26.04.2013
Сообщений: 11
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
По умолчанию

Цитата:
Сообщение от Vladimir_S Посмотреть сообщение
Ну вот, как-то так:
Код:
const
 n=7;
var
  a,b,c1,c2,c: array [1..n,1..n] of integer;
  i,j,k: byte;
begin
 Randomize;
 writeln('Matrix A:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     A[i,j]:=random(20);
     write(a[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix B:');
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     b[i,j]:=random(20);
     write(b[i,j]:8);
    end;
   writeln;
  end;
 writeln('Matrix C:');
 for i:=1 to n do
  for j:=1 to n do
   begin
    c1[i,j]:=0;
    c2[i,j]:=0;
   end;
 for i:=1 to n do
  for j:=1 to n do
   for k:=1 to n do
    begin
     c1[i,j]:=c1[i,j]+a[i,k]*b[k,j];
     c2[i,j]:=c2[i,j]+b[i,k]*a[k,j];
    end;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     c[i,j]:=c1[i,j]+c2[i,j];
     write(c[i,j]:8);
    end;
   writeln;
  end;
 readln
end.
Можете сделать чтобы N вводить с клавиатуры?
Darik102rus вне форума   Ответить с цитированием
Ads

Яндекс

Member
 
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070