Дано целое число K и текстовый файл

[dexter2145]

помогите написать программу ( код) в паскале. заранее спасибо

Дано целое число K и текстовый файл. Удалить из файла строку с номером K. Если строки с таким номером нет, то оставить файл без изменений.

Const
   k=5;
Var
   f,g:text;
   S: string;
   i:integer;


BEGIN
   assign(f,'c:\ROMA.txt');
   reset(f);
   assign(g,'c:\ROMA2.txt');
   rewrite(g);
   i:=0;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
   rewrite(f);
   reset(g);
   while not eof(g) do
                      begin
                         readln(g,s);
                         writeln(f,s);
                      end;
  close(f);
  close(g);
  erase(g);
END.

[ROMA2PVT]

ну а выложил то зачем.напиши тему закрыть можно да и всё.

[DoDge_VipeR]

Только удалит не к-тую строку а к+1
i:=1;
должно быть

[dexter2145]

сейчас посмотрим))

создал исходный файл. ошибка ввода вывода.. где- то ошибка

Const
   k=5;
Var
   f,g:text;
   S: string;
   i:integer;


BEGIN

   assign(f,'С:\PRG\PABC');
   reset(f);
   assign(g,'С:\PRG\PABC\Repository');
   rewrite(g);
   i:=0;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
   rewrite(f);
   reset(g);
   while not eof(g) do
                      begin
                         readln(g,s);
                         writeln(f,s);
                      end;
  close(f);
  erase(g);
END.

[ROMA2PVT]

DoDge_VipeR там просто у него в том задании строки с нуля идут.Я думал он догадается исправить.

Const
   k=3;
Var
   f,g:text;
   S: string;
   i:integer;


BEGIN
   assign(f,'c:\ROMA.txt');
   reset(f);
   assign(g,'c:\ROMA2.txt');
   rewrite(g);
   i:=1;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
                              if (i-1<K) or (k=0) then
                              begin
                                 WriteLn('Строки под номером ',k,' нет в файле!!!');
                                 end
                                 else writeln('Строка успешно удалена!!!');

   rewrite(f);
   reset(g);
   while not eof(g) do
   begin
   readln(g,s);
   writeln(f,s);
                      end;
  close(f);
  close(g);
  erase(g);
END.

ток ввод строки сделай сам.

[dexter2145]

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

Const
   k=3;
Var
   f,g:text;
   S: string;
   i:integer;


BEGIN
   assign(f,'c:\ROMA.txt');
   reset(f);
   assign(g,'c:\ROMA2.txt');
   rewrite(g);
   i:=1;
   while not EOF(f) do begin
                                   readln(f,s);
                                   if i<>k then writeln(g,s);
                                   inc(i);
                              end;
                              if (i-1<K) or (k=0) then
                              begin
                                 WriteLn('Строки под номером ',k,' нет в файле!!!');
                                 end
                                 else writeln('Строка успешно удалена!!!');

   rewrite(f);
   reset(g);
   while not eof(g) do
   begin
   readln(g,s);
   writeln(f,s);
                      end;
  close(f);
  close(g);
  erase(g);
END.

ток ввод строки сделай сам.

огромное ,огромное спасибо, ща проверю