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

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

Восстановить пароль Регистрация
 
polova
0 / 0 / 0
Регистрация: 06.07.2015
Сообщений: 5
06.07.2015, 15:19     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком #1
Разработать алгоритм и программу. Вводится тест из заглавных и строчных латинских букв, пробелов. Количество символов в тексте не должно превышать 200. Слова разделяются пробелами. Определить и вывести:
- слова, в которых первая буква присутствует только один раз;
- слова, в которых присутствуют только заглавные латинские буквы
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
06.07.2015, 15:19     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком
Посмотрите здесь:

C++ Найти и вывести на печать слова, у которых первая буква входит в слово ещё раз
Напечатать все слова, в которых повторяется первая буква слова C++
Что здесь неправильно? (Вывести все слова строки в которых первая буква входит в него ещё раз) C++
C++ Найти в тексте слова, у которых первая буква совпадает с последней
C++ В заданной строке выбрать те слова,в которых первая буква этого слова встречается еще хоть один раз
Определить, имеются ли в последовательности слова, в которых каждая буква слова входит в него не менее двух раз C++
C++ Напечатать слова, в которых первая буква входит в него еще раз
C++ Найти слова, у которых первая буква входит в слово ещё раз

Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
После регистрации реклама в сообщениях будет скрыта и будут доступны все возможности форума.
Почтальон
фрилансим
 Аватар для Почтальон
275 / 201 / 28
Регистрация: 22.03.2015
Сообщений: 1,588
Завершенные тесты: 1
06.07.2015, 19:50     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком #2
Посимвольно перебирайте строку и стройте алгоритм с учетом ваших условий. Описание функций для работы со строками есть в учебниках.
polova
0 / 0 / 0
Регистрация: 06.07.2015
Сообщений: 5
06.07.2015, 21:09  [ТС]     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком #3
Есть код на 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.
Yandex
Объявления
06.07.2015, 21:09     Найти слова, в которых первая буква присутствует только один раз, и слова капслоком
Ответ Создать тему
Опции темы

Текущее время: 08:21. Часовой пояс GMT +3.
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2016, vBulletin Solutions, Inc.
Рейтинг@Mail.ru