2 задачи на delphi

[Stilet]

препод сказал за массивы сразу 2 поставит

А тут массивы и не нужны. Делай типизированный файл, в цикле его пробергай и находи максимумы. Массив тут совершенно не нужен.

[ЭД4-0014]

А как его сделать?

[mihali4]

Сообщение от ЭД4-0014

А как его сделать?

Клуб программистов (ссылка внизу), раздел "Книги", "Библия программиста Дельфи" Михаила Фленова - на все случаи жизни. Качайте...

[A_r_r_a_y]

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

А тут массивы и не нужны. Делай типизированный файл, в цикле его пробергай и находи максимумы. Массив тут совершенно не нужен.

в принципе можно использовать и текстовый файл, что в плане понимания будет несколько легче

[ЭД4-0014]

люди, напишите мне кто нибудб эту прогу... кроме ошибки у меня ничего не получается...((((((

[gred]

Выложи прогу, исправим что не так.

[ЭД4-0014]

вот прога немного похожая на мою, но до меня не доходит как ее исправить. всегдаполучается ERROR!!!

Код:


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.