Файл\\\, javascript:emoticon(':yes2:', 'smid_19') Опции

[Rocket]

Дан файл вещественных чисел. Посчитать произведение компонентов файлов,которые больше удвоенного минимального компонента. Вот сама программа:

Program ZE;
type file_=file of real;
var f:file_;

function Z(var f:file_):real;

var
   i:integer;
   min:real;
   a:array[0..10] of real;
   p:real;

begin

reset(f);
p:=1;

begin

  for i:=0 to filesize(f)-1 do
  begin
  read(f,a[i]);
  min:=a[0];
  for i:=1 to filesize(f)-1 do
    begin
      if a[i]<min then
      min:=a[i];
    end;

  for i:=0 to filesize(f)-1 do
    begin
      if a[i]>2*min then  begin
      p:=p*a[i];
  Z:=p;
  end;
  end;
  end;
  end;
  close(f);
end;

procedure ZE_(var f:file_);
 var
     x:real;
      begin
       Reset(f);
        While not eof(f) do
        begin
       read(f,x);
      write(x,' ');
     end;
    Writeln;
   Close(f);
  end;


  Begin
 assign(f,'da.dat');
   Reset(f);
    close(f);
   ZE_(f);
  writeln('Proiz= ', Z(f));
 readln;
end.

Процедура выполняется,а вот функция выдает результат 0. Помогите найти косяк.

[мисс_граффити]

вот тут в циклах ошибка.
если отформатируешь программу по-человечески, она станет очевидна:

for i:=0 to filesize(f)-1 do
  begin
  read(f,a[i]);
  min:=a[0];
  for i:=1 to filesize(f)-1 do //идем по массиву - но ведь он еще не заполнен!
    begin
    if a[i]<min then
      min:=a[i];
    end;

вложенный цикл по той же переменной... то есть вообще результаты слабо предсказуемы.

[Rocket]

вот тут в циклах ошибка.

Спасибо. А как тогда переделать?

Сообщение отредактировано: volvo - 14.01.2009 10:01