Файлы(Паскаль)!

[Cas01]

Товарищи....Помогите написать программу!
Вот условие:
В файле F записан массив действительных чисел.Найти наименьшее из этих чисел.


Буду очень благодарен!!!!

[Ybn2]

Program Zadacha;
  Var
    f:File of real;
    a,min:Real;
Begin
   Assign (f,'data.dat');
   Reset (f);
   Min:=99999;
   Repeat
     Read (f,a);
     If a<min then min:=a;
     Write (a,' ');
   Until Eof (f);
  Close (f);
  WriteLn ('Наименьшее: ',min);
  ReadLn;
end.

[Cas01]

А я это в паскаль забиваю,пишет ошибку!Не подскажите как устранить?


Program Zadacha;
Var
f:File of real;
a,min:Real;
Begin
Assign (f,'data.dat');
Reset (f);
Min:=99999;
Repeat
Read (f,a);
If a<min then min:=a;
Write (a,' ');
Until Eof (f);
Close (f);
WriteLn ('Наименьшее: ',min);
ReadLn;
end.




»*Ошибка ввода/вывода 2: Не удается найти указанный файл (Program1.pas, строка 7)

[Ybn2]

А у тебя файл data.dat есть и в каком он виде?

[Cas01]

а где этот файл должен находится?
и зачем он вообще в этой проге,для чего.......я просто новичок в этом деле.....

[Cas01]

я в поиске ввёл data.dat!
точно такого файла не нашлось,че делать?

[kiborrgg]

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

а где этот файл должен находится?
и зачем он вообще в этой проге,для чего.......я просто новичок в этом деле.....

Процедура Reset предполагает что физический файл который Вы хотите открыть уже существует - иначе возникает ошибка "file not found"

[kiborrgg]

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

я в поиске ввёл data.dat!
точно такого файла не нашлось,че делать?

Создать, и кинуть в папку где у тебя прога

[Cas01]

а файл в формате txt создавать?

[k0tone]

program test;
uses crt;
const n=6;
var F:file of real;
    x:array [1..n] of real;
    i:integer;
    min:real;
begin
clrscr;
randomize;
assign(F,'1.dat');
reset(F);
for i:=1 to n do
begin
x[i]:=random(9);
write(f,x[i]);
write(x[i]:6:1);
end;
min:=x[1];
for i:=1 to n do
if min>x[i] then min:=x[i];
writeln;
writeln('Xmin=',min:1:1);
close(f);
readln;
end.

Создай в папке "tp7\bin\"
файл "1.dat"