Работа с файлами записей Опции

[Ксанка]

Задание: Дано 2 файла записей типа - название прибора, номер прибора,
год выпуска. Сформировать третий файл где разместить записи 1 и 2 файла
о приборах выпущенных в заданном году. Помогите пожалуйста решить

[volvo]

Ксанка
Не совсем ясно условие... Заданы 2 файла, содержащих и название прибора, и номер прибора, и год выпуска, либо в первом - часть информации (например только номер и название), и часть - во втором (например, номер и год выпуска)...

Уточните, если можно...

[Ксанка]

Уважаемый volvo, спасибо что откликнулись В 1-м файле название и номер прибора, во втором - год выпуска.

[Ксанка]

volvo, поможете?

[Altair]

грубо, н очто-то вроде этого:

Код

{Дано 2 файла записей типа - название прибора, номер прибора,
год выпуска. Сформировать третий файл где разместить записи 1 и 2 файла
о приборах выпущенных в заданном году. Помогите пожалуйста решить}

type
f1rec=record
       name:string;
       nom:word;
      end;
f2rec=record
       god:word;
      end;
f3rec=record
       p1:string;
       p2,p3:word;
      end;
var
a:f1rec; b:f2rec; c:f3rec;
f1:file of f1rec;
f2:file of f2rec;
f3:file of f3rec;
i:longint;
begin
assign(f1,'1.dat');
assign(f2,'2.dat');
assign(f3,'3,dat');
reset(f1); reset(f2); rewrite(f3);
for i:=0 to filesize(f1)-1 do
begin
 seek(f1,i); seek(f2,i);
 read(f1,a);
 read(f2,b);
 c.p1:=a.name; c.p2:=a.nom;
 c.p3:=b.god;
 write(f3,c);
end;
close(f1); close(f2); close(f3);
end.

[volvo]

Oleg_Z
Только я бы немножко исправил вот это:

Код

for i:=0 to filesize(f1)-1 do
begin
seek(f1,i); seek(f2,i);
read(f1,a);
read(f2,b);
if b.god = 2000 then { Ну, или любой другой год :) }
begin
  c.p1:=a.name; c.p2:=a.nom;
  c.p3:=b.god;
  write(f3,c);
end;
end;

Все-таки нужно

Сформировать третий файл где разместить записи 1 и 2 файла о приборах выпущенных в заданном году

...

[Altair]

да, действительно.
да и запись f2rec ни к чему в принципе ;)

[Ксанка]

Ребята, ВЫ - ЗОЛОТО!! :thanks: Спасибо Вам за помощь и....побольше бы таких, как вы!! :rose:

[Ксанка]

А как за вас проголосовать?

[Altair]

Всегда приятно помочь девушке ... :flowers: :rose:

А как за вас проголосовать?

ну в 2008 я балатироваться на пост президента России не буду пока, ну может позже :P :D