Файлы.

[BR@BUS]

Здравствуйте. Есть вот задачка, нималейшего представления не имею как ее делать Может кто поможет? Плз, завтра сдать ее надо

Багаж пассажира характеризуется количеством вещей и общим весом вещей. Дан файл f , содержащий информацию о багаже нескольких пассажиров, информация о багаже каждого отдельного пассажира представляет собой соответствующую пару чисел *) .
Определить, имеются ли 2 пассажира, багаж которых совпадает по числу вещей и различаются по весу не более чем на 0.5 кг.

Есть маленькие ньюансы :во-первых - отдельный приложения для создания и считывания файла, и во-вторых - не использовать массивы и цикл for

[Stilet]

не использовать массивы и цикл for

Ну не For так While или If...Then...GoTo

Тут наверное неплохо было бы делать сортировку этих данных. ТОгда проще найти парные.

[Rusl92]

Можно использовать записи?

[BR@BUS]

Компа к сожадению нет чтоб сделать. Плз help me all завтра сдать надо кровь из носу*((

[SNUPY]

У меня похудо Дежавю..... я (походу вчера) где то уже видел данную задачку, но она была в паре с другой задачкой, но бог с тобой.
Вот решение (на этот раз не поленюсь и дам код проги, а не алгоритм).
Читающий:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
  TBagaje= record
    ThingCount:Cardinal;
    Massa:Double;
  end;
var
  F1,F2:File of TBagaje;
  Log:Boolean;
  Bag1, Bag2:TBagaje;
  Line1, Line2:Integer;

begin
  AssignFile(F1, 'B.bag');
  Reset(F1);
  AssignFile(F2, 'B.bag');
  Line1:=0;
  log:=False;
  while not eof(F1) do
  begin
    inc(Line1);
    line2:=0;
    Read(F1, Bag1);
    Reset(F2);
    While not eof(F2) do
    begin
      inc(line2);
      Read(F2, Bag2);
      if (Line2<>Line1) and (Bag1.ThingCount=Bag2.ThingCount) and (Abs(Bag1.Massa-Bag2.Massa)<0.5) then
      begin
        log:=true;
        Break;
      end;
    end;
    if Log then Break;
  end;
  CloseFile(f1);
  CloseFile(f2);
  if log then Writeln('Yes') else Writeln('Not');
  Readln;

end.

Записывающий:

program Project2;

{$APPTYPE CONSOLE}

uses
  SysUtils;

Type
  TBagaje= record
    ThingCount:Cardinal;
    Massa:Double;
  end;
var
  F:File of TBagaje;
  Bag:TBagaje;
  s:String;
  log:Boolean;
begin
  AssignFile(F, 'B.bag');
  Rewrite(F);
  repeat
    writeln('Count?');
    Readln(bag.ThingCount);
    writeln('Massa?');
    Readln(bag.Massa);
    writeln('Next (n/y)?');
    Readln(s);
    Write(F,Bag);
  Until s='n';
  CloseFile(f);
end.

[BR@BUS]

спасибо большое.