Как найти сумму по столбцам на паскале

Перейти к содержанию

const

    M = 10;

    N = 5;

var 

    a: array[1..N,1..M] of integer;

    i, j: byte;

    s: integer;

    sc: array[1..M] of integer;

begin

     for i:= 1 to M do 

        sc[i] := 0;

 
    for i:=1 to N do begin

        s := 0;

        for j:=1 to M do begin

            a[i,j] := random(10);

            write(a[i,j]:6);

            s := s + a[i,j];

            sc[j] := sc[j] + a[i,j]

        end;

        writeln ('   |', s);

    end;

    for i:= 1 to M do 

        write('--':6);

    writeln; 

    for i:= 1 to M do 

        write(sc[i]:6);

    writeln;    

 
end.

Пример выполнения программы:


     5     5     7     8     6     8     5     8     4     6   |62

     6     3     4     2     8     0     9     2     3     4   |41

     7     8     5     4     5     3     9     8     0     3   |52

     0     6     0     3     8     9     7     1     8     8   |50

     9     4     7     8     4     5     7     6     1     7   |58

    --    --    --    --    --    --    --    --    --    --

    27    26    23    25    31    25    37    25    16    28

#include < stdio.h>

#define M 10

#define N 5

main() {

    int a[N][M];

    int sc[M];

    int s, i, j;

    srand(time(NULL));

    for (i=0; i< M; i++) sc[i] = 0;

    for (i=0; i< N; i++) {

        s = 0;

        for (j=0; j< M; j++) {

            a[i][j] = rand() % 10;

            printf("%5d", a[i][j]);

            s += a[i][j];

            sc[j] += a[i][j];

        }

        printf("   |%dn", s);

    }

    for (i=0; i< M; i++) 

        printf("%5s", "--");

    printf("n");

    for (i=0; i< M; i++) 

        printf("%5d", sc[i]);

    printf("n");   

}

from random import random

M = 10

N = 5

a = []

for i in range(N):

    b = []

    for j in range(M):

        b.append(int(random()*11))

        print("%3d" % b[j], end='')

    a.append(b)

    print('   |', sum(b))

 
for i in range(M):

    print(" --", end='')

print()

 
for i in range(M):

    s = 0

    for j in range(N):

        s += a[j][i]

    print("%3d" % s, end='')

print()

Пример(ы) выполнения программы на языке Python:


  6  7  3 10 10 10  4  2  6  5   | 63

  2  8  0  9  0  4  9  3  6  3   | 44

  5  3  1 10  5  6  5  2  0  9   | 46

 10  9 10  8  7  8  5  2 10  9   | 78

  3  3  6  0  4  1  6 10 10  3   | 46

 -- -- -- -- -- -- -- -- -- --

 26 30 20 37 26 29 29 19 32 29

В Python используется немного иной алгоритм решения задачи. Сначала создается пустой список - будущая матрица. Далее в цикле в нее добавляются вложенные списки.


Суммы строк матрицы вычисляются с помощью функции sum(), которой передается текущий список-строка цикла.


Суммы столбцов вычисляются путем прохода по каждому столбу матрицы. Обратите внимание, что здесь наоборот: внешний цикл - проход по столбцам, внутренний - по строкам.

алг суммы строк столбцов

нач

  цел M = 10, N = 5

  цел таб a[1:N,1:M], sc[1:M]

  цел i, j, s

  нц для i от 1 до M

    sc[i] := 0

  кц

 
  нц для i от 1 до N

    s := 0

    нц для j от 1 до M

      a[i,j] := int(rand(0,10))

      вывод a[i,j], "  "

      s := s + a[i,j]

      sc[j] := sc[j] + a[i,j]

    кц

    вывод " |", s, нс

  кц

 
  нц для i от 1 до M

    вывод "---"

  кц

  вывод нс

  нц для i от 1 до M

    вывод sc[i], " "

  кц

кон

M = 10

N = 5

dim a(N,M)

dim sc(M)

for i = 0 to N-1

	s = 0

	for j=0 to M-1

		a[i,j] = int(rand*10)

		print a[i,j] + "   ";

		s = s + a[i,j]

		sc[j] = sc[j] + a[i,j]

	next j

	print "  |" + s

