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

String26. Дано целое число $$N (> 0)$$ и строка $$S$$. Преобразовать строку $$S$$ в строку длины $$N$$ следующим образом: если длина строки $$S$$ больше $$N$$, то отбросить первые символы, если длина строки $$S$$ меньше $$N$$, то в ее начало добавить символы «.» (точка).

Решение:

program String26;
var
 N,i:integer;
 S:string;

begin
 Write('N:');
 Readln(N);
 Write('S:');
 Readln(S);

 if length(S)>N then  delete(S,1,length(S)-N)
 else if length(S)<N then  for i:=length(S) to N-1 do s:='.'+s;

 writeln(S);
end.

program String26;

var

N,i:integer;

S:string;

begin

Write('N:');

Readln(N);

Write('S:');

Readln(S);

if length(S)>N then delete(S,1,length(S)-N)

else if length(S)<N then for i:=length(S) to N-1 do s:='.'+s;

writeln(S);

end.

Решение от Newton:

program String26;

const
   Filler = '.';

var
   Line  : String;
   Limit : byte;
   
begin 
   writeln('Enter a line: ');
   readln(Line);
   write('Enter the limit: ');
   readln(Limit);
   if Length(Line) > Limit then
      delete(Line, 1, Length(Line) - Limit)
   else
      while Length(Line) < Limit do
         insert(Filler, Line, 1);
   writeln(Line);
end.

program String26;

const

Filler = '.';

var

Line : String;

Limit : byte;

begin

writeln('Enter a line: ');

readln(Line);

write('Enter the limit: ');

readln(Limit);

if Length(Line) > Limit then

delete(Line, 1, Length(Line) - Limit)

else

while Length(Line) < Limit do

insert(Filler, Line, 1);

writeln(Line);

end.

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

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

Вариация на ту же тему:

program String26;

const
   Filler = '.';

var
   Line  : String;
   Limit : byte;
   
begin 
   writeln('Enter a line: ');
   readln(Line);
   write('Enter the limit: ');
   readln(Limit);
   if Length(Line) > Limit then
      delete(Line, 1, Length(Line) - Limit)
   else
      while Length(Line) < Limit do
         insert(Filler, Line, 1);
   writeln(Line);
end.

program String26;

const

Filler = '.';

var

Line : String;

Limit : byte;

begin

writeln('Enter a line: ');

readln(Line);

write('Enter the limit: ');

readln(Limit);

if Length(Line) > Limit then

delete(Line, 1, Length(Line) - Limit)

else

while Length(Line) < Limit do

insert(Filler, Line, 1);

writeln(Line);

end.

Ответить

Anton

07.12.2016 в 08:19

В своё решение добавил else. И ваше решение поместил в шапку.

Ответить

begin
  var s := 'Hello PascalABC.NET!';
  var n := 25;
  
  if s.Length > n then s :=  s.Right(n)
  else if s.Length < n then s := (n-s.Length)*'.'+s;
  
  s.Println; //.....Hello PascalABC.NET!
end.

begin

var s := 'Hello PascalABC.NET!';

var n := 25;

if s.Length > n then s := s.Right(n)

else if s.Length < n then s := (n-s.Length)*'.'+s;

s.Println; //.....Hello PascalABC.NET!

end.

У вас ошибка точки добавляются в конец, а нужно в начало, s := ‘.’ + s

Ответить

Anton

26.06.2018 в 08:33

Спасибо, поправил.
Было:

else if length(S)<N then for i:=length(S) to N-1 do s:=s+'.';

1

else if length(S)<N then for i:=length(S) to N-1 do s:=s+'.';

Стало:

else if length(S)<N then for i:=length(S) to N-1 do s:='.'+s;

1

else if length(S)<N then for i:=length(S) to N-1 do s:='.'+s;

Ответить

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

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

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

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