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

Процедура: подсчитать, сколько раз в данном слове встречается сочетание "со"

23.11.2009, 19:52. Просмотров 557. Ответов 3
Метки нет (Все метки)

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

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

сколько раз в слове X встречается сочетание из первых двух букв слова Y
Напишите программу, выясняющую, сколько раз в слове X встречается сочетание из...

Сколько раз в данном слове х встречается (в качестве его части) слово у
1)Написать программу, подсчитывающую, сколько раз в данном слове х встречается...

Дана строка символов; подсчитать, сколько раз среди символов строки встречается буква "х"
Здрасьте товарищи! спасите от еменуемой пересдачи пожалуйста!я глупая и...

Подсчитать, сколько раз встречается заданная буква в последнем слове текста
Задача:Подсчитать, сколько раз встречается заданная буква в последнем слове...

3
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
23.11.2009, 21:49 2
Dgen, А зачем массив? Можно же просто ввести строку.
Pascal
1
2
3
4
5
6
k:=0;
while pos('co',s)>0 do
 begin
  delete(s,pos('co',s),2);
  k:=k+1;
 end;
1
Dgen
0 / 0 / 2
Регистрация: 12.11.2009
Сообщений: 24
23.11.2009, 23:13  [ТС] 3
Цитата Сообщение от Puporev Посмотреть сообщение
Dgen, А зачем массив? Можно же просто ввести строку.
Pascal
1
2
3
4
5
6
k:=0;
while pos('co',s)>0 do
 begin
  delete(s,pos('co',s),2);
  k:=k+1;
 end;
Спасибо, но появилась проблемка когда он подсчитывает количество он пишет 1 2 3, а не одной цифрой в чём моя ошибка
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Uses
  Crt;
Var
  I:string;
Procedure P(s:string);
var
 K:integer;
begin
 K:=0;
 while pos('co',s)>0 do
begin
  delete(s,pos('co',s),2);
  k:=k+1;
  writeln(k);
 end;
 end;
Begin
 Clrscr;
 writeln('vvedite slovo');
 readln(i);
 P(i);
 readkey;
End.
0
Puporev
Модератор
54679 / 42100 / 29069
Регистрация: 18.05.2008
Сообщений: 99,353
24.11.2009, 08:06 4
Уберите из цикла writeln(k); Конечно у Вас каждое новое значение показывать будет.
Pascal
1
2
3
4
5
6
 begin
   delete(s,pos('co',s),2);
   k:=k+1;
  end;  
writeln(k);
end;
1
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.11.2009, 08:06

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

Подсчитайте, сколько раз в массиве встречается число "1".
дан одномерный массив.Подсчитайте,сколько раз в этом массиве встречается число...

Надо в тексте найти сколько раз встречается два символа вместе "нм"
Извините если повторюсь. Но очень нужна помощь.


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

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

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