Дана строка S и число N. Преобразовать строку S в строку длины N

@Nikron · Регистрация: 14.03.2010

Author24 — интернет-сервис помощи студентам

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

Добавлено через 22 часа 22 минуты
upppp

29.10.2012, 14:22

Как то так.

Delphi

var
  I  : Integer;
begin
  if Length(S) < N then
    for I := 1 to N - Length(S) do
      Inser(S, '.', 1)
  else if Length(S) > N then
    Delete(S, 1, Length(S) - N);
end;

@volvo · 29.10.2012, 14:30

Ну чего "up"?

Delphi

procedure TForm1.Button1Click(Sender: TObject);
var
   s : string;
   n, i : Integer;
begin
   s := 'tester'; // Вот строка
   n := 12; // Вот новая длина
 
   if n > Length(s) then
      for i := 1 to n - Length(s) do s := '.' + s
   else
      Delete(s, 1, Length(s) - n);
 
   ShowMessage(s); // Проверяй...
end;

@Nikron 0 / 0 / 0 Регистрация: 14.03.2010 Сообщений: 9
		1
	Дана строка S и число N. Преобразовать строку S в строку длины N 29.10.2012, 13:59. Показов 2039. Ответов 2 Метки нет (Все метки) Дана строка S и число N. Преобразовать строку S в строку длины N следующим образом: если длина строки S больше N, то отбросить первые символы, если длина строки S меньше N, то в ее начало добавить символы ′.′ (точка). Добавлено через 22 часа 22 минуты upppp 0

	29.10.2012, 14:30

Дана строка S и число N. Преобразовать строку S в строку длины N

Решение