задача на матрицы

[sanchoflat]

доброе утро, поступил в универ, в школе не было паскаля, а тут сразу задачи решать без объяснения
если не сложно помогите решить задачу:
Найти сумму элементов матрицы и подсчитать число её строк, в пределах каждой из которых элементы упорядочены по возрастанию: Аi1<Ai2<...<Ain

[Вадим Мошев]

конкретно, вы что хотите? Объяснений или готовый код?

[sanchoflat]

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

но код было бы совсем идеально

[TinMan]

Сумму примерно вот так:

const
  m= 10;
  n= 20;
var
  a: array[1..m,1..n] of integer;
  i,j,s: integer;

begin
  {тут задаем матрицу}
  s:= 0;
  for i:=1 to m do for j:=1 to n do s:= s+a[i,j];
  writeln('sum = ', s);
end.

А для подсчета упорядоченых строк можно использовать, например, такой фрагмент кода:

  k:= 0;
  for i:=1 to m do begin
    j:=1;
    while (j<n) and (a[i,j]<a[i,j+1]) do inc(j);
    if j=n then inc(k)
  end;

Делай и говори, что получается, а что нет. Успехов тебе.

[sanchoflat]

ну вот сумму я уже нашел как находить, но пардон что не написал, вот препод сказал, нужно задавать матрицу через файл. как я понимаю в сам текстовый файл мы записываем матрицу..
и такое. можно ли упорядочить элементы в строке так, что элементу а присваиваем значение к, а элементу а+1 - значение а в том случае, если а>а+1?

[TinMan]

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

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

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

3 4
1 2 3 4
5 6 7 8
9 10 11 12

Читать так:

var
  f: text;
...
  Assign(f,'my_file.txt');
  Reset(f);
  Readln(f,m,n);
  for i:=1 to m do begin
    for j:=1 to n do read(f,a[i,j]);
    readln(f)
  end;

и такое. можно ли упорядочить элементы в строке так, что элементу а присваиваем значение к, а элементу а+1 - значение а в том случае, если а>а+1?

Ты сам-то понял, что написал? Я - нет.. ((

[unbanned]

и такое. можно ли упорядочить элементы в строке так, что элементу а присваиваем значение к, а элементу а+1 - значение а в том случае, если а>а+1?

походу он имел ввиду

for x:=кол-во элементов в строке -1 downto 1 do begin
if a[x]>a[x+1] then a[x+1]:=a;
a[x]:=k; 
end;

[sanchoflat]

хм. а нету какого хорошего примера с оъеснением работы фалов с матрицей. я чет не оч понял

если не сложно, можете вот то что ввод матрицы из файла скомпоновать с другим где вывод и задание переменных, что то не очень выходит

[TinMan]

Так, допустим, что на диске есть файл "matrix.txt" с таким содержимым

5
1 2 3 4 5
6 7 8 9 0
12 34 56 78 90
8 7 45 47 3
2 2 2 2 1000

В первой строке в нем идет размер матрицы, остальное - сама матрица по строкам. Читать так:

const
  m= 10;  // максимально возможный размер матрицы
var
  a: array[1..m,1..m] of integer;
  f: text;  // объявляем
...
  Assign(f,'my_file.txt');  // задаем название файла на диске
  Reset(f);  // открываем
  Readln(f,n);  // читаем n и переходим на след строку
  for i:=1 to n do begin
    for j:=1 to n do Read(f,a[i,j]);  // читаем строку матрицы
    Readln(f);  // переходим на след строку в файле
  end;
  Close(f);

[sanchoflat]

спасибо, а после этого я начинаю писать алгоритм поиска суммы, и как все закончил искать, нашел - закрываю файл?