Определить, каких букв в тексте больше - заглавных или строчных

@KOS_GG1 · Регистрация: 25.05.2014

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

Дан текст – непустая последовательность не длиннее ста символов. Преобразованный текст вывести на экран.

В ТЕКСТЕ ЗАГЛАВНЫХ БУКВ БОЛЬШЕ ЧЕМ СТРОЧНЫХ.напишите пожалуйста,как это сделать

@Казанский · 25.05.2014, 22:13

KOS_GG1, допустим

Visual Basic

1
2
3

Sub Main()
MsgBox UCase(InputBox("Введите текст", , "Дан текст – непустая последовательность не длиннее ста символов."))
End Sub

Все буквы будут заглавными, строчных будет 0. Условие выполнено.

@KOS_GG1 · 25.05.2014, 22:57 **[ТС]**

Казанский, спасибо конечно,ну а как создать программу,считающую каких букв больше:заглавных или строчных

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

@Казанский · 25.05.2014, 23:30

Сообщение от KOS_GG1

как создать программу,считающую каких букв больше:заглавных или строчных

Visual Basic

Sub Main()
Dim s$, d$, i&, zagl&, stro&, drug&
s = InputBox("Введите текст", , "Дан текст – непустая последовательность не длиннее СТА символов.")
For i = 1 To Len(s)
  d = Mid$(s, i, 1)
  If d Like "[A-ZА-ЯЁ]" Then
    zagl = zagl + 1
  ElseIf d Like "[a-zа-яё]" Then
    stro = stro + 1
  Else
    drug = drug + 1
  End If
Next
MsgBox "Заглавных " & zagl & ", строчных " & stro & ", других символов " & drug
End Sub

@~~Антихакер32~~ · 26.05.2014, 00:01

Visual Basic

For i = 1 To Len(s)
  d = Mid$(s, i, 1)
  If d Like "[A-ZА-ЯЁ]" Then
     z=z +1 'Подсчёт заглавных , а в ответе так ... длина всего текста - z
  End If

Добавлено через 1 минуту

Visual Basic

1	For i = 1 To Len(s):d = Mid$(s, i, 1):z=z +abs(d Like "[A-ZА-ЯЁ]"):next

Добавлено через 1 минуту
прощще надо всё делать, и не перегружать бедных студентов
избыточной информацией

@KOS_GG1 · 26.05.2014, 01:18 **[ТС]**

спасибо хорошие люди!

Определить, каких букв в тексте больше - заглавных или строчных

Решение

Решение

@KOS_GG1 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 4
		1
	Определить, каких букв в тексте больше - заглавных или строчных 25.05.2014, 21:41. Показов 1819. Ответов 5 Метки нет (Все метки) Дан текст – непустая последовательность не длиннее ста символов. Преобразованный текст вывести на экран. В ТЕКСТЕ ЗАГЛАВНЫХ БУКВ БОЛЬШЕ ЧЕМ СТРОЧНЫХ.напишите пожалуйста,как это сделать 0

@KOS_GG1 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 4
	25.05.2014, 22:57 [ТС]	3
	Казанский, спасибо конечно,ну а как создать программу,считающую каких букв больше:заглавных или строчных просто мне вообще хочется знать,как сделать условие,чтоб заглавных было больше маленьких 0

@KOS_GG1 0 / 0 / 0 Регистрация: 25.05.2014 Сообщений: 4
	26.05.2014, 01:18 [ТС]	6
	спасибо хорошие люди! 0