Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить

@CheburashkaRR · Регистрация: 17.03.2013

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

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить.

@Jener · 31.03.2013, 06:16

Pascal

program t3103;
uses
  crt;
var
  F, H : text;
  line, nam : string;
  i : byte;
 
begin
  clrscr;
  write('Имя файла : ');
  readln(nam);
  assign(F,nam);
  reset(F);
  assign(H,'OutputFile.txt');
  rewrite(H);
  while not eof(F) do
   begin
    readln(F,line);
    line := line + ' ';
    for i := length(line) downto length(line) div 2 + 1 do
      line[i+1] := line[i];
   line[i] := ' ';
   line := ' '+line;
    writeln(H,line);
   end;
  close(F);
  close(H);
  readln;
end.

@CheburashkaRR · 31.03.2013, 17:13 **[ТС]**

спасибо за помощь))

@CheburashkaRR 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 28
		1
	Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить 30.03.2013, 18:37. Показов 1952. Ответов 2 Метки нет (Все метки) Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить. 0

@CheburashkaRR 1 / 1 / 1 Регистрация: 17.03.2013 Сообщений: 28
	31.03.2013, 17:13 [ТС]	3
	спасибо за помощь)) 0

Опции темы

Задан текстовый файл F. Переписать компоненты файла F в файл H, вставить в начале и середине строк символ пробела. Порядок компонентов сохранить

Решение