Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы) - C#
Формулировка задачи:
Не могли бы вы помочь перевести эту программу в С##?
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Решение задачи: «Дана фраза. Выяснить сколько в ней имен собственных (начинающихся с заглавной буквы)»
textual
Листинг программы
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();
}