{
Сибирский Государственный Университет Путей Сообщения (СГУПС)
Кафедра "Информационные технологии транспорта"

Задание:
Дан файл f, компоненты которого являются действительными числами.
Найти сумму компонентов файла, произведение, значение послед него элемента файла.

Выполнил: ст.гр. МЛ-112, Фомин Александр
г.Новосибирск, 2012г.
}

Program TypeFiles; uses crt;

var f:file of real; {Файл с действительными числами}
    x,op,sum,last:real;
      i:integer; {Счетчик}

Begin clrscr;
Randomize;
Write('--------------------------------------------------------------------------------');
GotoXY(17,WhereY); Writeln('Для запуска программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln; clrscr;

Write('--------------------------------------------------------------------------------');
Assign(F,'TFs_1F'); {Подключаем файл TFs_1F к переменной F}
Rewrite(F);  {Создаем и открываем новый файл TFs_1F}

for i:=1 to 100 do
    Begin
      X:=Random(50)-25.; {Генерируем псевдослучайные числа}
      Write(F,X); {Записываем в файл}
      Write(X:7:2,' ');
      end;
Close(F);   {Закрываем файл TFs_1F}

Reset(F);  {Открываем новый файл TFs_1F}
Sum:=0; {Начальное значение суммы}
Op:=1; {Начальное значение произведение}

While not Eof(F) do
      Begin
        Read(F,X); {Читаем из файла}
       Op:=Op*X; {Считаем произведение}
        Sum:=Sum+X; {Считаем сумму}
        Last:=X; {запоминаем текущий элемент}
      end;
Close(F); {Закрываем файл TFs_1F}

Write('--------------------------------------------------------------------------------');
Writeln(' Сумма компонентов файла "TFs_1F": ',Sum:8:5);
Writeln(' Произведение компонентов файла "TFs_1F": ',Op:8:5);
Writeln(' Последний элемент файла "TFs_1F": ',Last:8:5);
Write('--------------------------------------------------------------------------------');
GotoXY(15,WhereY); Writeln('Для выхода из программы нажмите клавишу "Enter"');
Write('--------------------------------------------------------------------------------');
Readln;
end.