Технический форум - Создайте програму с файлами

Цитата:

Сообщение от icewind (Сообщение 730913)

Програма должна проверять в входном файле количество рядов и удалять по запросу пользователя (по номеру ряда) сам ряд.

Легко:

Код:

Var

 f,f1:text;

 S:String;

 i,N,Num:Word;

Begin

 Assign(f,'text.txt');

 Reset(f);

 N:=0;

 Repeat

  Readln(f,S);

  Inc(N);

 Until EoF(f);

 Write('File contains ',N,' lines. Which one should be deleted? ');

 Readln(Num);

 Reset(f);

 Assign(f1,'xxx.txt');

 Rewrite(f1);

 For i:=1 to Num-1 do

  begin

   Readln(f,S);

   Writeln(f1,S);

  end;

 Readln(f,S);

 For i:=Num+1 to N do

  begin

   Readln(f,S);

   Writeln(f1,S);

  end;

 Close(f);

 Close(f1);

 Reset(f1);

 Rewrite(f);

 For i:=1 to N-1 do

  begin

   Readln(f1,S);

   Writeln(f,S);

  end;

 Close(f);

 Close(f1);

 Erase(f1);

End.