Сумма элементов матрицы

18.05.2010, 20:30. **Показов** 8624. **Ответов** 14

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

Надо написать программу в ПАСКАЛЕ!!!
Вычислить сумму всех элементов двумерного массива X(10,10) (элемент массива Xij,где i=1,2,..10; j=1,2,..10).

@Inadequate · 18.05.2010, 20:32

Pascal

sum := 0;
for i := 1 to N do
  for j := 1 to M do
    Inc(sum, a[i, j]);

@good91 · 18.05.2010, 23:11

По-моему так

:

Pascal

Program Matr;
 Uses crt;
 Const n=10;m=10;
 Type
  Mas=array[1..n,1..m] of real;
 Var
  A:Mas;
  i,j:integer;
  S:real;
 
 Procedure Vvod (Var A:mas);
 Begin
  For I:=1 to n do
   For j:=1 to m do
    A[i,j]:=random;
 End;
 
 Procedure sum (Var A:mas);
 Begin
  S:=0;
   For i:=1 to n do
    for j:=1 to m do
      S:=S+A[i,j];
       Writeln ('Сумма всех элементов матрицы = ',S:2:1);
  End;
 
  Begin
   ClrScr;
   vvod (a);
   Sum (a);
   Readln
  End.

@Inadequate · 18.05.2010, 23:14

good91, по-моему тебе надо бы почитать о параметрах процедур/функций, потому как везде вставлять var некорректно.

@good91 · 18.05.2010, 23:18

Сообщение от Inadequate

потому как везде вставлять var некорректно.

Как учили, так и вставляю... По-моему это не на что не влияет

.

@Inadequate · 18.05.2010, 23:25

good91, влияет на то, как на тебя посмотрят со стороны. Если тебя действительно так учат, то хреновые у тебя преподы, тогда прочти самостоятельно

Сообщение от Справка

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

Если формальный параметр описан со служебным словом var, то его называют параметром-переменной и говорят, что он передается по ссылке. Если же параметр описан без слова var, то его называют параметром-значением и говорят, что он передается по значению.

Если параметр передается по значению, то при вызове подпрограммы значения фактических параметров присваиваются соответствующим формальным параметрам. Например, пусть имеется следующее описание процедуры:

Pascal

procedure PrintSquare(i: integer);
begin
  writeln(i*i);
end;

Тогда при вызове PrintSquare(5*a-b) значение 5*a-b будет вычислено и присвоено переменной i, после чего выполнится тело процедуры.
Если параметр передается по ссылке, то при вызове подпрограммы фактический параметр заменяет собой в теле процедуры соответствующий ему формальный параметр. В итоге любые изменения формального параметра-переменной внутри процедуры приводят к соответствующим изменениям фактического параметра. Например, если описана процедура

Pascal

procedure Mult2(var a: integer);
begin
  a:=a*2;
end;

то после вызова Mult(d) значение d увеличится в 2 раза.

@good91 · 18.05.2010, 23:34

Сообщение от Inadequate

то хреновые у тебя преподы

Да уж верно... Теперь всё понятно. Спасибо.

Добавлено через 2 минуты
Т. е. , когда я задал сразу:

Сообщение от good91

Var

Pascal

1
2
3

A:Mas;
 i,j:integer;
 S:real;

Потом в процедуре можно не задавать?

@Inadequate · 18.05.2010, 23:37

Нет, если в процедуре/функции собираешься изменять массив, то ставишь var, а если не собираешься, то не ставишь. Т.е в случае с процедурой ввода использование var корректно, а в случае подсчета суммы нет.

@good91 · 18.05.2010, 23:40

Сообщение от Inadequate

Нет, если в процедуре собираешься изменять массив, то ставишь var, а если не собираешься, то не ставишь.

Ясненько...Т. е. в этом случае можно не ставить, так как я же его не изменяю, а нахожу сумму элементов матрицы

@Inadequate · 18.05.2010, 23:41

good91, да, именно так

