Вставить в текстовый файл пустую строку после каждой строки

@DarkSoulina · Регистрация: 26.05.2013

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

Помогите, пожалуйста, с написанием программок:
Каждая строка файла состоит из слов, разделенных произвольным числом пробелов. Перед первым словом и после последнего слова пробелов нет.

2. Вставить в текстовый файл:
1) пустую строку после каждой строки;

остальные задания

1. Удалить из текстового файла:
1) все пустые строки;
2) строки из незначащих символов (их коды <= кода пробела);
3) строки, содержащие цифры;
4) строки, длина которых меньше заданного k;
5) строки с четными номерами;
6) строки с номерами, кратными заданному числу k;
7) последние k строк;
8) строки, заключенные между двумя пустыми строками;
9) одинаковые подряд идущие строки, оставив одну из них.

2) пустую строку после строк с длиной более заданного k;
3) пустую строку после строк с номерами, кратными заданному числу k;
4) заданную строку S после каждой строки, содержащей S в качестве подстроки;
5) заданную строку S перед строкой с заданным номером k;
6) заданную строку S перед каждой строкой, содержащей S в качестве первого слова (за которым идет пробел).
7) после каждой строки строку с таким же номером из второго текстового файла (если второй файл окажется короче, больше ничего не вставлять);
8) в конец каждой строки два символа && и строку с таким же номером из второго текстового файла (если второй файл окажется короче, больше ничего не вставлять).

Написать нужно довольно примитивно(преподаватель очень придирчив). Гарантирую, что буду задавать вопросы.
Спасибо, заранее.

@Striker · 27.05.2013, 08:41

Сообщение от DarkSoulina

2. Вставить в текстовый файл:
1) пустую строку после каждой строки;

Pascal

const
  nmax = 10000000;
 
var
  f: text;
  i, j: integer;
  s: array[1..nmax] of string;
 
begin
  assign(f, 'name.txt');
  reset(f);
  i := 1;
  while not eof(f) do
  begin
    readln(f, s[i]);
    i += 2;
  end;
  close(f);
  rewrite(f);
  for j := 1 to i do
  begin
    writeln(f, s[j]);
  end;
  close(f);
end.

@КонецСвета · 27.05.2013, 11:25

Комментарий модератора

DarkSoulina, остальные задания вынесите в отдельные темы -
для каждого задания отдельная тема, таковы правила форума.

Эта тема закрыта.

@DarkSoulina 0 / 0 / 0 Регистрация: 26.05.2013 Сообщений: 3
		1
	Вставить в текстовый файл пустую строку после каждой строки 26.05.2013, 23:24. Показов 2848. Ответов 2 Метки нет (Все метки) Помогите, пожалуйста, с написанием программок: Каждая строка файла состоит из слов, разделенных произвольным числом пробелов. Перед первым словом и после последнего слова пробелов нет. 2. Вставить в текстовый файл: 1) пустую строку после каждой строки; остальные задания 1. Удалить из текстового файла: 1) все пустые строки; 2) строки из незначащих символов (их коды <= кода пробела); 3) строки, содержащие цифры; 4) строки, длина которых меньше заданного k; 5) строки с четными номерами; 6) строки с номерами, кратными заданному числу k; 7) последние k строк; 8) строки, заключенные между двумя пустыми строками; 9) одинаковые подряд идущие строки, оставив одну из них. 2) пустую строку после строк с длиной более заданного k; 3) пустую строку после строк с номерами, кратными заданному числу k; 4) заданную строку S после каждой строки, содержащей S в качестве подстроки; 5) заданную строку S перед строкой с заданным номером k; 6) заданную строку S перед каждой строкой, содержащей S в качестве первого слова (за которым идет пробел). 7) после каждой строки строку с таким же номером из второго текстового файла (если второй файл окажется короче, больше ничего не вставлять); 8) в конец каждой строки два символа && и строку с таким же номером из второго текстового файла (если второй файл окажется короче, больше ничего не вставлять). Написать нужно довольно примитивно(преподаватель очень придирчив). Гарантирую, что буду задавать вопросы. Спасибо, заранее. 0

	27.05.2013, 11:25

Вставить в текстовый файл пустую строку после каждой строки

Решение