Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы)

@Salaga · Регистрация: 30.06.2014

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

Не могли бы вы помочь перевести эту программу в С##?

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
Public  Class Form1
Dim A,B As String 
Dim I,j,c As Integer
Private Sub Command1_Click()
    Dim S() As String, i As Integer, n As Integer
    S = Split(InputBox("Введите фразу.", "Ввод данных", "Столица нашей Родины - город Москва."))
    For i = 0 To UBound(S)
5: n = n - (StrConv(S(i), 3) = S(i) And Len(S(i)) > 1
         If UCase(Left(S(i), 1)) = Left(S(i), 1) And Len(S(i)) > 1 Then n = n + 1
    Next i
    MsgBox "Количество слов, начинающихся с заглавной буквы во фразе - " & n
End Sub

@chumich · 16.04.2015, 19:09

Если не придираться и не учитывать, что во фразе "Столица нашей Родины - город Москва" слов начинающихся с прописной буквы - 3, а имен собственных - 2, а также предположить, что в середине или конце слов прописных букв быть не может, то может подойти этот вариант:

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
        static void Main(string[] args)
        {
            Console.Write("Введите строку, содержащую прописные буквы: ");
            string str = Console.ReadLine();
            string Lstr = str.ToLower();
            int sch = 0;
            for (int i = 0; i < str.Length; i++)
            {
                if (str[i] != Lstr[i]) sch += 1;
            }
            Console.WriteLine("Количество слов, начинающихся с прописной буквы во фразе: {0}", sch);
            Console.Read();
        }

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

@Tini · 17.04.2015, 21:15

chumich, ах ты подлец, не сдаст ведь парень).

Добавлено через 5 минут
Что-то не понял. vb не знаю, но ведь в тексте самого кода написано о количестве слов с заглавной буквы, а задание об именах собственных.

@chumich · 17.04.2015, 21:48

Не по теме:

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

chumich, ах ты

Tini, что-то не припомню, чтобы мы пили на брудершафт, или хотя бы в одной компании...

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

не сдаст ведь парень

Парню дали почти готовое решение, и если немного подумать, то можно было доработать его до "нужной кондиции" (т.е. чтобы учитывались прописные буквы только в начале слова):

C#
1
2
3
4
5
6
7
8
9
10
11
12
13
14
        static void Main(string[] args)
        {
            Console.Write("Введите строку, содержащую прописные буквы: ");
            string str = Console.ReadLine();
            string Lstr = str.ToLower();
            int sch = 0;
            if (str[0] != Lstr[0]) sch += 1;
            for (int i = 1; i < str.Length; i++)
            {
                if (str[i] != Lstr[i] && str[i - 1].ToString() == " ") sch += 1;
            }
            Console.WriteLine("Количество слов, начинающихся с прописной буквы во фразе: {0}", sch);
            Console.Read();
        }

Новые блоги и статьи Все статьи Все блоги /
Программный контроль заполнения реквизита табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать контроль заполнения реквизита "ПричинаСписания". . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/	Программная установка даты и запрет ее изменения Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: при создании документов установить период списания автоматически. . .	Вывод данных в справочнике через динамический список Maks 01.04.2026 Реализация из решения ниже выполнена на примере нетипового справочника "Спецтехника" разработанного в конфигурации КА2. Задача: вывести данные из ТЧ нетипового документа. . .
Программное заполнения текстового поля в реквизите формы документа Maks 01.04.2026 Алгоритм из решения ниже реализован на нетиповом документе "ВыдачаОборудованияНаСпецтехнику" разработанного в конфигурации КА2, в дополнении к предыдущему решению. На форме документа создается. . .	К слову об оптимизации kumehtar 01.04.2026 Вспоминаю начало 2000-х, университет, когда я писал на Delphi. Тогда среди программистов на форумах активно обсуждали аккуратную работу с памятью: нужно было следить за переменными, вовремя. . .	Идея фильтра интернета (сервер = слой+фильтр). Hrethgir 31.03.2026 Суть идеи заключается в том, чтобы запустить свой сервер, о чём я если честно мечтал давно и давно приобрёл книгу как это сделать. Но не было причин его запускать. Очумелые учёные напечатали на. . .	Модель здравосоХранения 6. ESG-повестка и устойчивое развитие; углублённый анализ кадрового бренда anaschu 31.03.2026 В прикрепленном документе раздумья о том, как можно поменять модель в будущем

@Tini 52 / 13 / 0 Регистрация: 05.09.2014 Сообщений: 92
	17.04.2015, 21:15
	chumich, ах ты подлец, не сдаст ведь парень). Добавлено через 5 минут Что-то не понял. vb не знаю, но ведь в тексте самого кода написано о количестве слов с заглавной буквы, а задание об именах собственных. 0