[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" !!!

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

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

У вас видимо в файле данных содержатся значения с нарушением формата представления Float. Какой разделитель знаков у вас там стоит?
Еще раз предлагаю, выложите здесь файл данных.

[luceu]

вот так, в принципе всё должно работать, видимо ошибка в переменных...

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var
  f:textfile;
  a: array [1..100000] of double;
  d: integer;
  n,i: integer;
  min: double;
  s: String;
begin
 If OpenDialog1.Execute           //открыть диалог для поиска файла
         then 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;
label1.caption:=(FloatToStr(min));
 ReadLn;
 Closefile(f);
 end
else SHowMessage('ошбка сохранения!');
 exit;
 end;

end. 


[luceu]

получилось вот так:
Если числа записаны в столбик и меньше нуля, то всё работает, а если все числа больше нуля, то выдаёт '0' !!!
В чём ошибка?

PHP код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TForm1 = class(TForm)
    Label1: TLabel;
    Button1: TButton;
    OpenDialog1: TOpenDialog;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var f:textfile;
    a:array [1..100000] of double;
    i:integer;
    min:double;
    adress:string;
begin
 If OpenDialog1.Execute           //открыть диалог для поиска файла
         then begin
   assignfile(f,OpenDialog1.FileName);
    reset(f);
    readln(f,min);
    a[1]:=min;
    for i:=2 to 1000 do
      begin
        readln(f,a[i]);
        if a[i]<min then begin min:=a[i];
        end;
          end;
           label1.Caption:='наименьшее число = '+floattostr(min);
   closefile(f);
end

else SHowMessage('Файл не выбран!');
 exit;
 end;

end. 


[lmikle]

Здесь:

a[1]:=min;

заменить на:

min:=a[1];

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

Сообщение от lmikle

Здесь:

a[1]:=min;

заменить на:

min:=a[1];

А вы в этом точно уверены? Внимательно код посмотрите.

[luceu]

Как только не менял, всё равно при наличии отрицательных чисел работает, при их отсутствии выводит 0!

[lmikle]

Страдалец, да, был не прав, вспылил.
Только вообще не понятно нафига там массив тогда???

Код:

function FindMinInFile(AFileName : String) : Double;
var
  L : TStringList;
  I : Integer;
begin
  L := TStringList.Create;
  L.LoadFromFile(AFileName);
  Result := StrToFloat(L[0]);
  For I := 1 To L.Count-1 Do
    If Result > StrToFloat(L[i]) Then Result := StrToFloat(L[i]);
  L.Free;
end;