Даны два текстовых файла. Один из них надо вставить в другой, чередуя абзацы

@Дикутенз · Регистрация: 25.01.2013

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

Даны два текстовых файла. Один из них надо вставить в другой чередуя абзацы

@Joy · 10.11.2014, 14:28

абзац как отличать от начала строки?

@Дикутенз · 10.11.2014, 14:37 **[ТС]**

Точно не знаю. Возможно, абзацы отделены друг от друга пустой строкой

@Joy · 11.11.2014, 06:47

Pascal

var
  s:string;
  f1,f2,f3:text;
  ok,ef1,ef2:boolean;
begin
  assign(f1,'1.txt');
  reset(f1);
  assign(f2,'2.txt');
  reset(f2);
  assign(f3,'tmp.tmp');
  rewrite(f3);
  ok:=true;
  repeat
    if ok then begin
      if not ef1 then readln(f1,s) else s:='';end
   else begin if not ef2 then readln(f2,s) else s:='';end;
    if s='' then ok:=not ok;
    writeln(f3,s);
    ef1:=eof(f1);
    ef2:=eof(f2);
  until (ef1) and (ef2);
  close(f1);
  close(f2);
  close(f3);
{  erase(f2);  rename(f3,'2.txt');}{выход в tmp.tmp если надо чтобы в 2.txt, уберите коментарии}
  end.

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
		1
	Даны два текстовых файла. Один из них надо вставить в другой, чередуя абзацы 10.11.2014, 11:54. Показов 1278. Ответов 3 Метки нет (Все метки) Даны два текстовых файла. Один из них надо вставить в другой чередуя абзацы 0

@Joy 2386 / 1298 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	10.11.2014, 14:28	2
	абзац как отличать от начала строки? 0

@Дикутенз 92 / 92 / 99 Регистрация: 25.01.2013 Сообщений: 326
	10.11.2014, 14:37 [ТС]	3
	Точно не знаю. Возможно, абзацы отделены друг от друга пустой строкой 0

	11.11.2014, 06:47