Работа с файлами данных в Pascal

(******************************************************

* Задача: дан массив, содержащий температуру  воздуха  *

* для каждого часа  на каждый день  месяца. Вывести эти  *

* значения в текстовый  файл в виде  таблицы, при этом  *

* добавить среднюю  температуру.            

          *

******************************************************)   

const

  MONTHNAME='Июнь';

  MINTEMPER=15;

  MAXTEMPER=36;

var

  OutFile: Text; {файл таблицы}

  FileName: string;

  Temper : array [1..31,1..24] of byte; {массив температур}

  i, j, Sum: integer;  

(******************************************************

Процедура заполняет массив температур случайными

значениями. Распределение, конечно, получится нереальным,

но  для иллюстрации  этого будет достаточно.

******************************************************)

procedure CountArray;

var

  i, j: integer;

begin

  for i:=1 to 31 do

    for j:=1 to 24 do

      Temper[i,j] := Random(MAXTEMPER-MINTEMPER)+MINTEMPER;

end;  

begin

  {Заполняем массив температур}

  CountArray;

  write('Введите имя файла для вывода таблицы '); readln(FileName);

  Assign(OutFile, FileName);

  Rewrite(OutFile);

  {Шапка таблицы}

  writeln(OutFile,'Температура воздуха на месяц: ',MONTHNAME);

  for i:=1 to 26 do

    write(OutFile,'+---');

  writeln(OutFile,'+');

  write(OutFile,'|   |Ср.|');

  for i:=1 to 24 do

    write(OutFile,i:3,'|');

  writeln(OutFile);

  for i:=1 to 26 do

    write(OutFile,'+---');

  writeln(OutFile,'+');

  {Вывод значений температуры}

  for j:=1 to 31 do begin

    {Сумма дневных температур для вычисления средней}

    Sum:=0;

    for i:=1 to 24 do

      Sum:=Sum+Temper[j,i];

    {Выводим среднюю и почасовые температуры}

    write(OutFile,'|',j:3,'|');

    if Sum>0 then

      write(OutFile, '+',(Sum div 24):2,'|')

    else

      write(OutFile, (Sum div 24):3,'|');

    for i:=1 to 24 do

      if Temper[j,i]>0 then

        write(OutFile,'+',Temper[j,i]:2,'|')

      else

        write(OutFile,Temper[j,i]:3,'|');

    writeln(OutFile);

  end;

  {Закрываем таблицу и файл}

  for i:=1 to 26 do

    write(OutFile,'+---');

  writeln(OutFile,'+');

  Close(OutFile);

end.

+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+

|   |Ср.|  1|  2|  3|  4|  5|  6|  7|  8|  9| 10| 11| 12| 13| 14| 15| 16| 17| 18|

+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+

|  1|+23|+15|+15|+33|+19|+20|+29|+21|+18|+22|+23|+16|+24|+16|+32|+16|+21|+34|+22|

|  2|+24|+18|+21|+24|+20|+32|+20|+25|+18|+33|+21|+31|+35|+25|+33|+32|+15|+17|+18|

|  3|+27|+31|+29|+26|+19|+29|+27|+35|+28|+35|+20|+29|+21|+16|+31|+25|+33|+25|+27|

...

| 30|+22|+30|+34|+20|+18|+17|+35|+17|+22|+18|+23|+25|+17|+22|+21|+20|+16|+21|+32|

| 31|+23|+16|+31|+23|+15|+29|+25|+24|+30|+15|+17|+20|+26|+31|+28|+20|+32|+25|+24|

+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+---+

writeln (F, 'Куда идем мы с Пятачком -');

Close (F);

Append (F);

writeln (F, 'Большой-большой секрет.');

Close (F);

Большой-большой  секрет.

  {объявляем буфер в виде массива в памяти}

  Buf : Array [1..10] of integer;

  F : File;

  Value : integer;

...

Reset(F,16); {открываем бестиповый файл, размер буфера 16 байт}

{чтение  из файла 32 байт (2*16) и запись по  адресу 1 элемента  массива}

BlockRead (F,Buf,2);

{чтение  из файла 64 байт  и запись по  адресу 5 элемента  массива}

BlockRead (F,Buf[5],4); - чтение в Х 64 байт начиная с 5 элемента

(******************************************************

* Демонстрация работы  с нетипизированными  файлами и   *

* использования параметров  командной строки.          *

* Задача: побайтово  скопировать один  файл в другой.   *

******************************************************)   

var

  SrcFile, DestFile: File; {файл-источник и файл-приемник}

  NumRead, NumWrite: Word; {количество обработанных блоков}

  Buf: array [1..1024] of Char; {буфер можно задать и так}

begin

  {проверяем количество параметров командной строки}

  if ParamCount< 3 then begin

    writeln('Ошибка: недостаточно параметров командной строки.');

    exit;

  end;

  {открываем оба файла}

  Assign(SrcFile, ParamStr(2));

  {$I-}

  Reset(SrcFile, 1); {размер буфера 1 байт}

  {$I+}

  if IOResult<>0 then begin

    writeln('Ошибка: невозможно открыть исходный файл.');

    exit;

  end;

  Assign(DestFile, Param

Str(3));

  Rewrite(DestFile, 1); {размер буфера тоже 1 байт}

  {копируем}

  Writeln('Копирую файл ',ParamStr(2),' в ', FileSize(SrcFile), ' байт...');

  repeat

    BlockRead(SrcFile, Buf, SizeOf(Buf), NumRead);

    BlockWrite(DestFile, Buf, NumRead, NumWrite);

  until (NumRead = 0) or (NumWrite <> NumRead);

  writeln('Копирование завершено.');

  Close(SrcFile);

  Close(DestFile);

end.