Написать программу:
Берем текст, находим там первую букву "а" и меняем все следующие букви (кроме той первой "а") "а" на "А", потом находим большую "Б" и все следующие меняем на маленькие "б".
Или хоть алгоритм какой нибудь.
Спасибо

Да.

Согласен

Легко

(0) А где: "Слава Путину! Слава России!"?

Белоленточники в треде

Как два пальца - алгоритм:
Берем текст, находим там первую букву "а" и меняем все следующие букви (кроме той первой "а") "а" на "А", потом находим большую "Б" и все следующие меняем на маленькие "б".

Можно проще: "ПоменятьРегистри(а->А)"

Кто такой этот ТС?

а можно я не буду писать такую программу?

Книгу о вкусной и здоровой пище уже предлагали?

(0) Не благодари

Функция ПоменятьРегистриВ1с1С(т)
    с = Прав(т, 1);
    Если с = "" Тогда
        Возврат "";
    ИначеЕсли с = "а" и Найти(т, "а") <> СтрДлина(т) Тогда
        с = "А";
    КонецЕсли;
    Возврат ПоменятьРегистриВ1с1С(Сред(т, 1, СтрДлина(т)-1)) + с;
КонецФункции


можно и в одну строку кода уложить

(12) Любой код можно записать в виде одной строки

(12) Нет никакого смысла. Ну может быть кроме как для обфускации...

(13) в один оператор

в что, ВРег(твоя строка)уже отменили?

(16) а поможет?

(15) Можно пример?

(18) Лев(стр, Найти(стр, "а"))+Сред(стр, Найти(стр, "а")+1) - как-то так

(19) Вообще не понял

(20) конкатенация кусков строк. куски получаются из исходной строки каждый раз

(21) А где одна строка-то? :) Эта одна строка сама вопрос не решает

(22) кусок до первой а+стрзаменить остаток
ну да, остаётся б

кусок от (кусок до первой а+стрзаменить остаток) до первой б+стрзаменить остаток от (кусок до первой а+стрзаменить остаток)
изврат какой

"находим там первую букву "а" и меняем все следующие букви (кроме той первой "а") "а" на "А", потом находим большую "Б""

меняем все буквы на "а", а потом ищем букву "Б"? Откуда ей взяться-то, если все буквы уже "а" ?

1. Находим первую "а", меняем ее на случайно сгенеренный ГУИД
2. Заменяем все "а" на "А"
3. Заменяем ГУИД на "а"
4. Находим первую "Б", меняем ее на случайно сгенеренный ГУИД
5. Заменяем все "Б" на "б"
6. Заменяем ГУИД на "Б"

(26) чаще всего даже сработает

ваш кролик написал...

(26) http://rsdn.ru/article/mag/200301/GUIDEcology.xml

(29) забавно там версия текста выглядит

(16) ВРег(твоя строка) преобразует все символы не так ли?
А мне нужно было только те которые после "1-ой" буквы.
Спасибо (11)  я сделал по ево методу, большое спасибо!

(31) цикл по символам, определяем регистр текущего символа
2 строки "АБВ..." и "абв..." ищем в какой строке символ нашелся такой и регистр
и делаем или НРег() или ВРег()

ЗЫ и "сенька бери мяч" не надо

(27) Приведешь пример, когда не сработает?

Да не пригодится это в 1С... Пишите на С, что ли, без единицы вначале, который

(11) в цикле рекурсие какая жуть - что стрзаменить не катит?

(35) При вычислении факториала, всегда приводят способ с рекурсией, однако никого это не напрягает.

(36) ещё ума хватает сравнивать цикл с стрзаменить ....

(37) Данный способ приведен как пример. Никого не заставляю его использовать.

(38) а как заменить на СтрЗаменить?

(39) Процедура ПриОткрытии()
    
    
    хня("Б","456465аааББББрлорлоааааабббБББББкененааааа")
КонецПроцедуры


процедура хня(парам="а",стр="хня")
    ОчиститьСообщения();
    Сообщить(стр);
символ=?(парам=врег(парам),НРег(парам),врег(парам));    
темп=найти(стр,парам);
если темп>0 тогда
    стр=СтрЗаменить(стр,парам,символ);
    стр=лев(стр,темп-1)+парам+сред(стр,темп+1,999);
конецесли;    

сообщить(стр);
конецпроцедуры

(33) строка включает в себя подстроку 'случайно сгенеренный ГУИД'

(38) ты хоть запускал свою функцию??? не взлетела

(40) Молодец только не правильно. ха-ха. зато гонору то

456465аааББББрлорлоааааабббБББББкененааааа
456465аааБбббрлорлоаааааббббббббкененааааа

(43) и?? первый остался отсальные сменили регистр чо не так?

(44) в тексте задания маленькая а заменятся на большую, а не регистр меняется.

(45) это в примере а в тексте менять регистр буквы

(45) и да твоя функция тока для "а" - пиши ещё 65 дл остальных с учетом регистра.

(47) А, пусть ТС масштабирует

(40) нормально работает, эт я что-то на букве "а" зациклился...

(1) Нет.

(48) подскажите пожалуйста, как правильно ее запустить ((
:(

(48) масштабирует, да?

(40) Спасибо, разобрался

Читаешь строку посимвольно. Символы, прочитанные первый раз - переводишь в верхний регистр и добавляешь их к другой строке, изначально пустой. Эту вторую строку используешь для контроля - если находишь в ней текущий символ первой строки, переводишь его в нижний регистр.

(40) а как сделать так, чтобы меняло сразу несколько букв?
а-а, б-Б, В-в, Г-г.

а как сделать так, чтобы меняло сразу несколько букв?
а-а, б-Б, В-в, Г-г.

Процедура ПриОткрытии()
    
    
    хня("Б","456465аааББББрлорлоааааабббБББББкененааааа")
КонецПроцедуры

процедура хня(парам="а",стр="хня")
    ОчиститьСообщения();
    Сообщить(стр);
символ=?(парам=врег(парам),НРег(парам),врег(парам));    
темп=найти(стр,парам);
если темп>0 тогда
    стр=СтрЗаменить(стр,парам,символ);
    стр=лев(стр,темп-1)+парам+сред(стр,темп+1,999);
конецесли;    

сообщить(стр);
конецпроцедуры

(56) может так?

Процедура Сформировать()
    ВходящаяСтрока = "АаБбВвГг";
    ИсходящаяСтрока = "";
    
    КоличествоСимволов = СтрДлина(ВходящаяСтрока);
    Для НомерСимвола=1 По КоличествоСимволов Цикл // цикл по символам входящей строки
        ТекСимвол = Сред(ВходящаяСтрока, НомерСимвола, 1);
        Если Врег(ТекСимвол)=ТекСимвол Тогда // верхний регистр, переводим в нижний
            ТекСимвол = Нрег(ТекСимвол);
        ИначеЕсли Нрег(ТекСимвол)=ТекСимвол Тогда // нижний регистр, переводим в верхний
            ТекСимвол = Врег(ТекСимвол);
        Иначе // хз какое то, не трогаем, переносим так
            
        КонецЕсли;
        ИсходящаяСтрока = ИсходящаяСтрока + ТекСимвол; // прибавляем символ в исходящую строку
    КонецЦикла;
    
    Сообщить("Было: "+ВходящаяСтрока);
    Сообщить("Стало: "+ИсходящаяСтрока);

КонецПроцедуры

(57) и вам спасибо!

а что такое СчЦ ?