[Asira]

Помогите с данной задачкой ! Вывести в порядке возрастания простые числа, которые не встречаются в данном файле. Последнее из выведенных чисел не должно превосходить наибольшего числа файла. Считывать элементы файла в массив или другую структуру нельзя, но для других целей ее создать можно. Компоненты файла задаются случайно из диапазона a..b. Считать, что число элементов файла не ограничено конкретным числом. При обработке файл можно прочитать только один раз.

[Bars1992]

Держи что не ясно пиши

PHP код:

var
  Form1: TForm1;
  f:file of integer;

implementation

{$R *.dfm}
function SerchInFile(i:integer):boolean;
 var
  j:integer;
 begin
  result:=false;
  reset(f);
  while not EOF(f) do
   begin
    read(f,j);
    if j=i then 
     begin
      result:=true;
      exit;
     end;
   end;
 end;

procedure TForm1.Button1Click(Sender: TObject);
var
 max,min,i,j:integer;

begin
 assignFile(f,'D:\1.txt');
 reset(f);
 read(f,max);
 min:=max;
 while not EOF(f) do
  begin
  read(f,j);
  if j>max then max:=j;
  if j<min then min:=j;
  end;
 for i:=min+1 to max-1 do
  if not SerchInFile(i) then memo1.Lines.Add(inttostr(i));
 closeFile(f);
end; 


[Asira]

Зачем считывать из файла максимум а затем приравнивать к минимуму?

Код:

read(f,max);
 min:=max;

зачем нужна функция function SerchInFile(i:integer):boolean;

[Bars1992]

Ты наверно учишся на програмиста и наверное учила поиск минимального и максимального елемента в масиве или ище гдето там. Мы считываем первый елемент и принимаем его как минимальный и максимальный елемент. Потом с помощью кода

PHP код:

if j>max then max:=j; 
if j<min then min:=j; 


Мы находим реальные минимальное и макс. значения.

Функция SerchInFile(i:integer):boolean; полностью прочитывает файл и если находит число I в файле то возвращает ответ True если нет тогда False