Перевернуть строку 2

Delphi , Синтаксис , Текст и Строки

Автор: Profit Manson

function ReverseString(s: string): string;
var
  i: integer;
  c: char;
begin
  if s <> '' then
    for i := 1 to Length(s) div 2 do
    begin
      c := s[i];
      s[i] := s[Length(s) + 1 - i];
      s[Length(s) + 1 - i] := c;
    end;
  Result := s;
end;

Here's the translation of the content into Russian:

Неплохая задача по программированию на Delphi!

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

Вот предоставленный код:

function ReverseString(s: string): string;
var
  i: integer;
  c: char;
begin
  if s <> '' then
    for i := 1 to Length(s) div 2 do
    begin
      c := s[i];
      s[i] := s[Length(s) + 1 - i];
      s[Length(s) + 1 - i] := c;
    end;
  Result := s;
end;

Давайте разберемся:

1. Функция принимает параметр s типа string.
2. Она проверяет, не является ли входная строка пустой (if s <> '' then). Если это так, функция ничего не делает и возвращает пустую строку.
3. В противном случае она использует цикл for для перебора от 1 до половины длины входной строки (используя Length(s) div 2).
4. Внутри цикла она присваивает символ на индексе i локальной переменной c.
5. Затем она обменивает символы на индексах i и Length(s) + 1 - i. Это делается с помощью арифметики указателей (s[i] := s[Length(s) + 1 - i];) и временного присваивания.
6. Наконец, функция возвращает модифицированную входную строку (Result := s;).

Вот альтернативное решение, использующее встроенные функции для манипуляции строками Delphi:

function ReverseString(s: string): string;
begin
  Result := Copy(s, Length(s) downto 1);
end;

Эта реализация проще и более эффективна. Она использует функцию Copy для извлечения подстроки из входной строки, начиная с конца (Length(s)), и идущей назад до начала (1). Полученная обратная строка присваивается переменной Result.

Надеюсь это поможет!

В статье описывается алгоритм на языке Паскаль, который позволяет перевернуть строку в обратном порядке.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Текст и Строки ::