модули элементов в двумерном массиве Опции

[18192123]

дан двумерный массив, вывести ту строку, сумма модулей элементов в которой максимальна.
использовать процедуры.


я не соображу, как собственно вывести строку

и еще... при компиляции появляется ошибка 36 ( отсутствие begin), не знаю, где его пропустила

uses crt;
const n=2;
      m=5;
type vect=array[1..n] of real;
     matr=array[1..m] of vect;
procedure input(var a:matr);
var
   i,j:byte;
begin
writeln ('vvedite elementi dvymernogo massiva');
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
end;
procedure stroka(a:matr; var:s,s1);
i,j:byte;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
s:=s+abs(a[1,j];
max:=s;
s1:=s1+abs(a[2,j]);
if max<s1 then
writeln ('nyshai stroka:2');
else writeln ('nysnai stroka :1');
writeln ('s=',s:4:1);
writeln ('s1=',s1:4:1); end;
end;
var
a:matr;
begin
input(a);
storka(a,s,s1);
readkey;
end.

[volvo]

У тебя не только Begin пропущен... Внимательно смотри на исправления (программа только проходит компиляцию, о правильности работы сказать ничего пока не могу)...

uses crt;
const n=2;
m=5;
type vect=array[1..n] of real;
matr=array[1..m] of vect;
procedure input(var a:matr);
var
i,j:byte;
begin
writeln ('vvedite elementi dvymernogo massiva');
for i:=1 to n do
for j:=1 to n do
read (a[i,j]);
end;
procedure stroka(a:matr; var s,s1: real);
var
i,j:byte;
max:real;
begin
for i:=1 to n do
for j:=1 to m do
begin
s:=0;
s:=s+abs(a[1,j]);
max:=s;
s1:=s1+abs(a[2,j]);
if max<s1 then
writeln ('nyshai stroka:2'){;}
else writeln ('nysnai stroka :1');
writeln ('s=',s:4:1);
writeln ('s1=',s1:4:1); end;
end;

var
a:matr;
s, s1: real;
begin
input(a);
stroka(a,s,s1);
readkey;
end.

Цитата - из-за оформления цветом...

[18192123]

У тебя не только Begin пропущен... Внимательно смотри на исправления (программа только проходит компиляцию, о правильности работы сказать ничего пока не могу)...
Цитата - из-за оформления цветом...

компиляция проходит успешно, но после того, как я ввожу первую строку массива, сразу прога выдает
значения суммы...

[klem4]

Компиляция чего проходит успешно ? Приведенный тобой код НЕ компилируется. С исправлениями volvo - компилируется, ты используешь его ? Гадалка заболела !

[18192123]

Компиляция чего проходит успешно ? Приведенный тобой код НЕ компилируется. С исправлениями volvo - компилируется, ты используешь его ? Гадалка заболела !

да, я использую вариант volvo

[Гость]

Ты вводишь матрицу n*n =4
а надо m*n =10

[klem4]

Гость, ты о чем ?

18192123, вот смотри, разбирайся

uses crt;

const
  n = 2;
  m = 3;

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

procedure Input(var mx: TMx);
var
  i, j: Integer;
begin
  for i := 1 to n do
   for j := 1 to m do begin
     write('mx[', i, ',', j, ']=');
     readln(mx[i, j]);
   end;
end;

procedure Print(const mx: TMx);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to m do write(mx[i, j] : 3);
  end;
  writeln;
end;

function Sum(const mx: TMx; row: Integer): Integer;
var
  i, S: Integer;
begin
  S := 0;
  for i := 1 to m do
   S := S + abs(mx[row, i]);
  Sum := S;
end;

procedure Main(const mx: TMx; var maxN, value: Integer);
var
  i, s: Integer;
begin

  maxN := 0;

  for i := 1 to n do begin
    s := Sum(mx, i);
    if (maxN = 0) or (s > value) then begin
      maxN := i;
      value := s;
    end;
  end;

end;

var

  Mx: TMx;
  maxN, value: Integer;
begin
  clrscr;
  Input(Mx);
  Print(Mx);
  Main(Mx, maxN, value);
  writeln('Row = ', maxN, ' value = ', value);
  readln;
end.

[Гость]

if (maxN = 0) or (maxN > 0) and (s > value) then begin

[klem4]

Гость, онаже Pola А если подумать ?

[Гость]

if s >= value then begin

и саму строку вывести в конце проги можно

дан двумерный массив, вывести ту строку, ...

[klem4]

Более чем уверен, что имлось в виду вывести номер строки, что я сделал.

[18192123]

Более чем уверен, что имлось в виду вывести номер строки, что я сделал.

в условии сказано: вывести строку[size=2]


Я надеюсь хотябы это ты сама сможешь сделать ?
klem4

[18192123]

Гость, ты о чем ?

18192123, вот смотри, разбирайся

uses crt;

const
  n = 2;
  m = 3;

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

procedure Input(var mx: TMx);
var
  i, j: Integer;
begin
  for i := 1 to n do
   for j := 1 to m do begin
     write('mx[', i, ',', j, ']=');
     readln(mx[i, j]);
   end;
end;

procedure Print(const mx: TMx);
var
  i, j: Integer;
begin
  for i := 1 to n do begin
    writeln;
    for j := 1 to m do write(mx[i, j] : 3);
  end;
  writeln;
end;

function Sum(const mx: TMx; row: Integer): Integer;
var
  i: Integer;
begin
  Sum := 0;
  for i := 1 to m do
   Sum := Sum + abs(mx[row, i]);
end;

procedure Main(const mx: TMx; var maxN, value: Integer);
var
  i, s: Integer;
begin

  maxN := 0;

  for i := 1 to n do begin
    s := Sum(mx, i);
    if (maxN = 0) or (s > value) then begin
      maxN := i;
      value := s;
    end;
  end;

end;

var

  Mx: TMx;
  maxN, value: Integer;
begin
  clrscr;
  Input(Mx);
  Print(Mx);
  Main(Mx, maxN, value);
  writeln('Row = ', maxN, ' value = ', value);
  readln;
end.

что-то твоя программа не компилируется, появляется сообщение, что в процедуре сумма пропущена скобка

????????????????

[Гость]

У тебя какая версия Паскаля?
может это на const в списке формальных параметров такая реакция? тогда поставь var

[klem4]

может это на const в списке формальных параметров такая реакция? тогда поставь var

Const как раз ставится для того, чтобы исключить возможность изменения данных, но при этом передавать их не по значению, а по сссылке. Ну а если var поставить, то все наоброт будет, мы еще и увеличим эту возможность.

Так что рпосто попрбуй убрать const (в заголовках подпрограмм) и все.

[volvo]

klem4:

function Sum(const mx: TMx; row: Integer): Integer;
var
  i: Integer;
begin
  Sum := 0;
  for i := 1 to m do
   Sum {Это - обращение к результату функции, здесь проблем нет } := 
      Sum {А Это? С точки зрения компилятора - рекурсия, только тогда
          не хватает скобки, ибо ожидаются параметры}
      +
      abs(mx[row, i]);
end;

Теперь понятнее?

Const как раз ставится для того, чтобы исключить возможность изменения данных

Ты уверен, что данные, переданные со спецификатором Const нельзя изменить? Я бы сказал, Const ставится как защита от СЛУЧАЙНОГО изменения данных ...

[klem4]

Sum исправил. По поводу const это и имел в виду

Const ставится как защита от СЛУЧАЙНОГО изменения данных

неправильно выразился.

[18192123]

18192123, вот смотри, разбирайся

объясни пожалуйста, что такое Row

[klem4]

 function Sum(const mx: TMx; row: Integer): Integer;

Функция возвращает значение суммы модулей элементов строки ROW матрицы MX.

[18192123]

 function Sum(const mx: TMx; row: Integer): Integer;

Функция возвращает значение суммы модулей элементов строки ROW матрицы MX.

а откуда мы берем этот параметр (ROW), мы ведь его не где не задаем