Написать программу, которая преобразует существующий на диске текстовый файл

@Туська · Регистрация: 25.01.2010

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

Написать программу, которая преобразует существующий на диске текстовый файл следующим образом: определяет количество строк в файле и записывает это число в конец файла.

@Puporev · 01.07.2011, 11:45

Pascal

uses crt;
var f:text;
    nf:string;
    s:string;
    n:integer;
begin
clrscr;
write('Имя файла для чтения: ');
readln(nf);
nf:=nf+'.txt';
assign(f,nf);
{$I-} reset(f);  {$I+}
if IOResult <> 0 then
 begin
  writeLn('Файл ',nf,' не найден!');
  writeLn('Работа программы завершена. Нажмите ENTER');
  readln;
  exit;
 end;
n:=0;
while not eof(f) do
 begin
  readln(f,s);
  n:=n+1;
 end;
append(f);
writeln(f);
write(f,n);
close(f);
write('Файл ',nf,' переписан');
readln
end.

@Туська 0 / 0 / 0 Регистрация: 25.01.2010 Сообщений: 18
		1
	Написать программу, которая преобразует существующий на диске текстовый файл 30.06.2011, 18:48. Показов 1223. Ответов 1 Метки нет (Все метки) Написать программу, которая преобразует существующий на диске текстовый файл следующим образом: определяет количество строк в файле и записывает это число в конец файла. 0

	01.07.2011, 11:45

Написать программу, которая преобразует существующий на диске текстовый файл

Решение