next i

 
for i=0 to M-1

	print "--   ";

next i

print

for i=0 to M-1

	print sc[i] + " ";

next i

print

Тем, кто знакомым с математическими матрицами, будет не трудно освоить и двумерные массивы в Pascal. Матрица – это математический объект, представляющий собой прямоугольную таблицу. Таблица состоит из элементов, которые находятся на пересечении строк и столбцов, определяющих их, то есть i-ая строка и j-ый столбец задают адрес k-ому элементу матрицы (kij). Двумерные массивы абсолютно аналогичны математическим матрицам.

В отличие от одномерных массивов, двумерные характеризуются в программе парой индексов, один из которых соответствует номеру строки, другой – столбца:

Mas[m, n], где Mas – имя массива, n – номер строки, а m – номер столбца.

Описать матрицу в программе можно несколькими способами:

1) В разделе описания переменных:

Var Mas: Array[1..n, 1..m] of <тип элементов>;

2) При помощи одномерного массива, элементами которого являются одномерные массивы.
Пример:

Const
n = 5; m = 10;
Type
Arr1 = Array[1..m] of <тип элементов >;
Arr2 = Array[1..n] of arr1;
Var Mas: arr2;

Переменная Mas – матрица, состоящая из пяти строк, в каждую из которых включено по десять элементов.

3) Предыдущий способ можно упростить так:

Const n = 5; m = 10;
Турe arr=Array[1..n] Of Аrrау[1..m] of <тип элементов>;
Var Mas: arr;

4) И снова сократив запись, получим:

Const n = 5; m = 10;
Type arr = Array[1..n,1..m] of <тип элементов>;
Var Mas: arr;

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

For i:= 1 To n Do
  For j:= 1 To m Do

Например, для заполнения массива случайнми числами:

for i:=1 to n do
  for j:=1 to n do 
    x[i,j]:=random(100); 

Для вывода двумерного массива вещественных чисел размером n строк, m столбцов:

for i:=1 to n do begin
  for j:=1 to m do 
    write(x[i,j]:5:2);
  writeln;
end;

В следующей программе массив сначала заполняется числами с клавиатуры, а затем выводиться на экран.

program input_and_output_array;
uses crt;
const n=3; m=3;
var i, j: integer;
mas: array[1..n, 1..m] of integer;
begin
  {ввод массива}
  for i:=1 to n do
    for j:=1 to m do
    begin
      write(' Элемент ', i,' строки, ',j,' столбца = ');
      readln(mas[i, j]);
    end;
  writeln(' Получившаяся матрица: ');
  {вывод массива}
  for i:=1 to n do
  begin
    for j:=1 to m do
    begin
      write(mas[i, j]:5);
    end;
  writeln
  end;
end.

Количество элементов в массиве (его размерность) можно узнать, умножив количество строк на количество столбцов.

Сумма всех элементов квадратной матрицы:

sum:=0;

for i:=1 to n do
  for j:=1 to n do 
    sum:=sum+x[i,j];

writeln('Сумма=',sum); 

Сумма элементов главной диагонали квадратной матрицы (элементы главной диагонали имеют одинаковые индексы -x[1,1], x[2,2] и т.д.):

sum:=0;

for i:=1 to n do 
  sum:=sum+x[i,i];

writeln('Сумма=',sum);

Сумма элементов побочной диагонали (диагонали противоположной главной). Индексы элементов побочной диагонали в сумме равны n+1, т.е. i+j=n+1 или j=n+1-i:

sum:=0;

for i:=1 to n do 
  sum:=sum+x[i,n+1-i];

writeln('Сумма=',sum);

Сумма элементов ниже главной диагонали квадратной матрицы (строго ниже):

sum:=0;

for i:=1 to n do
  for j:=1 to n do 
    if i>j then 
      sum:=sum+x[i,j];

writeln('Сумма=',sum);

Можно не просматривать весь массив, а брать только нужные элементы:

sum:=0;

for i:=2 to n do
  for j:=1 to i-1 do 
    sum:=sum+x[i,j];

writeln('Сумма=',sum);

