программа для выбора цвета слова

@alf4 · Регистрация: 08.12.2015

Студворк — интернет-сервис помощи студентам

прошу подсказать с задачей заочнику. Всё решение не прошу, хотя бы метод, какие там приёмы использовать - массивы или только циклы, или ещё что-то, и в общих чертах - как? Товарищ аутист, хочет освоить программирование, но не всё гладко...

Задача такая: составить программу, которая будет выводить в текстовую метку введённое слово определённым цветом и шрифтом, если оно содержит только русские символы, другим цветом - если только латинские, и третьим - если те и другие.

Мы голову ломали, получается только первую букву во вводимом слове анализировать и по ней выдавать цвет шрифта. А как сделать, чтобы всё слово проверялось - непонятно.

@Казанский · 08.12.2015, 01:37

alf4, как-то так

Visual Basic
1
n= -(lcase$(slovo) like "*[а-яё]*")-2*(lcase$(slovo) like "*[a-z]*")

Значения n:
1 только русские
2 только латинские
3 и русские, и латинские
0 ни тех, ни других.
Цвета можно заранее загнать в массив и получать как arr(n).

@alf4 · 08.12.2015, 21:55 **[ТС]**

Спасибо большое! Сегодня попробуем поработать с Вашей подсказкой.

Добавлено через 11 часов 1 минуту
Казанский, что-то я туплю, Вы можете подсказать, что делает вот эта часть:

Сообщение от Казанский

-2*

в выражении:

n= -(lcase$(slovo) like "*[а-яё]*")-2*(lcase$(slovo) like "*[a-z]*")

То есть, если я правильно понял, значение n формируется вот этим выражением для всех случаев? Но как? Введённое слово преобразуется lcase$, потом сравнивается с "*[a-z]*" - а дальше? Что происходит с результатами сравнения?

Подскажите, пожалуйста.

@Казанский · 08.12.2015, 23:36

alf4, оператор Like возвращает логическое значение True или False. При использовании в арифметическом выражении True имеет значение -1, False это 0. Таким образом, приведенное выражение формирует число из двух битов, где младший бит имеет вес 1, а старший бит имеет вес 2. Число из двух битов может принимать значение от 0 до 3.
Можно не заморачиваться с арифметикой, а использовать логические значения, например

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
  rus = LCase$(slovo) Like "*[а-яё]*"
  If LCase$(slovo) Like "*[a-z]*" Then
    If rus Then
     'и рус, и лат
    Else
     'только лат
    End If
  ElseIf rus Then
    'только рус
  Else
    'ни тех, ни других
  End If

Добавлено через 4 минуты
Однако, прием с формированием числа из битов позволяет писать компактный код. Посмотрите например
Найти сумму двух наибольших из трех чисел
и попробуйте сделать то же самое на If.

@alf4 · 09.12.2015, 01:12 **[ТС]**

Казанский, в таком виде понятнее, спасибо!

Новые блоги и статьи Все статьи Все блоги /
Валидация и контроль данных табличной части документа перед записью Maks 22.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа, разработанного в КА2. Задача: контроль и валидация данных табличной части документа перед записью с учетом регламента компании. . .	Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещён в конфигурации КА2. Задача: разработка отчёта по затраченным материалам за определённый период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .
Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .	Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .

@alf4 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 7

	программа для выбора цвета слова 08.12.2015, 01:05. Показов 804. Ответов 4 Метки нет (Все метки) прошу подсказать с задачей заочнику. Всё решение не прошу, хотя бы метод, какие там приёмы использовать - массивы или только циклы, или ещё что-то, и в общих чертах - как? Товарищ аутист, хочет освоить программирование, но не всё гладко... Задача такая: составить программу, которая будет выводить в текстовую метку введённое слово определённым цветом и шрифтом, если оно содержит только русские символы, другим цветом - если только латинские, и третьим - если те и другие. Мы голову ломали, получается только первую букву во вводимом слове анализировать и по ней выдавать цвет шрифта. А как сделать, чтобы всё слово проверялось - непонятно. 0

@alf4 0 / 0 / 0 Регистрация: 08.12.2015 Сообщений: 7
	09.12.2015, 01:12 [ТС]
	Казанский, в таком виде понятнее, спасибо! 0

Опции темы