Файлы

[Кара]

Всем привет! Пожалуйста, кому не трудно, помогите решить задачку в паскале.

Создать файл Y, компоненты которого вычисляются по формуле:
Yi=(sqr(I)+2)/(Sqr(I)+4)
I=1,2,…10
Записать в файл Z все компоненты и сумму последних четырех компонентов файла Y. Прочитать файл Z.

Заранее благодарю!

[Utkin]

1. Написать процедуру создания файла нулевой длины
2. В цикле вычислить элементы массива по вышеуказанной формуле.
3. Записать в цикле указанные элементы массива в файл У.
4. Почистать сумму последних 2-х элементов массива
5. Записать все указанные элементы в цикле в файл Зет.
6. Записать в файл Зет сумму последних четырех элементов
7. В цикле прочесть все элементы файла Зет.

Не за что!

[Stilet]

Вот тебе наполнение файла.

  var i:integer;y:double; f:file of double;
begin
 assign(f,'c:\temp\aga');rewrite(f);
 for i:=1 to 10 do begin
  y:=(sqr(I)+2)/(Sqr(I)+4);
  write(f,y);
 end;
 reset(f);

  { TODO -oUser -cConsole Main : Insert code here }
end.

По тому же принципу считывай (read(f,y))
и анализируй.

Смысл понятен?