Форум программистов, компьютерный форум CyberForum.ru

Определить в строке наличие "эмоциональных" символов (перевести на C++) - C++

Войти
Регистрация
Восстановить пароль
Другие темы раздела
C++ Найти максимальный элемент массива и его номер http://www.cyberforum.ru/cpp-beginners/thread400028.html
задан массив n элемнтов,найти max элемент массиваи его номер
C++ Как изменить размер окна и убрать ползунок Можно ли убрать ползунок в окошке, которое появляется при запуске консольного приложения или изменить его размер http://www.cyberforum.ru/cpp-beginners/thread400025.html
Какая разница в инициализации? C++
Есть класс: class CSomeClass { CSomeClass(); private: bool isState1, isState2; }; члены isState1, isState2 можно инициализировать 2-мя способами:
C++ Транспонировать матрицу F(10,8)
Транспонировать матрицу F(10,8) и вывести на печать элементы главной диагонали и диагонали, расположенной под главной. Результаты разместить в двух строках.
C++ cin.getline работает через раз http://www.cyberforum.ru/cpp-beginners/thread400014.html
вот этот код работает прекрасно #include <iostream> using namespace std; void Open_Directory() { char *directory= new char; cin.getline(directory, sizeof(directory)); //cin.getline(directory, sizeof(directory)); cout<<directory<<"\n"; }
C++ Шаблоны функций и классов Нужносоздать шаблон функции возведения заданного числа в заданную степень (аналог функции pow() ). Шаблон класа Класс: матрица. Свойства: размеры, элементы матрицы. Методы: конструктор с параметрами, вычисление суммы элементов на главной диагонали. подробнее

Показать сообщение отдельно
malishka23
0 / 0 / 0
Регистрация: 28.11.2011
Сообщений: 13

Определить в строке наличие "эмоциональных" символов (перевести на C++) - C++

06.12.2011, 10:15. Просмотров 303. Ответов 0
Метки (Все метки)

Помогите пожалуйста перевести с Visual Basic
на Visual Basic .NET и на С++
Дана фраза. Определить в ней «эмоциональных символов(восклицательный и вопросительных знаков).
Текст программы:

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Private Sub Command1_Click()
End
End Sub
 
Private Sub Command2_Click()
x = 0: k = 0
s = Text1.Text
For i = 1 To Len(s)
If ((Mid(s, i, 1) >= "a") And (Mid(s, i, 1) <= "z")) Or ((Mid(s, i, 1) >= "A") And (Mid(s, i, 1) <= "Z")) Or ((Mid(s, i, 1) >= "Г*") And (Mid(s, i, 1) <= "Гї")) Or ((Mid(s, i, 1) >= "ГЂ") And (Mid(s, i, 1) <= "Гџ")) Then
x = x + 1
End If
If ((Mid(s, i, 1) = "!") Or (Mid(s, i, 1) = "?")) Then
k = k + 1
End If
Next i
Text2.Text = Str(x)
Text3.Text = Str(k)
End Sub
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
 
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2017, vBulletin Solutions, Inc.
Рейтинг@Mail.ru