Pascal. Нетипизированные файлы

@yexela · Регистрация: 19.06.2016

Author24 — интернет-сервис помощи студентам

Даны два Нетипизированных файла file1.dat и file2.dat. Напишите программу "склеивания" файлов в файл file2.dat, используя функции create, readblock, writeblock, reset, close.

@Puporev · 20.06.2016, 10:42

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

функции create, readblock, writeblock

Это что за функции такие?

@bormant · 20.06.2016, 11:05

Ежели 1 и 2 в именах файлов не задают порядка их вхождения в результат, то

Pascal

var
  f1, f2: file;
  b: array [1..1024*8] of Byte;
  r: Word;
begin
  Assign(f1,'file1.dat'); Reset(f1,1);
  Assign(f2,'file2.dat'); Reset(f2,1); Seek(f2,FileSize(f2));
  repeat
    BlockRead(f1,b,SizeOf(b),r);
    BlockWrite(f2,b,r);
  until r<SizeOf(b);
  Close(f2); Close(f1);
end.

@yexela 0 / 0 / 0 Регистрация: 19.06.2016 Сообщений: 33
		1
	Pascal. Нетипизированные файлы 20.06.2016, 09:39. Показов 1184. Ответов 2 Метки нет (Все метки) Даны два Нетипизированных файла file1.dat и file2.dat. Напишите программу "склеивания" файлов в файл file2.dat, используя функции create, readblock, writeblock, reset, close. 0

@Puporev Почетный модератор 64300 / 47595 / 32743 Регистрация: 18.05.2008 Сообщений: 115,181
	20.06.2016, 10:42	2
	Сообщение от yexela функции create, readblock, writeblock Это что за функции такие? 0

	20.06.2016, 11:05

Pascal. Нетипизированные файлы

Решение