Дан двумерный массив. Определить сумму элементов каждой строки.

@trollface-kot · Регистрация: 05.04.2012

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

@3a9Ic · 18.04.2012, 15:52

Pascal

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     ClrScr;
     write('Ìàòðèöà:');
     randomize;
     for i:=1 to n do
     for j:=1 to n do
     begin
     a[i,j]:=Random(21);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     s:=0;
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
          s:=s+a[i,j];
          end;
     gotoxy(j*10+5,i+1);
     writeln(' Summa=',s);
     s:=0;
     end;
end.

@trollface-kot · 02.05.2012, 13:09 **[ТС]**

Дан двумерный массив. Определить сумму элементов каждой строки.

Pascal

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     ClrScr;
     write('Матрица:');
     randomize;
     for i:=1 to n do
     for j:=1 to n do
     begin
     a[i,j]:=Random(21);
     end;
     for i:=1 to n do
     for j:=1 to n do
     begin
          gotoxy(j*5+10,i+1);
          Write(a[i,j]);
     end;
     s:=0;
     for i:=1 to n do
     begin
          for j:=1 to n do
          begin
          s:=s+a[i,j];
          end;
     gotoxy(j*10+5,i+1);
     writeln(' Summa=',s);
     s:=0;
     end;
end.

надо убрать gotoxy и проще сделать пожалуйста!!!!

@UserABC · 02.05.2012, 17:46

Pascal

 program p;
  uses crt;
const n = 5;
type TMatr = array[1..n, 1..n] of Integer;
var Matr: TMatr;
procedure Gen_PrintMatrix(var Matr: TMatr);
var i, j: Byte;
begin
  Randomize;
  writeln('Ìàòðèöà: ');
  for i:=1 to n do
  begin
    for j:=1 to n do
    begin
      Matr[i, j]:=Random(20);
      write(Matr[i, j]:4);
    end;
    writeln;
  end;
  writeln;
end;
procedure Summa(Matr: TMatr);
var Summa: Integer; i, j: Byte;
begin
  for i:=1 to n do
  begin
    Summa:=0;
    for j:=1 to n do
      inc(Summa, Matr[i, j]);
    writeln('Ñóììà ýëåìåíòîâ â ñòðîêå ', i, ': ', Summa);
  end;
end;
begin
  Gen_PrintMatrix(Matr);
  Summa(Matr);
end.

@3a9Ic · 02.05.2012, 18:10

Боюсь, что с процедурами будет больше вопросов, чем без них, gotoxy, конечно, можно убрать. Но, если ему мой вариант не понравился... Я не знаю, что и делать. В принципе, там просто пара строк кода и остальное красивый вывод.

@trollface-kot · 04.05.2012, 23:18 **[ТС]**

я вообще-то просил проще а не запутывать))

@UserABC · 04.05.2012, 23:45

Проще некуда, всего 2 процедуры.. вывода чисел.. и подсчета суммы

@КонецСвета · 04.05.2012, 23:53

Pascal

uses crt;
const n=5;
var a: array [1..n,1..n] of integer;
    i,j: byte; s: integer;
begin
writeln('     Матрица          Сумма');
for i:=1 to n do
    begin
    s:=0;
    for j:=1 to n do
        begin
        a[i,j]:=random(19)-9;
        write(a[i,j]:3);
        s:=s+a[i,j];
        end;
    writeln(s:10);
    end;
end.

@3a9Ic · 05.05.2012, 09:36

Ужимаем коды...) Смысл правда...)

Pascal

uses CRT;
Const n=4;
var a:array [1..n,1..n] of integer;
i,j,s:integer;
begin
     ClrScr;
     write('Ìàòðèöà:');
     randomize;
     for i:=1 to n do
     begin
          s:=0;
          for j:=1 to n do
              begin
                   a[i,j]:=Random(21);
                   gotoxy(j*5+10,i+1);
                   Write(a[i,j]);
                   s:=s+a[i,j];
              end;
     gotoxy(j*10+5,i+1);
     writeln(' Summa=',s);
     end;
end.

gotoxy убирался выше, так что, я его оставил...)

@trollface-kot · 07.05.2012, 22:46 **[ТС]**

Заяц пожалуйста не делай больше красивых выводов))мне хватит росписи задачи на уровне 1 класса))всё равно БОЛЬШОЕ спасибо!!!

@trollface-kot 4 / 4 / 1 Регистрация: 05.04.2012 Сообщений: 41
		1
	Дан двумерный массив. Определить сумму элементов каждой строки. 18.04.2012, 14:07. Показов 12518. Ответов 9 Метки нет (Все метки) Дан двумерный массив. Определить сумму элементов каждой строки. 0

@3a9Ic 141 / 129 / 113 Регистрация: 08.04.2012 Сообщений: 245
	02.05.2012, 18:10	5
	Боюсь, что с процедурами будет больше вопросов, чем без них, gotoxy, конечно, можно убрать. Но, если ему мой вариант не понравился... Я не знаю, что и делать. В принципе, там просто пара строк кода и остальное красивый вывод. 1

@trollface-kot 4 / 4 / 1 Регистрация: 05.04.2012 Сообщений: 41
	04.05.2012, 23:18 [ТС]	6
	я вообще-то просил проще а не запутывать)) 0

@UserABC Pascal + 137 / 136 / 127 Регистрация: 16.03.2011 Сообщений: 461
	04.05.2012, 23:45	7
	Проще некуда, всего 2 процедуры.. вывода чисел.. и подсчета суммы 0

@trollface-kot 4 / 4 / 1 Регистрация: 05.04.2012 Сообщений: 41
	07.05.2012, 22:46 [ТС]	10
	Заяц пожалуйста не делай больше красивых выводов))мне хватит росписи задачи на уровне 1 класса))всё равно БОЛЬШОЕ спасибо!!! 0