По теме из базы знаний
Найденные решения
СтрокаСимволов = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Символ = "Ы";
Для Ы = 1 По СтрЧислоВхождений(СтрокаСимволов, Символ) Цикл
Если Сред(СтрокаСимволов, СтрНайти(СтрокаСимволов, Символ, , , Ы), 1) = Символ Тогда
Сообщить(Символ);
КонецЕсли;
КонецЦикла;
Сообщить("Число вхождений: " + Ы);
(16)Спасибо,
Перебрать символы с конца, правильно я делаю?
А = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ";
СчетчикБукв = 0;
Для Индекс = 1 по СтрДлина(А) Цикл
ТекущаяБуква= Сред(А,СтрДлина-1,1);
Если Индекс%2 = 0 Тогда
Сообщить (ВРег(ТекущаяБуква));
иначе
Сообщить (НРег(ТекущаяБуква));
СчетчикБукв = СчетчикБукв + 1;
КонецЕсли;
КонецЦикла;
Перебрать символы с конца, правильно я делаю?
А = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ";
СчетчикБукв = 0;
Для Индекс = 1 по СтрДлина(А) Цикл
ТекущаяБуква= Сред(А,СтрДлина-1,1);
Если Индекс%2 = 0 Тогда
Сообщить (ВРег(ТекущаяБуква));
иначе
Сообщить (НРег(ТекущаяБуква));
СчетчикБукв = СчетчикБукв + 1;
КонецЕсли;
КонецЦикла;
Остальные ответы
Подписаться на ответы
Инфостарт бот
Сортировка:
Древо развёрнутое
Свернуть все
(1) примерно так:
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАП";
НоваяСтрокаЫ = "";
Если Лев(А, 1) = "Ы" Тогда
НоваяСтрокаЫ = "Ы";
ИначеЕсли Сред(А, 2, 1) = "Ы" Тогда
НоваяСтрокаЫ = ?(НоваяСтрокаЫ = "", НоваяСтрокаЫ , НоваяСтрокаЫ + Символы.ПС) + "Ы";
ИначеЕсли Сред(А, 3, 1) = "Ы" Тогда
НоваяСтрокаЫ = ?(НоваяСтрокаЫ = "", НоваяСтрокаЫ , НоваяСтрокаЫ + Символы.ПС) + "Ы";
и т.д.
КонецЕсли;
Сообщить(НоваяСтрокаЫ);
Показать
(5)
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАП";
Массив = Новый Массив;
Для итератор = 1 По СтрДлина(а) Цикл
ЭтотСимвол = Сред(А, Итератор, 1);
Если ЭтотСимвол = "Ы" Тогда
Массив.Добавить(ЭтотСимвол);
КонецЕсли;
КонецЦикла;
СтрокаРезультат = СтрСоединить(Массив, Символы.ПС);
Сообщить(СтрокаРезультат);
Показать
Язык 1С
да всем спасибо!
Мое решение:
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Б = "Ы";
Для Н=1 по СтрДлина(А) Цикл
Строка=Сред(А,Н,1);
Если Строка = Б Тогда
Сообщить("Найдена нужная буква: " +Б);
Иначе
КонецЕсли;
КонецЦикла;
да всем спасибо!
Мое решение:
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Б = "Ы";
Для Н=1 по СтрДлина(А) Цикл
Строка=Сред(А,Н,1);
Если Строка = Б Тогда
Сообщить("Найдена нужная буква: " +Б);
Иначе
КонецЕсли;
КонецЦикла;
условия немного изменились
необходимо посчитать кол-во символов найденных по условию.
до этого выводил только найденный символ.
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Б = "Ы";
Для Н=1 по СтрДлина(А) Цикл
Строка=Сред(А,Н,1);
Если ,,,,,, Тогда
......
Сообщить("Найдена нужная буква: " +Б);
Иначе
КонецЕсли;
КонецЦикла;
Какую функцию необходимо написать для проверки?
спасибо!
необходимо посчитать кол-во символов найденных по условию.
до этого выводил только найденный символ.
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Б = "Ы";
Для Н=1 по СтрДлина(А) Цикл
Строка=Сред(А,Н,1);
Если ,,,,,, Тогда
......
Сообщить("Найдена нужная буква: " +Б);
Иначе
КонецЕсли;
КонецЦикла;
Какую функцию необходимо написать для проверки?
спасибо!
СтрокаСимволов = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ";
Символ = "Ы";
Для Ы = 1 По СтрЧислоВхождений(СтрокаСимволов, Символ) Цикл
Если Сред(СтрокаСимволов, СтрНайти(СтрокаСимволов, Символ, , , Ы), 1) = Символ Тогда
Сообщить(Символ);
КонецЕсли;
КонецЦикла;
Сообщить("Число вхождений: " + Ы);
(11)
Спасибо!
СтрокаСимволов = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ"; Символ = "Ы"; Для Ы = 1 По СтрЧислоВхождений(СтрокаСимволов, Символ) Цикл Если Сред(СтрокаСимволов, СтрНайти(СтрокаСимволов, Символ, , , Ы), 1) = Символ Тогда Сообщить(Символ); КонецЕсли; КонецЦикла; Сообщить("Число вхождений: " + Ы);
Спасибо!
Всем привет!
Работа со строками.
Нужно вывести :
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ"
Нечетные- ВРег, Четные- НРег. с новой строчки.
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ"
СчетчикБукв = 0;
Для НачальнаяПеременная = 1 по СтрДлина(А) Цикл
ТекущаяБуква=Сред(А,НачальнаяПеременная,1);
Если ..... Тогда....
нужно добавить 2 переменные Четные и нечетные?
заранее спасибо!
Работа со строками.
Нужно вывести :
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ"
Нечетные- ВРег, Четные- НРег. с новой строчки.
А = "АППРРОРДГШЫЕПРМОЛОЛЖДЫАПРВАОРЛДМИТЬТЫЫЕГГДЖЩЗХГШЩ"
СчетчикБукв = 0;
Для НачальнаяПеременная = 1 по СтрДлина(А) Цикл
ТекущаяБуква=Сред(А,НачальнаяПеременная,1);
Если ..... Тогда....
нужно добавить 2 переменные Четные и нечетные?
заранее спасибо!
(15)
Нечетные = "";
Четные = "";
Для к = 1 По СтрДлина(А) Цикл
ТекСимвол = Сред(А,к,1);
Если к%2 = 0 Тогда
Четные = Четные + ТекСимвол;
Иначе
Нечетные = Нечетные + ТекСимвол;
КонецЕсли;
КонецЦикла;
Нечетные = ВРег(Нечетные);
Четные = НРег(Четные);
Сообщить(Нечетные);
Сообщить(Четные);
Показать
(16)Спасибо,
Перебрать символы с конца, правильно я делаю?
А = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ";
СчетчикБукв = 0;
Для Индекс = 1 по СтрДлина(А) Цикл
ТекущаяБуква= Сред(А,СтрДлина-1,1);
Если Индекс%2 = 0 Тогда
Сообщить (ВРег(ТекущаяБуква));
иначе
Сообщить (НРег(ТекущаяБуква));
СчетчикБукв = СчетчикБукв + 1;
КонецЕсли;
КонецЦикла;
Перебрать символы с конца, правильно я делаю?
А = "АБВГДЕЁЖЗИКЛМНОПРСТУФХЦЧШЩЬЪЭЮЯ";
СчетчикБукв = 0;
Для Индекс = 1 по СтрДлина(А) Цикл
ТекущаяБуква= Сред(А,СтрДлина-1,1);
Если Индекс%2 = 0 Тогда
Сообщить (ВРег(ТекущаяБуква));
иначе
Сообщить (НРег(ТекущаяБуква));
СчетчикБукв = СчетчикБукв + 1;
КонецЕсли;
КонецЦикла;
(20) это (СтрДлина) вообще не инициализированная переменная. Будет ошибка.
Вот решение для перебора символов с конца:
Вот решение для перебора символов с конца:
Для к = -СтрДлина(А) По -1 Цикл
ТекСимвол = Сред(А,-к,1);
Если к%2 = 0 Тогда
Сообщить(НРег(ТекСимвол));
Иначе
Сообщить(ВРег(ТекСимвол));
КонецЕсли;
КонецЦикла;
Показать
Для получения уведомлений об ответах подключите телеграм бот:
Инфостарт бот