Сумма элементов выше и на главной диагонали квадратной матрицы:

sum:=0;

for i:=1 to n do
  for j:=1 to n do
    if i<=j then 
      sum:=sum+x[i,j];

writeln('Сумма=',sum);

Здесь также можно не просматривать весь массив, а брать только нужные элементы:

sum:=0;

for i:=1 to n do
  for j:=i to n do 
    sum:=sum+x[i,j];

writeln('Сумма=',sum);

Сумма элементов ниже побочной диагонали квадратной матрицы (строго ниже) :

sum:=0;

for i:=1 to n do
  for j:=1 to n do
    if i+j>n+1 then 
      sum:=sum+x[i,j];

writeln('Сумма=',sum);

Можно не просматривать весь массив, а брать только нужные элементы:

sum:=0;

for i:=2 to n do
  for j:=n+2-i to n do 
    sum:=sum+x[i,j];

writeln('Сумма=',sum);

Если надо посчитать сумму элемсентов ниже побочной диагонали и на ней, то в предыдущем примере, при просмотре всего массива в предыдущем примере надо заменить знак отношения > на >=, а при просмотре толко нужных элементов применить такой код:

sum:=0;

for i:=1 to n do
  for j:=n+1-i to n do 
    sum:=sum+x[i,j];

writeln('Сумма=',sum);

При подсчете суммы элементов выше и на главной диагонали, выше и на побочной диагонали возможно применине такого кода:

sum:=0;

for i:=1 to n do
  for j:=1 to n do
    if (i<=j) and (i+j<=n+1) then
      sum:=sum+x[i,j];

writeln('Сумма=',sum);

Подсчет сумм элементов по строкам:

for i:=1 to n do begin
  sum:=0;

  for j:=1 to n do 
    sum:=sum+x[i,j];

  writeln('Сумма ',i,'-й строки',sum);
end;

Подсчет сумм элементов по столбцам:

for j:=1 to n do begin
  sum:=0;

  for i:=1 to n do 
    sum:=sum+x[i,j];

  writeln('Сумма ',j,'-го столбца ',sum);
end;

Безусловно суммы по строкам и столбцам можно записывать в одномерный массив. Например, для сумм по столбцам:

for i:=1 to n do 
  sum[j]:=0;

for i:=1 to n do
  for j:=1 to n do 
    zum[j]:=sum[j]+x[i,j];

{вывод сумм по столбцам}
for i:=1 to n do 
  write(sum[i]:4);
writeln; 

Суммы элементов по диагоналям, параллельным главной диагонали.

Очевидно, что таких сумм будет 2n-1. Кроме того, разности индексов эдементов, стоящих на одной диагонали будут равны друг другу. Имеется в виду разность «номер строки минус номер столбца». Эти разности будут меняться от -n+1 для самой верхней диагонали s1, содержащей всего лишь один элемент, до n-1 для диагонали s2N-1, расположенной в самом низу матрицы и содержащей также всего один элемент. Таким образом, для подсчета сумм мы должны объявить массив:

Var sum:array[-n+1..n-1] of integer;

Число элементов в этом массиве будет 2n-1. Код для подсчета этих сумм:

for i:=-n+1 to n-1 do 
  sum[i]:=0;

for i:=1 to n do
  for j:=1 to n do 
    sum[i-j]:=sum[i-j]+x[i,j];

for i:=-n+1 to n-1 do 
  write(sum[i]); 

Суммы элементов по диагоналям, параллельным побочной диагонали.

for i:=2 to 2*n do 
  sum[i]:=0;

for i:=1 to n do
  for j:=1 to n do 
    sum[i+j]:=sum[i+j]+x[i,j];

for i:=2 to 2*n do 
  write(sum[i]);

Суммы элементов по периметрам двумерного массива.

Cледует различать четный или нечетный порядок матрицы n. Число сумм будет равно k=n div 2 при четном n и k=n div 2 +1 при нечетном значении n.

Счет суммы начинается по строке i от столбца j равного i и заканчивается столбцом n-i+1, т.е. начинается с элемена находящегося на главной диагонали и заканчивается элементом на побочной диагонали.

Одновременно учитываются элементы из параллельной строки, индекс которой равен n-i+1.

