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

Text36. Дан текстовый файл, содержащий текст, выровненный по правому краю. Выровнять текст по центру, удалив из каждой непустой строки половину начальных пробелов. В строках с нечетным количеством начальных пробелов перед центрированием удалять первый начальный пробел.

Решение:

program Text36;
var
  F_in,F_out: Text;
  Name,S: string;
  len,i:integer;
begin
 Write('File name in: ');
 Readln(Name);
 Assign(F_in,Name);
 Assign(F_out,'~'+Name);

 Reset(F_in);
 Rewrite(F_out);
 While not eof(F_in) do
  begin
   Readln(F_in,S);
   i:=1;
   While (i<=length(S)) and (s[i]=' ') do inc(i);
   i:=i-1;
   if i>0 then
    begin
     if odd(i) then
      begin
       delete(S,1,1);
       dec(i);
      end;
     len:=i div 2;
     delete(S,1,len);
    end;
   Writeln(F_out,S);
  end;
 Close(F_in);
 Close(F_out);
 Erase(F_in);
 Rename(F_out,Name);
end.

program Text36;

var

F_in,F_out: Text;

Name,S: string;

len,i:integer;

begin

Write('File name in: ');

Readln(Name);

Assign(F_in,Name);

Assign(F_out,'~'+Name);

Reset(F_in);

Rewrite(F_out);

While not eof(F_in) do

begin

Readln(F_in,S);

i:=1;

While (i<=length(S)) and (s[i]=' ') do inc(i);

i:=i-1;

if i>0 then

begin

if odd(i) then

begin

delete(S,1,1);

dec(i);

end;

len:=i div 2;

delete(S,1,len);

end;

Writeln(F_out,S);

end;

Close(F_in);

Close(F_out);

Erase(F_in);

Rename(F_out,Name);

end.

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

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

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

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