Форум программистов, компьютерный форум, киберфорум
Наши страницы
Pascal ABC
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/6: Рейтинг темы: голосов - 6, средняя оценка - 5.00
Worm67
1 / 1 / 1
Регистрация: 18.12.2015
Сообщений: 54
1

Написать программу, подсчитывающую, сколько раз в предложении встречается указанное слово

18.04.2016, 23:46. Просмотров 1054. Ответов 4
Метки нет (Все метки)

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

Составить программу для определения, сколько раз в заданном тексте встречается заданное слово
Составить программу для определения, сколько раз в заданном тексте встречается заданное слово ...

Подсчитать, сколько раз встречается заданное слово в предложении
Задано предложение y. Проверить, сколько раз встречается данное слово х в предложении у. решите,...

Подсчитать сколько раз слово "ДОМ" встречается в предложении
подсчитать сколько раз слово "ДОМ" встречается в предложении. Предложения любые. в Паскале решите....

Написать программу, которая высчитывает – сколько раз встречается заданная буква в заданной символьной строке.
Написать программу, которая высчитывает – сколько раз встречается заданная буква в заданной...

посчитать, сколько раз введенная последовательность встречается во введенном предложении.
Пользователь вводит предложение на английском языке и любую последовательность символов длиной не...

4
WhiteMind
Hello Kitty
680 / 554 / 400
Регистрация: 12.02.2016
Сообщений: 1,436
Записей в блоге: 1
19.04.2016, 07:37 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
var
  tmp,s,w: string;
  i,n,m: integer;
begin
  writeln('Input string,search word:');
  readln(s);   
  readln(w);     
  w := char(w[1]);
  
  n := 0;
  while(true) do begin
    i := pos(w , s);
    if i >= 1 then begin
      n := n + 1;
      s := copy(s , i+1 , length(s));
      continue;
    end;
    break;
  end;
  writeln( n );
end.
возможны ошибки
0
Worm67
1 / 1 / 1
Регистрация: 18.12.2015
Сообщений: 54
22.04.2016, 00:49  [ТС] 3
Программа подсчитывает сколько раз в предложении встречается буква, а не слово(
1
WhiteMind
Hello Kitty
680 / 554 / 400
Регистрация: 12.02.2016
Сообщений: 1,436
Записей в блоге: 1
22.04.2016, 07:44 4
Цитата Сообщение от Worm67 Посмотреть сообщение
Программа подсчитывает сколько раз в предложении встречается буква, а не слово(
точно не дописал надо w[1] := cha...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
var
  tmp,s,w: string;
  i,n,m: integer;
begin
  repeat
    writeln('Input string,search word:');
    readln(s);   
    readln(w);     
  until(length(s)>0) AND (length(w)>0);
  w[1] := char(w[1]);
  
  n := 0;
  while(true) do begin
    i := pos(w , s);
    if i >= 1 then begin
      n := n + 1;
      s := copy(s , i+1 , length(s));
      continue;
    end;
    break;
  end;
  writeln( n );
end.
1
Chilipalmer777
14 / 14 / 11
Регистрация: 20.03.2016
Сообщений: 168
23.04.2016, 03:37 5
WhiteMind, простите моё невежество, но что означает в вашем коде эта строка(№ 10):
Pascal
1
w[1] := char(w[1]);
Что она делает - первому символу строки W присваивает первый символ строки W при помощи функции Char ?
Для чего это нужно???
Я добавил в ваш код пару строк и проверил содержимое в w[1] и char(w[1]). Оно совпадает и до присваивания:
Pascal
1
2
3
4
  writeln(' До того: ', w[1],' char= ',char(w[1]));
  w[1] := char(w[1]);
  writeln;
  writeln(' После того: ', w[1],' char= ',char(w[1]));
Может ее(строку № 10) совсем убрать?

Просто интересно.
0
23.04.2016, 03:37
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
23.04.2016, 03:37

посчитать, сколько раз введенная последовательность встречается во введенном предложении.
Пользователь вводит предложение на английском языке и любую последовательность символов длиной не...

В заданном предложении подсчитать сколько раз встречается первая буква
1. В заданном предложении подсчитать сколько раз встречается первая буква. 2. создать матрицу 5х5...

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


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

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

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