Question

ZADANIE2.

Napisz program w Turbo Pascalu, ktory skopiuje zawartosc plikow:

c:\abc\jeden.txt , oraz c:\abc\dwa.txt do pliku c:\abc\trzy.txt

Potrzebuje to do 12:15 wiec macie 30 minut. DAJE NAJ!

Answer 1

procedure copyfile(skad,dokad:string);
var plik, plik2:file;
    buf:pointer;
    r:integer;
begin
 assign(plik,skad);
 assign(plik2,dokad);
 reset(plik,1);
 reset(plik2,1);
 getmem(buf,4096);
 seek(plik2,filesize(plik2));
 while not eof(plik) do
  begin
   blockread(plik,buf^,4096,r);
   blockwrite(plik2,buf^,r);
  end;
 close(plik);
 close(plik2);
end;

begin
 copyfile('c:\abc\jeden.txt','c:\abc\trzy.txt');
 copyfile('c:\abc\dwa.txt','c:\abc\trzy.txt');
end.