Форум программистов, компьютерный форум, киберфорум
Наши страницы

Turbo Pascal

Войти
Регистрация
Восстановить пароль
 
Ксюньчик
0 / 0 / 0
Регистрация: 11.02.2011
Сообщений: 12
#1

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз - Turbo Pascal

27.02.2011, 16:30. Просмотров 381. Ответов 2
Метки нет (Все метки)

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Public Sub text1()
Open "in.txt" For Input As #1
a = InputBox("Введите слово")
s = 0
Do While Not EOF(1)
Input #1, b
'MsgBox b
n = 1
Do While n < Len(b)
n1 = InStr(n, b, a)
If n1 <> 0 Then
s = s + 1
n = n1 + 1
Else
n = Len(b)
End If
Loop
Loop
Close #1
MsgBox "Количество слов в тексте" & s
End Sub
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
27.02.2011, 16:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз (Turbo Pascal):

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз - Turbo Pascal
дан файл, содержащий произвольный текст на русском языке. выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз - Turbo Pascal
Дана строка, содержащая текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

Выяснить, входит ли данное слово в указанный тест - Turbo Pascal
Дан файл, содержащий текст на русском языке.Выяснить, входит ли данное слово в указанный тест, и если да, то сколько раз. Добавлено...

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз. - Pascal
Дан файл ,содержащий произвольный текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.

Определить сколько раз слово “did” входит в заданный текст - Pascal
Помогите Сделать лаби, пожалуста, я не могу сделать их, так как времени мало, завтра должен сдать(((. Помогите будь-ласка потому что к...

Дано целое число N .Входит ли цифра 3 в его запись, если входит, то сколько раз - Pascal
Дано целое число N.Входит ли цифра 3 в его запись если входит , то сколько раз?

2
Dekio
Фрилансер
Эксперт С++
5837 / 1218 / 214
Регистрация: 23.11.2010
Сообщений: 3,378
Записей в блоге: 1
27.02.2011, 16:46 #2
Условие какое?
0
Ксюньчик
0 / 0 / 0
Регистрация: 11.02.2011
Сообщений: 12
27.02.2011, 16:54  [ТС] #3
1. Дана строка, содержащая текст на русском языке. Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз.
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
27.02.2011, 16:54
Привет! Вот еще темы с ответами:

Выяснить, сколько раз число входит в последовательность - Turbo Pascal
Даны целые числа a1, …, an . Для каждого из чисел, входящих в последовательность a1, …, an , выяснить, сколько раз оно входит в эту...

Выяснить, сколько раз входит в состав натурального числа цифра 3 - Turbo Pascal
Цикл с параметром Выяснить, сколько раз входит в состав натурального числа цифра 3

Сколько раз в строке встречается данное слово? - Turbo Pascal
В документе input дана строка. Определить, сколько раз в ней встречается данное слово. Задачу нужно решать, считывая каждый элемент прям из...

Определить, сколько раз в строке встечается данное слово - Turbo Pascal
Уже нашел такую тему на сайте. Вот готовая задачка, но мне надо сделать с процедурами и функциями, помогите пожалуйста. Program...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.