tabfail.PAS

Райт Вилладж коттеджный поселок

Райт Вилладж коттеджный поселок

realisting.ru

{* Запись табличных данных в файл и их чтение оттуда *}

Unit TABFAIL;
Interface
Implementation
Begin
 writeln('Запись табличных данных в файл и их чтение оттуда');
End.

Program pas0;

Uses tabfail.pas; {* Эту строку можно удалить *}
Const {* Постоянные значения *}
  K = 10;
  L = 20;
Var {* Объявление переменных *}
  f : text;
  n : byte;
  i : integer;
  j : integer;
Begin
  assign (f, 'c:tabl.txt'); {* Подключение к файлу 'c:tabl.txt' через переменную f *}
  rewrite (f); {* Открытие файла для записи *}
  randomize;
  For i := 1 To K Do {* Увеличиваем i от 1 до K с шагом 1 *}
  Begin
    For j := 1 To L Do {* Увеличиваем j от 1 до L с шагом 1 *}
    Begin
      n := random (100);
      write (f, n : 4)
    End;
    writeln (f)
  End;
  close (f); {------------------------------------}
  reset (f); {* Открытие файла для чтения *}
  While Not eof (f) Do {* Пока не конец файла *}
  Begin
    While Not eoln (f) Do
    Begin
      read (f, n);
      write (n : 4)
    End;
    readln (f);
    writeln; {* Вывод пустой строки *}
  End;
  close (f) {* Закрытие файла *}
End.