Файлы, текстовые и типизированные

[NomadZ]

Файлы, текстовые и типизированные

Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е.

Задача:
Создать текстовый файл, в который построчно записать квадратный массив massiv_n^2, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размер массива n задать константой. Границы диапазона v_min и v_max задать с консоли. Прочитать из созданного файла все диагонали, параллельные главной, и вывести их на экран построчно. При чтении из файла считать размер массива неизвестным. Определить его при чтении файла.

 

[Vladimir_S]

Здравствуйте, помогите пожалуйста с написанием кода для следующей задачи на Pascal'е.

Задача:
Создать текстовый файл, в который построчно записать квадратный массив massiv_n^2, заполненный целыми случайными числами в диапазоне от v_min до v_max. Размер массива n задать константой. Границы диапазона v_min и v_max задать с консоли. Прочитать из созданного файла все диагонали, параллельные главной, и вывести их на экран построчно. При чтении из файла считать размер массива неизвестным. Определить его при чтении файла.

Да... заковыристая задачка оказалась... Но интересная.
Вот, пожалуйста:

Uses CRT;

Const
 n=7;

Var
 M:Array[1..n,1..n] of Integer;
 v_min,v_max,A:Integer;
 i,j,k,n1:byte;
 f:Text;
 S:String;


Begin
 Assign(f,'D:\mmm.txt');
 Rewrite(f);
 ClrScr;
 Write(' v_min = ');
 Readln(v_min);
 Write(' v_max = ');
 Readln(v_max);
 Writeln;
 Randomize;
 for i:=1 to n do
  begin
   for j:=1 to n do
    begin
     M[i,j]:=v_min+Random(v_max-v_min+1);
     write(M[i,j]:5);
     write(f,M[i,j]:6,' ');
    end;
   writeln;
   writeln(f);
  end;
 Close(f);
 Writeln;
 Reset(f);
 n1:=0;
 While Not(Eof(f)) do
  begin
   Readln(f,S);
   Inc(n1);
  end;
 for j:=n1 downto 1 do
  begin
   Reset(f);
   for i:=1 to n1+1-j do
    begin
     for k:=1 to j+i-1 do read(f,A);
     readln(f);
     write(A:5);
    end;
   Writeln;
  end;
 for i:=2 to n1 do
  begin
   Reset(f);
   for k:=1 to i-1 do readln(f);
   for k:=i to n1 do
    begin
     for j:=1 to k-i+1 do read(f,A);
     readln(f);
     write(A:5);
    end;
   Writeln;
  end;
 Close(f);
 ReadKey
End.

Имя файла и его расположение возьмите, конечно, свои.

 

[NomadZ]

Большое спасибо! Вы очень помогли!