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

@sokolovskii · Регистрация: 08.02.2016

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

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

@ZX Spectrum-128 · 07.04.2016, 11:58

Взято из встроенной справки:

Pascal

Program Example6;
{ Program to demonstrate the BlockRead and BlockWrite functions. }
Var Fin, fout : File;
    NumRead,NumWritten : Word;
    Buf : Array[1..2048] of byte;
    Total : Longint;
begin
  Assign (Fin, Paramstr(1));
  Assign (Fout,Paramstr(2));
  Reset (Fin,1);
  Rewrite (Fout,1);
  Total:=0;
  Repeat
    BlockRead (Fin,buf,Sizeof(buf),NumRead);
    BlockWrite (Fout,Buf,NumRead,NumWritten);
    inc(Total,NumWritten);
  Until (NumRead=0) or (NumWritten<>NumRead);
  Write ('Copied ',Total,' bytes from file ',paramstr(1));
  Writeln (' to file ',paramstr(2));
  close(fin);
  close(fout);
end.

@sokolovskii 0 / 0 / 0 Регистрация: 08.02.2016 Сообщений: 12
		1
	Создать программу считывания произвольного файла и создание нового нетипизированного файла, копируя блоками 06.04.2016, 14:26. Показов 1633. Ответов 1 Метки нет (Все метки) Создать программу считывания произвольного файла и создание нового нетипизированного файла, копируя блоками. Научиться использовать подпрограммы обработки директорий. 0

	07.04.2016, 11:58

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

Решение