Сформировать файл, содержащий строки из исходного, в начало каждой строки должен быть записан ее порядковый номер

@0rk · Регистрация: 13.05.2013

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

Создать текстовый файл, имя которого запрашивается с клавиатуры. Заполнить его набором строк, вводимых с клавиатуры. Окончание ввода – строка вида ‘#’.
Вывести все содержимое файла на экран. Сформировать файл result.txt, содержащий строки из исходного файла, в начало каждой строки должен быть записан ее порядковый номер, а в конец строки число, показывающее количество символов в строке.

magirus · 18.05.2013, 18:47

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

называйте темы информативно, согласно правил форума

Kodzaev · 18.05.2013, 19:04

Pascal

Uses crt;
Var
  f,g: Text;
  s: String;
  i: Integer;
BEGIN
Write('Введите имя файла без расширения: ');
Readln(s);
Assign(f,s+'.txt');
Rewrite(f);
s:='';
Writeln('Введите набор строк (окончание ввода - строка ''#''): ');
While s<>'#' do
begin
  Readln(s);
  Writeln(f,s);
end;
Clrscr;
Assign(g,'result.txt');
Rewrite(g);
Writeln('Содержимое файла:');
Reset(f);
i:=0;
While not Eof(f) do
begin
  i:=i+1;
  Readln(f,s);
  Writeln(s);
  s:=IntToStr(i)+s+IntToStr(Length(s));
  Writeln(g,s);
end;
Close(f);
Close(g);
Writeln('Готово. Программа завершена');
END.

@0rk 3 / 3 / 1 Регистрация: 13.05.2013 Сообщений: 19
		1
	Сформировать файл, содержащий строки из исходного, в начало каждой строки должен быть записан ее порядковый номер 18.05.2013, 18:44. Показов 3330. Ответов 2 Метки нет (Все метки) Создать текстовый файл, имя которого запрашивается с клавиатуры. Заполнить его набором строк, вводимых с клавиатуры. Окончание ввода – строка вида ‘#’. Вывести все содержимое файла на экран. Сформировать файл result.txt, содержащий строки из исходного файла, в начало каждой строки должен быть записан ее порядковый номер, а в конец строки число, показывающее количество символов в строке. 0

	18.05.2013, 19:04

Опции темы

Сформировать файл, содержащий строки из исходного, в начало каждой строки должен быть записан ее порядковый номер

Решение