Здравствуйте уважаемые гуру! Я совсем новичок в 1с программировании , подскажите где я накосячил а то результат совсем не тот что нужен , последней буквы вообще нет а первых целых три, тут то что я написал и задание,не хочется приходить на учёбу не подготовленному ,хочется разобраться.

Процедура ПриНачалеРаботыСистемы()
    Строка = "";
    ВвестиЗначение(Строка,"Введите слово");
        
    
    Счётчик = СтрДлина(Строка);
    Символ = "";
    ЧислоСимволов = СтрДлина  (Строка);
    Пока Счётчик >= 0 Цикл
        Счётчик = Счётчик - 1;
        Символ = Сред(Строка,Счётчик,1);
        Сообщить(Символ);
    КонецЦикла;
    Сообщить("Проверены все " + ЧислоСимволов + " символов !");
КонецПроцедуры




// Необходмо вывести введенную пользователем строку наоборот, например:
// - если введено слово "Привет!", вывести "!тевирП";
// - если "абвгде", вывести "едгвба".
// При выполнении задания использовать оператор ВвестиЗначение и СтрДлина
// Переменная Счетчик изначально должна быть ровна длине строки
// Счетчик в цикле должен уменьшаться на 1, пока не станет равным 0
// Склеивание символов будет происходить следующей командой: "Слово = Слово + Символ;"
// Переменная слово изначально имеет значение "" (пустое значение).

Пока Счётчик > 0 Цикл
        Символ = Сред(Строка,Счётчик,1);
         Счётчик = Счётчик - 1;
       Сообщить(Символ);
    КонецЦикла;

Большое спасибо !!!!

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

2. Учебные и тестовые примеры полезно решать самостоятельно.

3. Не делай сразу вывод, а собери переменную. "Всё должно быть функцией".

4. Может, не стоит в 1С? https://javarush.ru/quests/QUEST_HARVARD_CS50

Спасибо за советы , а на счёт стоит или нет в 1С рано ещё говорить ,совсем мало времени я занимаюсь, да и на платных курсах я , надо уж добить а там посмотрим что из меня получится

ну или так


НоваяСтрока ="";
Для Счётчик= -СтрДлина(Строка) По -1 Цикл
    НоваяСтрока = НоваяСтрока + Сред(Строка,-Счётчик,1);
КонецЦикла;


Спасибо!

то ли дело на питоне s[::-1] и все

(3) кривые курсы какие-то
пишут "Основы программирования» на русском языке!"
а где код на русском языке? 1С почему нет?

Ещё рекурсией можно )

(7) всего одна строка )))

(7)В питоне все объекты. Даже строки. У этого тоже есть своя цена. Я как то раз переписал раскраску кода с обработки ИТС на питон. Почти дословно. Питон кушал проц как не в себя На текст 5-7к символов уходило до нескольких секунд 100% загрузки проца. В 1с- миллисекунды с минимальной задржкой

(11) в том и дело, что переписал дословно, а вероятно надо было с учетом средств нового языка

тем паче для раскраски кода есть гора готовых быстрых решений, только определение синтаксиса допиши для них

пример:
для каждого значение из массив1: если значение не в списке значений массив2, то добавить значение в массив2
если написать такое в лоб в 1С - это вобщем-то нормально, потому что по-другому - НИКАК
если написать такое в лоб на питоне, а массивы по 10к вхождений - он загрузит проц на несколько секунд
а если сделать array2 = list(set(array2).union(set(array1)) - отработает за 10 мс

(12)Я не говорю, что это не решаемая задача. В конце концов, надо просто использовать регулярные выражения. Я говорю что красота в (7) не бесплатная.

СтрокаПереворота=ПолучитьБуферДвоичныхДанныхИзСтроки(Данные);
СтрокаПереворота.Перевернуть();
ДанныеНовые=ПолучитьСтрокуИзБуфераДвоичныхДанных(СтрокаПереворота);

(14) Мдя... На голом ASCII сработает. На уникоде? А эмодзи всякие?

(15)особенно приятно utf8 изменится.
unicode то только порядок байтов поменяет.

Опять я к вам за помощью , хоть и посоветовали самому всё решать но тем не менее ,видимо подзамылился.
Я посчитал слова в строке а как посчитать пробелы?

Процедура ПриНачалеРаботыСистемы()
    Строка = "В этой  $строке&  не  ровно   _6_  слов... ";
    ПодсчётСлов(Строка);
    ПодсчётПробелов(Строка);
КонецПроцедуры

Процедура ПодсчётСлов(Строка)
    ДлинаСтроки = СтрДлина(Строка);
    ТекущаяПозиция = 1;
    СчётчикСлов = 0;
    Пока ТекущаяПозиция <= ДлинаСтроки Цикл
        ТекущийСимвол = Сред(Строка,ТекущаяПозиция,1);
        Если ТекущийСимвол = " " Тогда
            Если ТекущаяПозиция > 1 Тогда
                СчётчикСлов = СчётчикСлов + 1;
            КонецЕсли;
            
            Пока ТекущийСимвол = " " И ТекущаяПозиция <= ДлинаСтроки Цикл
                ТекущийСимвол = Сред(Строка,ТекущаяПозиция,1);
                ТекущаяПозиция = ТекущаяПозиция + 1;
            КонецЦикла;
        Иначе
            ТекущаяПозиция = ТекущаяПозиция + 1;
        КонецЕсли;
    КонецЦикла;
    
    Если ТекущийСимвол <> " " Тогда
        СчётчикСлов = СчётчикСлов + 1;
    КонецЕсли;
    
    
    Сообщить("В этой строке " + СчётчикСлов + " слов");
    
КонецПроцедуры

Если бы ПодсчётСлов написал ты сам, с подсчётом пробелов у тебя не возникло бы никаких вопросов

ПодсчётСлов я написал под руководством преподавателя а тут остался один на один с кодом , то есть просто принципиально никто не поможет