Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
egos1kk
0 / 0 / 0
Регистрация: 15.04.2011
Сообщений: 2
#1

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

19.04.2011, 08:43. Просмотров 402. Ответов 1
Метки нет (Все метки)

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

Добавлено через 51 секунду
основная проблема,как сравнить слово со строкой ,чтоб после сделать счетчик.не могу подобрать правильную функцию.
http://www.cyberforum.ru/turbo-pascal/thread247824.html
0
Лучшие ответы (1)
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
19.04.2011, 08:43
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Выяснить, входит ли данное слово в указанный тест (Turbo Pascal):

Выяснить, входит ли данное слово в указанный текст, и если да, то сколько раз
Public Sub text1() Open "in.txt" For Input As #1 a = InputBox("Введите...

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

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

Строковая задача: входит ли данное буквосочетание в данную фразу
Помогите составить программу в паскале. К этой задаче. Определите входит ли...

Выяснить, попадают ли все числа из массива в указанный отрезок
Дан массив 20 элементов целого типа. Все значения элементов генерируются...

1
MAZUR777
605 / 130 / 132
Регистрация: 15.04.2010
Сообщений: 554
19.04.2011, 09:37 #2
Лучший ответ Сообщение было отмечено как решение

Решение

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
program m3;
 
USES CRT;
 
var s,sl,r,p:string;
 
t:text;k,i:integer;
 
begin CLRSCR;k:=0;
 
write ('слово ');
 
readln(sl);
 
write ('в файл ');
 
readln(r);
 
assign(t,r);
 
reset(t);
 
while not eof(t) do
 
begin
 
readln(t,p);
 
s:='';
 
FOR I:=1 TO LENGTH(P) DO
 
BEGIN
 
IF (P[I]<>' ') AND (P[I]<>'.')
 
then S:=S+P[I]
 
else
 
IF S=SL THEN
 
begin
 
k:=k+1;
 
s:='';
 
end
 
else
 
s:='';
 
end;
 
end;
 
if k>0 then writeln (k) else writeln ('такого слова в тексте нет ')
 
end.
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
19.04.2011, 09:37
Привет! Вот еще темы с решениями:

Выяснить, является ли данное трехзначное число палиндромом
Дано трехзначное число. Выяснить, является ли оно...

Выяснить, входит ли цифра 3 в запись числа
Помогите пожалуйста,Дано натуральное n. Выяснить, входит ли цифра 3 в запись...

Выяснить, входит ли цифра 3 в запись числа n
1). Дано натуральное число n. Выяснить входит ли цифра 3 в запись числа n (в...

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


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

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

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