типизированные файлы, целочисленные массивы Опции

[D-7]

Помогите Люди Добрые!
Дан файл F, элементами которого являються целочисленные массивы a0,a1,a2,a3,a4. Требуеться преобразовать каждый из массивов, заменив элементы с наибольшим значением на 0. Полученные массивы должны быть записаны в тот же самый файл F.
Исходные данные:
5 6 7 4 8
11 8 3 2 1
2 1 -5 -6 -10
-8 2 -9 -2 -1

[КМА]

Вот то, о чем я говорил в моем предыдущем посте. Просто, если разрешено рассматривать а0, а1, а2, а3, а4 как элементы массива, то тогда код можно ужать (сразу вспоминается лекция про соотношение пространства и времени). Думаю, этот вариант будет немного помедленее, но зато более удобно читаемый.

const n=5;
type massive=array [1..n] of integer;
Var f: file of massive;
    an: array [0..4] of massive;
    i: byte;

procedure createRandomMassive(Var x: massive);
Var i: byte;
Begin
     for i:=1 to n do
      x[i]:=random (199) - 100;
End;

procedure printMassive (x: massive);
Var i: byte;
Begin
     for i:=1 to n do
      write (x[i],' ');
     writeLn;
End;

function numMaxElMassive (x: massive): byte;
Var i, iMax: byte;
Begin
     iMax:=1;
     for i:=2 to n do
      if x[iMax]<x[i]
         then iMax:=i;
     numMaxElMassive:=iMax;
End;

BEGIN
     assign (f, 'C:\zadacha1.kma');
     {---------------------------------------}
     {создадим файл и занесем в него массивы}
     reWrite (f);
     Randomize; 
     for i:=0 to 4 do
      begin
       createRandomMassive (an[i]);
       write (f, an[i])
      end;
     close (f);
     {-----------------------------------------}
     {теперь начинается собвственно твоя программа, все что отделенно
      -----------------------------------------
      не считать. Это вообще отдельная программа должна быть}
      writeLn ('File before:');
      reSet (f);
      {читаем из файла массив выводим его на экран,
       находим максимальный, обнуляем}
      for i:=0 to 4 do
       begin
        read (f, an[i]);
        printMassive (an[i]);
        an[i][numMaxElMassive (an[i])]:=0;
       end;

      writeLn ('File after:');
      {Теперь стираем все данные из файла и перезаписываем новые массивы}
      reWrite (f);
      for i:=0 to 4 do
       begin
        write (f, an [i]);
        printMassive (an[i])
       end;

      close (f);
      readLn;
END.

Сообщение отредактировано: КМА - 23.03.2007 3:39