Решаем задачи Абрамян на Паскале. Param51

Param51. Описать процедуру AddLineNumbers( $S$ , $N$ , $K$ , $L$ ), добавляющую в начало каждой строки существующего текстового файла с именем $S$ ее порядковый номер: первая строка получает номер $N$ , вторая — $N+1$ и т. д. Номер отображается в $K$ позициях, выравнивается по правому краю и отделяется от последующего текста $L$ пробелами $(K>0, L>0)$ . Если строка файла является пустой, то она также нумеруется, но пробелы после номера не добавляются. Применить эту процедуру к данному файлу, используя указанные значения $N$ , $K$ и $L$ .
Решение:

program Param51;

type
 FileName=String;

var N,K,L:integer;
S:FileName;

Procedure AddLineNumbers(S:FileName;N,K,L:integer);
var
 F,F_temp: Text;
 i:integer;
 TempS,Line:String;

begin

 Assign(F,S);
 Reset(F);

 Assign(F_temp,'~'+S);
 ReWrite(F_temp);

 while (not eof(F)) do
  begin
   TempS:='';
   str(N,TempS);
   for i:=length(TempS) to K-1 do TempS:=' '+TempS;
   Readln(F,Line);
   if length(Line)>0 then for i:=1 to L do TempS:=TempS+' ';
   TempS:=TempS+Line;
   Writeln(F_temp,TempS);
   inc(N);
  end;
 Close(F);
 Close(F_temp);
 Erase(F);
 Rename(F_temp,S);
end;

begin
 Write('S: ');
 Readln(S);
 Write('N: ');
 Readln(N);
 Write('K: ');
 Readln(K);
 Write('L: ');
 Readln(L);
 AddLineNumbers(S,N,K,L);
end.

program Param51;

type

FileName=String;

var N,K,L:integer;

S:FileName;

Procedure AddLineNumbers(S:FileName;N,K,L:integer);

var

F,F_temp: Text;

i:integer;

TempS,Line:String;

begin

Assign(F,S);

Reset(F);

Assign(F_temp,'~'+S);

ReWrite(F_temp);

while (not eof(F)) do

begin

TempS:='';

str(N,TempS);

for i:=length(TempS) to K-1 do TempS:=' '+TempS;

Readln(F,Line);

if length(Line)>0 then for i:=1 to L do TempS:=TempS+' ';

TempS:=TempS+Line;

Writeln(F_temp,TempS);

inc(N);

end;

Close(F);

Close(F_temp);

Erase(F);

Rename(F_temp,S);

end;

begin

Write('S: ');

Readln(S);

Write('N: ');

Readln(N);

Write('K: ');

Readln(K);

Write('L: ');

Readln(L);

AddLineNumbers(S,N,K,L);

end.

Другие задачи из раздела Param можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Param51

Комментарии:

Добавить комментарий Отменить ответ