Создать текстовый файл f и g. Переписать их в файл h чередуя строки

@Матрена · Регистрация: 24.12.2013

17. Создать текстовый файл f и g. Переписать их в файл h чередуя строки.

Kodzaev · 17.02.2014, 22:04

Pascal

const
  fname = 'f.txt';
  gname = 'g.txt';
 
var
  f, g, h: text;
  s: string;
 
begin
  Assign(f, fname);
  Assign(g, gname);
  {$I-}
  Reset(f);
  Reset(g);
  {$I+}
  if IOResult = 0 then
  begin
    Assign(h, 'h.txt');
    Rewrite(h);
    while not EOF(f) or not EOF(g) do
    begin
      Readln(f, s);
      Writeln(h, s);
      Readln(g, s);
      Writeln(h, s)
    end;
    Close(f);
    Close(g);
    Close(h);
    Writeln('Done');
  end
  else
    Writeln('File(s) not found');
  Readln
end.

@Матрена · 04.05.2014, 11:30 **[ТС]**

что такое "{$I-}"?

Kodzaev · 04.05.2014, 19:57

Сообщение от Матрена

что такое "{$I-}"?

Директива, отключающая контроль ввода-вывода. Сначала назначаем файловым переменным f и g имена внешних файлов (строки 10 и 11). Теперь по идее нам нужно открыть эти файлы для чтения с помощью процедуры Reset. Но что если файлов с такими именами не существует? Без директивы {$I-} программа завершилась бы аварийно. А нам это ни к чему. Поэтому ставим директиву {$I-} (т.е. отключаем контроль) до открытия файлов. Теперь "открываем" наши файлы (строки 13 и 14), а затем включаем контроль {$I+}. После этого стандартная функция IOResult возвращает 0, если файлы были открыты успешно (т.е. файлы действительно существуют).

@Уля1004 · 04.06.2014, 18:30

Переделайте,пожалуйста,под модули ее(

@Матрена 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 13
		1
	Создать текстовый файл f и g. Переписать их в файл h чередуя строки 17.02.2014, 13:07. Показов 1486. Ответов 4 Метки нет (Все метки) 17. Создать текстовый файл f и g. Переписать их в файл h чередуя строки. 0

@Матрена 0 / 0 / 0 Регистрация: 24.12.2013 Сообщений: 13
	04.05.2014, 11:30 [ТС]	3
	что такое "{$I-}"? 0

Kodzaev 3029 / 1915 / 1649 Регистрация: 30.04.2011 Сообщений: 3,060
	04.05.2014, 19:57	4
	Сообщение от Матрена что такое "{$I-}"? Директива, отключающая контроль ввода-вывода. Сначала назначаем файловым переменным f и g имена внешних файлов (строки 10 и 11). Теперь по идее нам нужно открыть эти файлы для чтения с помощью процедуры Reset. Но что если файлов с такими именами не существует? Без директивы {$I-} программа завершилась бы аварийно. А нам это ни к чему. Поэтому ставим директиву {$I-} (т.е. отключаем контроль) до открытия файлов. Теперь "открываем" наши файлы (строки 13 и 14), а затем включаем контроль {$I+}. После этого стандартная функция IOResult возвращает 0, если файлы были открыты успешно (т.е. файлы действительно существуют). 0

@Уля1004 0 / 0 / 0 Регистрация: 04.06.2014 Сообщений: 4
	04.06.2014, 18:30	5
	Переделайте,пожалуйста,под модули ее( 0

Опции темы