@CeKaC · 18.05.2010, 23:44

Сообщение от good91

По-моему так

:

Pascal

Program Matr;
 Uses crt;
 Const n=10;m=10;
 Type
  Mas=array[1..n,1..m] of real;
 Var
  A:Mas;
  i,j:integer;
  S:real;
 
 Procedure Vvod (Var A:mas);
 Begin
  For I:=1 to n do
   For j:=1 to m do
    A[i,j]:=random;
 End;
 
 Procedure sum (Var A:mas);
 Begin
  S:=0;
   For i:=1 to n do
    for j:=1 to m do
      S:=S+A[i,j];
       Writeln ('Сумма всех элементов матрицы = ',S:2:1);
  End;
 
  Begin
   ClrScr;
   vvod (a);
   Sum (a);
   Readln
  End.

солидарен. проще способа я невижу.

@Inadequate · 18.05.2010, 23:45

CeKaC, с чем ты солидарен ? Этот вариант далеко не самый простой и далеко не самый полный. Нет вывода матрицы, переменные i,j,S описаны вне процедур (что делать не рекомендуется) да и процедуры тут не нужны. А ты солидарен...

@good91 · 18.05.2010, 23:51

Вот окончательная прога, что бы было солидарно и корректно

Pascal

Program Matr;
 Uses crt;
 Const n=10;m=10;
 Type
  Mas=array[1..n,1..m] of real;
 Var
  A:Mas;
  i,j:integer;
  S:real;
 
 Procedure Vvod;
 Begin
  For I:=1 to n do
   For j:=1 to m do
    A[i,j]:=random;
 End;
 
 Procedure sum;
 Begin
  S:=0;
   For i:=1 to n do
    for j:=1 to m do
      S:=S+A[i,j];
       Writeln ('Сумма всех элементов матрицы = ',S:2:1);
  End;
 
  Begin
   ClrScr;
   vvod;
   Sum;
   Readln
  End.

CeKaC, нравятся сложные способы, пожалуйста решай сложным способом... Главное, что бы правильно было

@Inadequate · 19.05.2010, 00:05

А зачем ты убрал параметры вообще ? Да и потом настоятельно рекомендуется заносить вспомогательные переменные в тело процедуры/функции. Твой код должен выглядеть в по-хорошему так

Pascal

program Matr;
uses
  Crt;
 
const
  N = 3;
  M = 4;
 
type
  MyArr = array [1..N, 1..M] of integer;
 
var
  a: MyArr;
procedure Writing(var a: MyArr);
var
  i,j: integer;
begin
  for i := 1 to N do
    for j := 1 to N do
      a[i, j] := Random(8) - 4;
end;
 
procedure Print(a: MyArr);
var
  i,j: integer;
begin
  for i := 1 to N do
  begin
    for j := 1 to M do
      Write(a[i, j]);
    WriteLn;
  end;
end;
 
procedure Sum;
var
  i,j,s: integer;
begin
  s := 0;
  for i := 1 to N do
    for j := 1 to M do
      Inc(s, a[i, j]);
  Writeln ('Result:  ', S:2:1);
end;
 
begin
  ClrScr;
  Randomize;
  Writing(a);
  Print(a);
  Sum;
  ReadLn;
end.

А вообще как я и писАл тут процедуры не нужны, достаточно вот этого

Pascal

uses
  Crt;
 
const
 N = 3;
 M = 3;
 
var
  a: array [1..N, 1..M] of integer;
  i,j,sum: integer;
 
begin
  ClrScr;
  Randomize;
  for i := 1 to N do
  begin
    for j := 1 to M do
    begin
      a[i, j] := Random(8) - 4;
      Inc(sum, a[i, j]);
      Write(a[i, j]:2, ' ');
    end;
    WriteLn;
  end;
  WriteLn('Result: ', sum);
  ReadLn;
end.

@CeKaC · 19.05.2010, 00:09

Сообщение от Inadequate

