Дан файл. Переписать его в новый файл, поставив в начале каждой строки ее номер в виде комментария

@fresk · Регистрация: 31.05.2012

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

Задание 3.
Напишите программу, которая считывает файл (текст любой вашей программы из этой лаб. работы на языке Паскаль), затем создает новый текстовый файл на основе первого файла, в котором в начале каждой строки будет проставлен ее номер в виде комментариев.

@КонецСвета · 04.06.2012, 00:14

Pascal

uses crt;
var f,g:text;
    s:string;
    i: integer;
 
begin
assign(f,'D:\in.txt');
assign(g,'D:\out.txt');
reset(f); rewrite(g);
while not eof(f) do
      begin
      readln(f,s);
      inc(i);
      writeln(g,'{',i,'}',s);
      end;
close(f);
close(g);
end.

@fresk 1 / 1 / 0 Регистрация: 31.05.2012 Сообщений: 45
		1
	Дан файл. Переписать его в новый файл, поставив в начале каждой строки ее номер в виде комментария 01.06.2012, 00:21. Показов 1531. Ответов 1 Метки нет (Все метки) Задание 3. Напишите программу, которая считывает файл (текст любой вашей программы из этой лаб. работы на языке Паскаль), затем создает новый текстовый файл на основе первого файла, в котором в начале каждой строки будет проставлен ее номер в виде комментариев. 0

	04.06.2012, 00:14

Дан файл. Переписать его в новый файл, поставив в начале каждой строки ее номер в виде комментария

Решение