0 / 0 / 0
Регистрация: 29.04.2014
Сообщений: 6
1

Как в исходной строке b$ определить количество слов, содержащих хотя бы один заданный символ x$

29.04.2014, 10:27. Показов 1221. Ответов 1
Метки нет (Все метки)

В исходной строке b$ определить количество слов, содержащих хотя бы один заданный символ x$.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2014, 10:27
Ответы с готовыми решениями:

В исходной строке определить число слов, которые содержат хотя бы один заданный символ
В исходной строке a$ определить число слов, которые содержат хотя бы один символ x$. Вывести...

Определить количество слов в строке, содержащих заданный символ
С клавиатуры вводится строка, которая состоит из слов, разделенных одним или несколькими пробелами....

В исходной строке а определить количество слов, содержащих ровно п символов строки x
В исходной строке а определить количество слов,содержащих ровно п символов строки x.

Определить количество слов в строке, оканчивающихся на заданный символ
Дана символьная строка и символ. Слово последовательность символов между пробелами, не содержащая...

1
Заблокирован
29.04.2014, 19:56 2
Лучший ответ Сообщение было отмечено Ddiimmkk как решение

Решение

Вот код, решающий вашу задачу
(программа проверена под Windows XP)
В операторе CASE ошибки нет. Это различие
Dos и Windows кодировок.
QBasic/QuickBASIC
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
DEFSTR S, X-Z
DEFINT F, I-L
CLS
DEF fnf (z)
   fnf = 0
   SELECT CASE z
      CASE "A" TO "B", "a" TO "z", "Ђ" TO "Ї", "а" TO "с"
         fnf = 1
   END SELECT
END DEF
INPUT "Vvedite stroku"; s
INPUT "Vvedite simvol"; x
 
kol = 0
FOR i = 1 TO LEN(s)
   l = 0
   y = MID$(s, i, 1)
   IF fnf(y) = 0 THEN 100
 
   j = 0
   IF fnf(y) = 1 THEN j = i
   ks = 0
 
   DO WHILE fnf(MID$(s, j, 1))
      l = l + 1
      j = j + 1
      IF MID$(s, j, 1) = x THEN ks = 7
   LOOP
   
   IF ks = 7 THEN
      kol = kol + 1
      lx = i
      lxx = j - 1
   END IF
   i = j
100
NEXT i
PRINT "kol="; kol
END
Удачи вам!
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2014, 19:56
Помогаю со студенческими работами здесь

Определить количество слов в строке, оканчивающихся на заданный символ
1. Дана символьная строка и символ. Слово - последовательность символов между пробелами, не...

Определить количество слов в строке, оканчивающихся на заданный символ
Прошу помощи. Дана символьная строка и символ. Слово - последовательность символов между...

Строка: Определить количество слов в строке, оканчивающихся на заданный символ
Дана символьная строка. Слово – последовательность символов между пробелами, не содержащая...

Массив строк. Определить количество слов, у которых первый символ встречается в слове еще хотя бы один раз
Помогите, пожалуйста, с задачей: Дан текст из нескольких строк. Определить количество слов, у...


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

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru