Перевернуть строку на разных языках программирования

Книга знаний

Перевернуть строку на разных языках программирования

Автор статьи: Волшебник | Редакторы:
Последняя редакция №10 от 09.03.21 | История
URL: http://kb.mista.ru/article.php?id=965

Java

str2 = str.reverse()

Python

str2 = str[::-1]

str2 = ''.join(reversed(str))

C#

StringBuilder str2 = new StringBuilder(str.Length);

for (int i = str.Length; i-- != 0; ) str2.Append(str[i]);

char[] arr = str.ToCharArray();

Array.Reverse(arr);

str2 = new String(arr);

JavaScript

str2 = str.split('').reverse().join('')

Pascal

for i:=length(str) downto 1 do str2 := str2 + str[i];

PHP

str2 = strrev(str)

1С:

Данные="Мама мыла раму";

   Буфер=ПолучитьБуферДвоичныхДанныхИзСтроки(Данные,КодировкаТекста.ANSI);

   Буфер=Буфер.Перевернуть();

   Данные=ПолучитьСтрокуИзБуфераДвоичныхДанных(Буфер,КодировкаТекста.ANSI);

или в одну строку:

стр2 = ПолучитьСтрокуИзБуфераДвоичныхДанных(ПолучитьБуферДвоичныхДанныхИзСтроки(стр,КодировкаТекста.ANSI).Перевернуть(),КодировкаТекста.ANSI)

дл = СтрДлина(стр); 

стр2 = "";

Для сч = 1 По дл Цикл

    стр2 = стр2 + Сред(стр, дл - сч + 1, 1);

КонецЦикла;

2)
стр = "Мама мыла раму";
стр2 = "";

тз = Новый ТаблицаЗначений;
тз.Колонки.Добавить("Буква", Новый ОписаниеТипов("Строка"));

Для н = 1 По СтрДлина(стр) Цикл
строкаТЗ = тз.Добавить();
строкаТЗ.Буква = Сред(стр, н, 1);
КонецЦикла;

Запрос = Новый Запрос;
Запрос.МенеджерВременныхТаблиц = Новый МенеджерВременныхТаблиц;
Запрос.Текст = "
|ВЫБРАТЬ Буква, Автономерзаписи() КАК НомерБуквы
|ПОМЕСТИТЬ Слово2
|ИЗ &ТЗ КАК Слово;
|
|ВЫБРАТЬ Буква
|ИЗ Слово2
|УПОРЯДОЧИТЬ ПО НомерБуквы УБЫВ";

Запрос.УстановитьПараметр("ТЗ", тз);
тз2 = Запрос.Выполнить().Выгрузить();

Для Каждого строкаТЗ ИЗ тз2 Цикл
стр2= стр2 + строкаТЗ.Буква;
КонецЦикла;

Сообщить(стр2);