Задачи. Паскаль

[Russel]

Задание №4.
Наход. в файле.

program lab4;
uses crt;
var f,d: array [1..8] of real;
c,s:real;
i:integer;
begin
for i:=1 to 8 do
begin

writeln ('vvedite f',i);
read (f[i]);
writeln ('vvedite d',i);
read (d[i]);

Препод сказал, что надо из файла. Как я понимаю из текстового, там в строке числа надо задать...
end;

s:=0;
s:=s+f[i];

Здесь что-то не понравилось...
for i:=1 to 8 do
begin
c:=s*(f[i]-2.5)/d[i];
writeln ('c',i,'=',c:8:1);
end;
end.

Выручите пожалуйста! По возможности объясните всю прожку плиз....
И ещё: преподу на показать контрольный просчет... Как его здесь сделать?
Спасибо!

№5 Как её сделать?
Задание 5. Простая циклическая программа с использованием рекуррентных формул. При отсутствии таких формул задача не принимается.

Задание в файле...
6) Усложненная циклическая программа с числовыми данными. Ввод исходных данных из текстового «внешнего» файла (данные вводятся не с клавиатуры в момент выполнения программы, а из заранее подготовленного файла, находящегося на каком- то внешнем носителе). Подготовить схему алгоритма.

Контрольный просчет тоже интересует...

Помогите кто чем может! Хотя бы инструкции какие-нибудь... Спасибо всем откликнувшимся!

 

[Vadik(R)]

стучи в асю 34-98-34-73