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

Найти слова, в которых первая буква присутствует только один раз, и слова капслоком - C++

Восстановить пароль Регистрация
Другие темы раздела
C++ Вывести слова, начинающиеся и заканчивающиеся одной и той же буквой http://www.cyberforum.ru/cpp-beginners/thread1493978.html
Помогите пожалуйста с задачкой!!! Разработать алгоритм и программу. Вводится тест из заглавных и строчных латинских букв, пробелов. Количество символов в тексте не должно превышать 200. Слова разделяются пробелами. Определить и вывести слова, начинающиеся и заканчивающиеся одной и той же буквой.
C++ Одномерные массивы: задачи сортировок элементов массива Добрый день! Помогите, пожалуйста, немного переделать программу. Задание: Организуйте массив, содержащий 2n целых чисел. Отсортируйте элементы с нечётными индексами по возрастанию. У меня программа получилась, НО.. при выводе, элементы (с нечетными индексами по возрастанию) выводятся отдельно. например, ввожу: 8 7 1 9 0 3 выводит: 0 1 8 а нужно: 0 7 1 9 8 3 http://www.cyberforum.ru/cpp-beginners/thread1493975.html
Нужно все буквы B заменить на решётку #, а буквы A заменить на A и B через раз - C++ C++
Здравствуйте, мне нужно написать функцию но только не знаю как, нужно чтоб она трансформировала строку в такой вид: Входная строка: BBABBABABABBBABBABBABBBABBABBABABBAB Строка на выходе после обработки функции должна иметь такой вид: AA#BB#A#B#AAA#BB#AA#BBB#AA#BB#A#BB#A То-есть все A заменились на #, а B по очереди заменялись на A и B BBABBABABABBBABBABBABBBABBABBABABBAB...
C++ Функция с указателем на void** не получается вернуть данные?
Здорова! Есть код: #include <iostream> using std::cout; struct IMotion { virtual int& get_val()=0; };
C++ Ввести с клавиатуры массив X, состоящий из 15 элементов целого типа. Рассчитать элементы массива Y по формуле http://www.cyberforum.ru/cpp-beginners/thread1493941.html
Ввести с клавиатуры массив X, состоящий из 15 элементов целого типа. Рассчитать элементы массива Y по формуле {y}_{i}=cos({{x}_{i}}^{2})+2,97{lg}^{2}{i}^{2}.Сформулировать третий массив из упорядоченных по убыванию значений обоих массивов.
C++ Взаимодействие с браузером Какую библиотеку можно использовать что бы взаимодействовать с браузером,например мне надо что бы программа ввела определенное слово на определенную страницу сайта в нужную строку,или просто нажала на кнопку.И можно ли для этого использовать библиотеку windows.h?Если что пишу на visual c++ и использую библиотеку классов MFC подробнее

Показать сообщение отдельно
polova
0 / 0 / 0
Регистрация: 06.07.2015
Сообщений: 5
06.07.2015, 21:09  [ТС]     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком
Есть код на Pascal. Может ли кто-то перевести?

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
const     
n = 200;  
 
function O (s : string) : boolean;    
var    
i,l : integer;    
c : char;    
r : boolean;  
begin   
c := s[1];   
i := 2;   
r := true;   
l := Length(s);      
 While (r) and (i <= l) do    
 begin    
  if s[i] = c then    
   r := false;    
  i := i +1;    
 end;   
Result := r;  
end;     
 
function Z (s : string) : boolean;  
var    
r : boolean;    
a,i,l : integer;  
begin   
r := true;   
l := Length(s);   
i := 1;
 While (r) and (i <= l) do 
   begin 
    a := ord(s[i]);   
     if (a<65) or (a>90) then  
      r := false;         
    i := i +1;   
  end;          
Result := r;  
end;  
 
var   
w,s : string;   
i,l : integer;      
begin  
readln (s);    
w := '';  
l := Length(s);
 
writeln ('----------------------');  
writeln ('Слова, в которых первая буква присутствует только один раз:');        for i := 1 to l do    
begin     
if (s[i] <> ' ') and (i <> l) then      
w := w + s[i]     
else      
begin      
 
//Если в конце текста точка то не нужно
  //if i = l then
  // w := w + s[i]; 
//Если последний символ - часть слова, то раскомментировать 
 
 
if O(w) then        
writeln (w);                    
w := '';      
end;    
end;  
writeln ('----------------------');  
//-------------------------------    
writeln ('Слова, в которых присутствуют только заглавные латинские буквы:');   
for i := 1 to l do    
begin     
if (s[i] <> ' ') and (i <> l) then      
w := w + s[i]     
else      
begin 
 
//Если в конце текста точка то не нужно
  //if i = l then
  // w := w + s[i]; 
//Если последний символ - часть слова, то раскомментировать 
  
if Z(w) then        
writeln (w);                    
w := '';      
end;    
end;  
end.
 
Текущее время: 15:28. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru