SERGE_BLIZNUK
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код:
Program Lab20;
var
f1, f2, f3 : file;
buf : array[1..128] of char;
kod : byte;
procedure copy(var file1, file2 : file);
var Num, Res: word;
begin
repeat
blockread(file1, buf, SizeOf(buf), Num);
blockwrite(file2, buf, Num, Res);
until (Num = 0) or (Num<>Res)
end;
procedure proverka(kod : byte);
begin
if kod<>0 then
begin
Writeln('Ошибка!');
case kod of
2 : Writeln('Файл не найден');
3 : Writeln('Путь не найден')
end
end
end;
procedure imena(var p_name : file; i : byte);
var s : string;
begin
Writeln('Введите имя ', i, '-ого файла');
Readln(s);
assign(p_name, s)
end;
begin
{$I-}
repeat
imena(f1, 1);
reset(f1, 1);
kod:=IOResult;
proverka(kod)
until kod=0;
repeat
imena(f2, 2);
reset(f2, 1);
kod:=IOResult;
proverka(kod)
until kod=0;
repeat
imena(f3, 3);
reset(f3, 1);
kod:=IOResult;
proverka(kod)
until kod=0;
{$I+}
copy(f1, f3);
copy(f2, f3)
end.
|
|
