Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка

@Quiet_22 · Регистрация: 03.12.2009

Создать два файла F и G. Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка.

ИСХОДНЫЕЕ ДАННЫЕ:
F= { 15; 17; 18; 19; 20 }
G= { 1; 2; 3; 4; 5; 6; 7 }

Помогите пожалуйста!!

@Puporev · 30.12.2009, 13:08

Pascal

uses crt;
const mf:array[1..5] of integer=(15,17,18,19,20);
      mg:array[1..7] of integer=(1,2,3,4,5,6,7);
var f,g,h:file of integer;
    i,a:integer;
begin
clrscr;
assign(f,'filef');
rewrite(f);
assign(g,'fileg');
rewrite(g);
assign(h,'fileh');
rewrite(h);
for i:=1 to 5 do
write(f,mf[i]);
for i:=1 to 7 do
write(g,mg[i]);
writeln('Содержание файла F:');
reset(f);
while not eof(f) do
 begin
  read(f,a);
  write(a,' ');
  write(h,a);
 end;
writeln;
close(f);
writeln('Содержание файла G:');
reset(g);
seek(h,filesize(h));
while not eof(g) do
 begin
  read(g,a);
  write(a,' ');
  write(h,a);
 end;
writeln;
close(g);
writeln('Содержание файла H:');
reset(h);
while not eof(h) do
 begin
  read(h,a);
  write(a,' ');
 end;
close(h);
readln
end.

@Quiet_22 0 / 0 / 0 Регистрация: 03.12.2009 Сообщений: 20
		1
	Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка 30.12.2009, 01:19. Показов 1004. Ответов 1 Метки нет (Все метки) Создать два файла F и G. Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка. ИСХОДНЫЕЕ ДАННЫЕ: F= { 15; 17; 18; 19; 20 } G= { 1; 2; 3; 4; 5; 6; 7 } Помогите пожалуйста!! 0

Опции темы

Записать в файл Н сначала элементы файла F, а затем элементы файла G с сохранением порядка

Решение