Мин Макс элемент в файле.

[iCaesy]

Пусть в файл вводится последовательность чисел в диапазоне от 1 до
255. Признак конца последовательности – 0. Определите перемен-
ные min и max как минимальное и максимальное из введенных чи-
сел. Напечатайте по одному разу все числа из интервала (min,
max), которые не были введены.

Вот что есть:

program q;
uses crt;
var f:file of integer;
x,i,s,n,k:integer;
begin
assign(f,'file.dat');
rewrite (f);
writeln ('vvedite celie chisla');
read(X);
while x<>0 do begin
N:=(x);
write(F,n);
readln(x);
end;
reset(f);
writeln ('Sostav fayla:');
while not eof (F) do
begin
read (f,x);
write (x:5);
end;
close (f);
end.

Как определить мин и макс значения в файле ?
И вывести элементы между ними?

[iCaesy]

все еще нид хэлп

[Camaro Chevelle]

первый раз прошлёпать до конца файла в поисках мин и макс элемента.
кстати сразу вопрос. а последовательность упорядоченная или вразнобой?

[iCaesy]

В том то и дело что в разнобой может быть.
То есть может быть сначало макс элемент а потом мин, и наоборот.
Как вывети числа которые между ними ? о_О

[Serge_Bliznykov]

чисел в диапазоне от 1 до
255.

заводите массив от 1 до 255 (любого типа, хоть boolean)

при проходе по файлу (понадобится всего один проход)
"отмечайте" в массиве, какие числа встретились.
и одновременно ищите мин и макс.
потом Вам достаточной вывести ИЗ МАССИВА те числа, которых не было в файле:

var  WasNumber : array[1..255] of boolean;
...
begin
  ....
  for i:=1 to 255 do WasNumber[i] := false;

  ...
  while Not eof(f) do begin
     Read(f, X);
     if (X>=1)  and (X<=255) then WasNumber[X] := true;
    ... тут проверка X на мин и макс     ...
  end.

идея понятна?!

[iCaesy]

Не совсем...
Особенно к чему тут булевский тип...

[Serge_Bliznykov]

жаль... я думал, идея простая, Вы поймёте, о чём я говорю...

булевский тип - это признак того, встречалось ли число в файле или нет.
например,
если WasNumber[X] = true - тогда число X раньше встречалось,
если же значение равно false - такого числа раньше НЕ БЫЛО.


вот код. тестируйте. разбирайтесь...

var f : file of integer;
  WasNumber : array[1..255] of boolean;
  i, Min, Max :  integer;
begin
  {сначала отметим, что ни одно число ещё не встречалось!}
  for i:=1 to 255 do WasNumber[i] := false;

  assign(f,'file.dat');
  Reset(f);

  Min := 255; Max := 0;
  while Not eof(f) do begin
     Read(f, X);
     if (X>=1)  and (X<=255) then begin
         WasNumber[X] := true;
         if X>Max then Max := X;
         if X<Min then Min := X; 
     end;
  end.

  WriteLn('Найденные значения: Min =', Min, ' Max =', Max);
  WriteLn('числа от ',Min,' до ', Max, ', которых не было в файле: ');
  for i:=Min to Max do
    if Not WasNumber[i] then Write(i:4);
  Writeln;

  Readln;
end.

[Camaro Chevelle]

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

заводите массив от 1 до 255 (любого типа, хоть boolean)

зачем массив? съест больше памяти и обеспечит медленную работу программы, хоть это и не принципиально наверно, но есть же такая замечательная структура данных в паскале как множество... и оно допускает до 256 элементов (видимо тут предполагается использовать именно множество, т. к. ограничение на диапазон чисел 1..255, случайно ли это совпадение? ).
не вижу смысла в применении массива из boolean
нерационально

[Serge_Bliznykov]

Сообщение от Camaro Chevelle

зачем массив? съест больше памяти

255 байт?! я Вас умоляю!

Сообщение от Camaro Chevelle

и обеспечит медленную работу программы,

обращение к элементам напрямую, через индекс, поэтому работа будет явно не медленнее...

Сообщение от Camaro Chevelle

есть же такая замечательная структура данных в паскале как множество... и оно допускает до 256 элементов (видимо тут предполагается использовать именно множество, т. к. ограничение на диапазон чисел 1..255, случайно ли это совпадение? ).

Угу. Вот с этим я согласен.
Можно было и через множество решить.