Даны два файла произвольного типа. Поменять местами их содержимое.
>Решение Pascal
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 | program File43; var Name:String; F,F_C: File; Buf : Char; begin Write('File: '); Readln(Name); Assign(F,Name); Reset(F, 1); Assign(F_C,Name+'-Copy'); Rewrite(F_C,1); while not Eof(f) do begin BlockRead(F, Buf, SizeOf(char)); BlockWrite(F_C, Buf, sizeof(char)); end; Close(F); Close(F_C); end. |
program file43;
var
f1,f2:file of integer;
s1:string;
i:integer;
begin
readln(s1);
assign(f1,s1);
assign(f2,s1+’copy’);
reset(f1);
rewrite(f2);
while not eof(f1) do begin
read(f1,i);
write(f2,i);
end;
close(f1);
close(f2);
end.