Наход. в файле.
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.
Выручите пожалуйста! По возможности объясните всю прожку плиз....
И ещё: преподу на показать контрольный просчет... Как его здесь сделать?
Спасибо!
М | Ставь теги!! Вопросы загоняй в комментарии Файлы doc - нельзя. Сделай картинку. Lapp |