Файловые переменные

@RomaRi0 · Регистрация: 14.01.2016

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

Задание:

Объявите две файловые переменные,свяжите их с одним и тем же файлом, а затем откройте через обе переменные.Вызовет ли это ошибку?Объясните результат,исходя из здравого смысла.
------------------------------------------------------------------------------------------------------

Честно говоря даже не понимаю смысла задания, что значит связать одним и тем же файлом....

Однако программу все таки написал.Проверьте, если неправильно---НЕ ПИШИТЕ САМИ ПРОГРАММУ,А ПОСТАРАЙТЕСЬ ОБЪЯСНИТЬ МНЕ САМО ЗАДАНИЕ!!!Так вы лишайте меня удовольствия самому написать и протестить код. Спасибо.

------------------------------------------------------------------------------------------------------

Pascal

var
  a, b: text;
  s, s1: string;
 
begin
  Assign(a, 'D:\Ps_file.txt');
  Assign(b, 'D:\Ps_file2.txt');
  Reset(a);
  Reset(b);
  while not Eof(a) do 
  begin
    readln(a, s);
    writeln(s);
  end;
  while not Eof(b) do 
  begin
    readln(b, s1);
    writeln(s1);
  end;
  readln;
end.

@adsarc · 21.02.2016, 14:06

Задание так не подразумевает написание программы, ибо вызовет ошибку в любом случае. Мне это напоминает файл-сервер архитектуру.

@capricornus CF · 21.02.2016, 15:28

Имеется ввиду открытие одного файла через две переменные:

Pascal

var
  a, b: text;
  s, s1: string;
 
begin
  Assign(a, '1.txt');
  Assign(b, '1.txt');
  Reset(a);
  Reset(b);
  while not Eof(a) do 
  begin
    readln(a, s);
    writeln(s);
  end;
  while not Eof(b) do 
  begin
    readln(b, s1);
    writeln(s1);
  end;
  readln;
end.

Не по теме:

Для "Песен о паскале" на том же сайте есть сборник ответов.

Добавлено через 2 минуты
adsarc, Ошибки при открытии на чтение не будет.

@adsarc 33 / 33 / 23 Регистрация: 16.04.2013 Сообщений: 212
	21.02.2016, 14:06	2
	Задание так не подразумевает написание программы, ибо вызовет ошибку в любом случае. Мне это напоминает файл-сервер архитектуру. 0

	21.02.2016, 15:28

Опции темы