Затем считаем элементы по двум паралельным столбцам i и n-i+1 (не учитывая элементы, стоящие в строках). Если n -нечетное число, то выводим значение центрального элемента массива x[k+1,k+1].

k:=n div 2;

for i:=1 to k do begin
  sum:=0;

  {строки}
  for j:=i to n-i+1 do
    sum:=sum+x[i,j]+x[n-i+1,j];

  {столбцы}
  for j:=i+1 to n-i do
    sum:=sum+x[j,i]+x[j,n-i+1];

  writeln(sum); {вывод суммы}
end;

if n mod 2=1 then
  writeln(x[k+1,k+1]); 

Тест

Данные	Результат
N=2  M=2	A=	S=(6,74)

Школьный АЯ  алг Суммы столбцов (арг цел N, M, арг вещ таб A[1:N, 1:M],                     рез вещ таб S[1:M])   дано | N>0, M>0 нач цел i, j   нц для j от 1 до M | цикл по столбцам     S[j]:=0     нц для i от 1 до N | цикл по элементам       S[j]:=S[j] + A[i, j] |текущего столбца     кц   кц кон Исполнение алгоритма  j i S[i]   1     1 2 S1=0 S1=0+2=2 S1=2+4=6   2     1 2 S2=0 S2=0+1=1 S2=1+3=4

Блок-схема

Turbo Pascal
Program SumColumn;
  Uses Crt;
  Var A          : Array [1..10, 1..10] of Real;
      N, M, i, j : Integer;
      S          : Array [1..10] of Real;
  {———————————————}
  Procedure InputOutput;
    Begin {описание процедуры ввода-вывода исходных данных}
      ClrScr;
      Write(‘Количество строк — ‘); ReadLn(N);
      Write(‘Количество столбцов — ‘); ReadLn(M);
      For i := 1 to N do {Ввод элементов матрицы}
        For j := 1 to M do
          begin Write(‘A[‘ , i , ‘, ‘ , j , ‘]= ? ‘); {вывод запроса}
                ReadLn(A[i, j]) {ввод значения}
          end; WriteLn;
      ClrScr;
      WriteLn(‘ Матрица А’);
      For i := 1 to N do {Вывод матрицы по строкам}
        begin
          For j := 1 to M do Write(A[i, j] : 5 : 1); {вывод i-ой строки}
          WriteLn {перенос курсора на начало следующей строки}
        end; WriteLn
    End; { of InputOutput }
  {———————————————}
  Procedure SumCol;
    Begin {описание процедуры вычисления сумм элементов столбцов}
      For j := 1 to M do {цикл по столбцам матрицы}
        begin
          S[j] := 0; {обнуление суммы элементов j-го столбца}
          For i := 1 to n do S[j] := S[j] + A[i, j] {накопление суммы}
        end;
    End; { of SumCol }
  {———————————————}
  Procedure OutResult; {описание процедуры вывода результатов}
    Begin
      Write( ‘О т в е т : Суммы элементов столбцов равны ‘);
      For j := 1 to M do Write(S[j] : 5 : 1); WriteLn; ReadLn
    End; { of OutResult }
  {———————————————}
BEGIN
  InputOutput; {вызов процедуры ввода-вывода исходных данных }
  SumCol; {вызов процедуры вычисления сумм }
  OutResult; {вызов процедуры вывода результатов}
END.
 
QBasic
CLS
INPUT «Количество строк — «, N
INPUT «Количество столбцов — «, M
DIM A(N, M), S(M) ‘Резервирование памяти для матрицы A и вектора S
FOR i = 1 TO N ‘Ввод матрицы
  FOR j = 1 TO M
    PRINT «A(» ; i ; «, » ; j ; «) = «;
    INPUT A(i, j)
  NEXT j
NEXT i
FOR j = 1 TO M ‘Вычисление сумм элементов столбцов
  S(j) = 0
  FOR i = 1 TO N
    S(j) = S(j) + A(i, j)
  NEXT i
NEXT j
PRINT «О т в е т : Суммы элементов столбцов равны «;
FOR j = 1 TO M
  PRINT S(j);
NEXT j : PRINT
END