Форум АНТИЧАТ - Показать сообщение отдельно

Часто в коде программ можно увидеть что-то типа

Код:

var
  fi, fo: file;
  a: integer;
..
assignfile(fi, 'a.in');
reset(fi);
assignfile(fo, 'a.out');
rewrite(fo);
read(fi, a);
write(fo, a);
close(fi);
close(fo);

Реже встречается код, когда работа идёт с переопределением стандартного ввода/вывода, что на самом деле удобнее, поскольку в write, read, writeln и readln не надо писать ссылку на файл:

Код:

var
  a: integer;
..
assignfile(input, 'a.in');
reset(input);
assignfile(output, 'a.out');
rewrite(output);
read(a);
write(a);
close(input);
close(output);

На самом деле - можно сделать ещё короче:

Код:

var
  a: integer;
..
reset(input, 'a.in');
rewrite(output, 'a.out');
read(a);
write(a);
close(input);
close(output);

Кстати (тестилось и на винде, и на никсах - везде результат положительный), можно даже и не использовать

Цитата:

close(f)

- система сама всё правильно закрывает.