Форум программистов [Powered by Invision Power Board]

Код


Uses crt;
Var s:integer;
Procedure matr;
var
a:array[1..100,1..100] of integer;
b:array[1..100,1..100] of integer;
i,j,n:integer;
c1,c2:integer;
begin
n:=s;
c1:=1;
c2:=1;
for i:=1 to n do
for j:=1 to m do
begin
writeln('Vvedite element matricy a','[',i,',',j,']');
readln(a[i,j]);
end;
for i:=1 to n do
for j:=1 to m do
begin
writeln('Vvedite element matricy b','[',i,',',j,']');
readln(b[i,j]);
end;
end;
end.

Код


Uses crt;
type vect=array [1..100] of integer; {описали тип - одномерный массив}
        matr=array[1..100] of vect;       {описали тип  - массив одномерных массивов, получился двумерный, матрица то есть}
var i,j,n,m:byte;
      a:matr;
      t:integer;

Function summ(i,m:byte, a:matr):integer;  {описали функцию, которая будет возвращать сумму элементов в строке}
{в фукцию передали число элементов в строке - m,  номер строки, которую суммируем - i, и сам массив а}
var s:integer
      j:byte;
begin
s:=0;  {в этой переменной накапливаем сумму}
for j:=1 to m do  
         s:=s+a[i,j];  {идем по i-ой строке, прибавляя каждый ее элемент к s}
summ=s; {функция вернет значение переменной s, то есть искомую сумму}
end;

begin
writeln('Vvedite razmernost matritsi:');
write('n=');
readln(n);
write('m=');
readln(m);   {в переменные n и m считали размерность матрицы}
for i:=1 to n do
     for j:=1 to m do
          begin
             writeln('Vvedite element matricy a','[',i,',',j,']');  {заполнили матрицу}
              readln(a[i,j]);
          end;

for i:=1 to n do
     begin
     for j:=1 to m do
             write(a[i,j], '  ');  {заполнили матрицу}
     writeln('');
     end;
for i:=1 to n do  {для каждой строки вызываем процедуру}
      begin
          t =  summ(i,m,a); {получили сумму элементов строки}
          writeln('Summa elementov ', i, ' stroki =' ,t);
     end;
end;

Код


program example;

const
  n = 5;
  m = 3;

type
  Matrix = array[1..n, 1..m] of Integer;
  Vector = array[1..n] of Integer;

var
  a: Matrix;
  sum: Vector;
  i, j: Integer;

procedure CalcSums(var b: Matrix; var s: Vector);
var
  i, j: Integer;
begin
  for i := 1 to n do
  begin
    s[i] := 0;
    for j := 1 to m do
      s[i] := s[i] + b[i, j];
  end;
end;

begin
  Randomize;
  for i := 1 to n do
    for j := 1 to m do
      a[i, j] := Random(100);

  CalcSums(a, sum);

  for i := 1 to n do
  begin
    Writeln;
    for j := 1 to m do
      Write(a[i, j]:4);
    Write(' | ', sum[i]);
  end;

  Readln;
end.

Цитата(Suriv @ 16.11.2008, 08:08

)

Это я за друга пишу, он тут незарегистрирован просто поэтому я пишу, а так он на программиста вроде учится.