CeKaC, с чем ты солидарен ? Этот вариант далеко не самый простой и далеко не самый полный. Нет вывода матрицы, переменные i,j,S описаны вне процедур (что делать не рекомендуется) да и процедуры тут не нужны. А ты солидарен...

думаю, что человеку, который просит помощи в такой программе особо неважно КАК оно написано.
и согласен я не с кодом, а с алгоритмом в том плане, что он поозрачен и легко доступен для понимания.
а то что глабальные переменные лучше не использовать, так это не дают на начальных этапах обучения программированию. лично мне это рассказали когда мне закончили преподавать ОСНОВЫ программирования (основной целью является дать понять принципы программирования) и начали давать всеми любимый Си.
использование var у автора проги - это недоконца понимание продцедур и функций и передачи параметров. этому учат.

процедуры и функции использовать никто же не запрещает. это всего лишь стиль и почерк программиста. и в конце-то концов можно все засунуть в отдельные подключаемые можули и непариться особо)) главное же пашет )))

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 23:45	12
	CeKaC, с чем ты солидарен ? Этот вариант далеко не самый простой и далеко не самый полный. Нет вывода матрицы, переменные i,j,S описаны вне процедур (что делать не рекомендуется) да и процедуры тут не нужны. А ты солидарен... 0

@CeKaC 11 / 14 / 1 Регистрация: 13.05.2010 Сообщений: 94
	19.05.2010, 00:09	15
	Сообщение от Inadequate CeKaC, с чем ты солидарен ? Этот вариант далеко не самый простой и далеко не самый полный. Нет вывода матрицы, переменные i,j,S описаны вне процедур (что делать не рекомендуется) да и процедуры тут не нужны. А ты солидарен... думаю, что человеку, который просит помощи в такой программе особо неважно КАК оно написано. и согласен я не с кодом, а с алгоритмом в том плане, что он поозрачен и легко доступен для понимания. а то что глабальные переменные лучше не использовать, так это не дают на начальных этапах обучения программированию. лично мне это рассказали когда мне закончили преподавать ОСНОВЫ программирования (основной целью является дать понять принципы программирования) и начали давать всеми любимый Си. использование var у автора проги - это недоконца понимание продцедур и функций и передачи параметров. этому учат. процедуры и функции использовать никто же не запрещает. это всего лишь стиль и почерк программиста. и в конце-то концов можно все засунуть в отдельные подключаемые можули и непариться особо)) главное же пашет ))) 1

Darina_Ferliy
		1
	Сумма элементов матрицы 18.05.2010, 20:30. Показов 8624. Ответов 14 Метки нет (Все метки) Надо написать программу в ПАСКАЛЕ!!! Вычислить сумму всех элементов двумерного массива X(10,10) (элемент массива Xij,где i=1,2,..10; j=1,2,..10).

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 23:14	4
	good91, по-моему тебе надо бы почитать о параметрах процедур/функций, потому как везде вставлять var некорректно. 0

@good91 8 / 8 / 2 Регистрация: 03.03.2010 Сообщений: 90
	18.05.2010, 23:18	5
	Сообщение от Inadequate потому как везде вставлять var некорректно. Как учили, так и вставляю... По-моему это не на что не влияет . 0

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 23:37	8
	Нет, если в процедуре/функции собираешься изменять массив, то ставишь var, а если не собираешься, то не ставишь. Т.е в случае с процедурой ввода использование var корректно, а в случае подсчета суммы нет. 1

@good91 8 / 8 / 2 Регистрация: 03.03.2010 Сообщений: 90
	18.05.2010, 23:40	9
	Сообщение от Inadequate Нет, если в процедуре собираешься изменять массив, то ставишь var, а если не собираешься, то не ставишь. Ясненько...Т. е. в этом случае можно не ставить, так как я же его не изменяю, а нахожу сумму элементов матрицы 1

@Inadequate Retired 7727 / 2559 / 671 Регистрация: 17.10.2009 Сообщений: 5,100
	18.05.2010, 23:41	10
	good91, да, именно так 0