помогите с решением задачи(Delphi)

[Ddr]

Дан файл f, компонентами которого являются действительные матрицы 4*6. Преобразовать каждую из матриц, разделив её элемент на сумму единицы и модуля наибольшего значения элементов матрицы. Полученные матрицы записать в файл g.

Заранее спасибо.

[Ddr]

Интересует в основном как прочитать несколько матриц, так чтобы можно было работать с ними по отдельности...

[Sazary]

Интересует в основном как прочитать несколько матриц, так чтобы можно было работать с ними по отдельности...

Все просто. В задании сказано:

Дан файл f, компонентами которого являются действительные матрицы 4*6

Это значит, что имеем дело с типизированным файлом.

Объявляем тип матрица:

const M=4; N=6;
type matrix = array[1..M,1..N] of integer;

И типизированный файл из матриц:

f : file of matrix;

------------------------
Вот пример.
Создается файл "test.dat". В него записываются 5 матриц (генерятся случайно). Файл закрывается.
Потом файл открывается для чтения и оттуда читаются эти матрицы.

uses crt;
const M=4; N=6;
type matrix = array[1..M,1..N] of integer;

var
a : matrix;
f : file of matrix;
i,j,k : integer;

begin
clrscr;
randomize;
assign(f,'test.dat');
rewrite(f);
for k:=1 to 5 do
 begin
 for i:=1 to M do
  for j:=1 to N do
   a[i,j] := random(20);
 write(f,a);
 end;
close(f);
{-----------}

reset(f);
for k:=1 to 5 do
 begin
 read(f,a);
 for i:=1 to M do
  begin
  for j:=1 to N do
   write(a[i,j]:4);
  writeln;
  end;

 end;
close(f);
readln;
end.

------------------
Можно также объявить массив матриц (чтобы сразу считать все содержимое файла).

[Ddr]

Спасибо большое

[Sazary]

Спасибо, но как реализовать на делфи?

Вместо Assign - AssignFile.
А остальное также (работа с файлами).
Если есть конкретные вопросы - задавайте. А если вам нужен просто готовый код, то я его писать не буду.

[Ddr]

формирование матриц

procedure TForm1.Button2Click(Sender: TObject);
begin
randomize;
assignfile(f,'mtrx.dat');
rewrite(f);
for k:=1 to 4 do
 begin
 for i:=1 to M do
  for j:=1 to N do
   a[i,j] := random(20);
 write(f,a);
 end;
closefile(f);
end;

Ну тут решение вроде как... на скорую руку

procedure TForm1.Button1Click(Sender: TObject);
begin
  assignfile(g,'result.dat');
  rewrite(g);
  for k:=1 to 4 do
   begin
    read(f,a);
    max:=a[1,1];
    for i:=1 to M do begin
     for j:=1 to N do  begin
       if a[i,j] > max then max:=a[i,j];
       a[i,j]:=a[i,j]/(1+abs(max));
      end;
    end;
    write(g,a);
   end;
closefile(g);
end;
end.

и появляется ошибка вот в этом

read(f,a)

I/O error 103.
Да кстати, матрицы как-то странно заполняются в виде таких символов

    @      *@      "@      *@      @      2@      2@

[Sazary]

и появляется ошибка вот в этом

А вы посмотрите внимательно на свой код. У вас файл не открыт.
Об этом вам и говорит компилятор.

Да кстати, матрицы как-то странно заполняются в виде таких символов

Это вы в текстовом редакторе что-ди его посмотреть пытаетесь? Так а что вы ожидали увидеть? Файл-то не текстовый.

[Ddr]

assignfile(f,'mtrx.dat');
   reset(f);

Добавил это, ошибка пропала. Щас попробую вывести все матрицы посмотреть что будет в результате

[Ddr]

Всё работает, большое спасибо.