Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.83/6: Рейтинг темы: голосов - 6, средняя оценка - 4.83
Пушистый колбас
1 / 1 / 0
Регистрация: 16.02.2010
Сообщений: 19
1

Сколько раз в вводимом тексте встречается каждое трехбуквенное слово

26.07.2010, 13:35. Просмотров 1006. Ответов 5
Метки нет (Все метки)

Выясните, сколько раз в вводимом тексте встречается каждое трехбуквенное слово.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
26.07.2010, 13:35
Ответы с готовыми решениями:

Найти сколько раз в тексте встречается заданное слово
Найти сколько раз в тексте встречается заданное слово.

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

Сколько раз встречается каждое число в массиве. нарисуйте блок схему пожалуйста
Люди помогите нарисовать блок схему.Задание такое подсчитать сколько раз...

Определить сколько раз встречается каждая цифра в тексте
Позжалуйста помогите решить задачу по программированию: Дан текст произвольной...

Для указанного символа указать сколько раз он встречается в тексте.
Дана строка символов. Для указанного символа указать сколько раз он...

5
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,305
26.07.2010, 13:49 2
Цитата Сообщение от Пушистый колбас Посмотреть сообщение
каждое трехбуквенное слово
А что есть слово? Например сколько слов в такой строке
asd gt5 123 [[[ ??? @~% as2 ,,,,
0
Пушистый колбас
1 / 1 / 0
Регистрация: 16.02.2010
Сообщений: 19
26.07.2010, 13:53  [ТС] 3
Это утрированно, если хочешь то можно за место трехбуквенного слова, прога искала 3 последовательных символов.
0
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,305
26.07.2010, 14:11 4
То есть словом является например любая группа символов, не содержащая пробелов внутри и отделенная от других групп пробелами?
0
Пушистый колбас
1 / 1 / 0
Регистрация: 16.02.2010
Сообщений: 19
26.07.2010, 14:12  [ТС] 5
Верно
0
Puporev
Модератор
54587 / 42093 / 29062
Регистрация: 18.05.2008
Сообщений: 99,305
26.07.2010, 14:34 6
.Решить можно по разному, предлагаю так.

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
uses crt;
var s,s1:string;
    a:array[1..100] of string[3];{массив трехбуквенных слов}
    n,i,j,k,p:byte;
begin
clrscr;
writeln('Введите строку, пробелы разделители слов:');
readln(s);
s:=s+' ';{добавим пробел}
while pos('  ',s)>0 do{пока есть рядом 2 пробела}
delete(s,pos('  ',s),1);{1 пробел удалим(в апострофах 2 пробела(не 1))}
n:=0;
while pos(' ',s)>0 do{пока есть пробел}
 begin
  s1:=copy(s,1,pos(' ',s)-1);{берем первое слово}
  if length(s1)=3 then{если из 3 букв}
   begin
    n:=n+1;{считаем}
    a[n]:=s1;{записываем в массив}
   end;
  delete(s,1,pos(' ',s));{удаляем, следующее первое}
 end;
if n=0 then write('В строке нет трехбуквенных слов!')
else
 begin
  writeln('Трехбуквенные слова:');
  i:=1;
  while i<=n do{идем по массиву}
   begin
    k:=1;
    for j:=n downto i+1 do{смотрим с конца что впереди}
    if a[j]=a[i] then{если такое же слово}
     begin
      k:=k+1;{считаем}
      for p:=j to n-1 do{сдвигаем конец массива влево}
      a[p]:=a[p+1];{на этот элемент, он удаляется}
      n:=n-1;{уменьшаем размер массива}
     end;
   writeln(a[i],' - ',k,' рз.');
   i:=i+1;{}
  end;
 end;
readln
end.
2
26.07.2010, 14:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
26.07.2010, 14:34

Определить, сколько раз в строке встречается заданное слово
Здравствуйте! помогите пожалуйста сделать следующее задание: Определить,...

Подсчитать,сколько раз в текстовом файле встречается слово
1.Подсчитать,сколько раз в текстовом файле встречается слово &quot;procedure&quot;...

Определить, сколько раз в строке встречается заданное слово.
Определить, сколько раз в строке встречается заданное слово.


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

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

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