[luceu]

Вот такое задание:
"Разработайте программу, определяющую наименьшее значение из внешнего файла, распечатайте это значение."

Почему то, как не делаю, всегда выводит "0"!
может кто уже делал такое или увидит мою ошибку буду очень признателен.

PHP код:

procedure TForm1.Button2Click(Sender: TObject);
var f:textfile;
    a:array [1..100000] of double;
    d:integer;
    n,i:integer;
    min:double;
   begin
    If OpenDialog1.Execute           //открыть диалог для поиска файла
         then begin
assignfile (f,'text1.txt');
 reset(f);
    readln(f,n);
    readln(f,min);
    a[1]:=min;
    for i:=2 to n do
      begin
        readln(f,a[i]);
        if a[i]<min then begin min:=a[i]; end;
         end;
         label3.Caption:=floattostr(min);
      closefile(f);
    end
else SHowMessage('ошбка сохранения!');
 exit;
end; 


[Drozh]

Не

Код:

a[1]:=min;

а

Код:

min:=a[1];

а зачем массив?

[luceu]

а как ещё можно?

просто ни чего лучше не придумал...

[luceu]

всё равно 0.

[Страдалецъ]

Не путайте человека. У него почти все правильно было.
Считывается первая строчка из файла и ее значение присваивается min только вот ошибка ваша в том, что считываете вы строковое значение, а присваиваете уже переменной double.

[luceu]

Ввожу новую переменную, меняю тип, при загрузке файла вылезает ошибка:
"is not a valid floating point value"

Если у кого есть лишние 15минут, попробуйте прикинуть программу плс...

[Страдалецъ]

Вот рабочий вариант, смотрите:

Код:

uses
  SysUtils;

var
  f:textfile;
  a: array [1..100000] of double;
  d: integer;
  n,i: integer;
  min: double;
  s: String;
begin
 assignfile(f,'d:\text1.txt');
 reset(f);
 readln(f, s);
 n := StrToInt(s);
 readln(f, s);
 min := StrToFloat(s);
 a[1] := min;
 for i := 2 to n
 do begin
    readln(f, s);
    a[i] := StrToFloat(s);
    if a[i] < min
    then min := a[i];
    end;
 WriteLn(FloatToStr(min));
 ReadLn;
 Closefile(f);
end.

[luceu]

Большое спасибо!

Но почему то всё равно не работает, и вылезает:

"is not a valid floating point value" !!!

Можете объяснить почему и как исправить?