Слова на букву b - Паскаль, Turbo Pascal, PascalABC.NET

aless23 · 15.06.2013, 16:26

Помогите пожалуйста...суть проблемы следующая:Необходимо написать программу, которая считает колличество слов которые начинаются на букву "b" из набранного текста...
Заранее огромное спасибо!!!

Вадим Мошев · 15.06.2013, 17:07

Код:

s:='Набранный текст';
kolvo:=0;

for i:=2 to length(s) do
if (s[i-1] = ' ') AND (s[i] = 'b') then inc(kolvo);

if s[1] = 'b' then inc(kolvo);

Poma][a · 15.06.2013, 18:01

Вадим
А тебе не кажется, что эта развилка чуть "наиграна"?

Цитата:

if s[1] = 'b' then inc(kolvo);

Предлагаю сделать так :

Код:

s:='Набранный текст';
s := ' ' + s;
kolvo:=0;

for i:=2 to length(s) do
if (s[i-1] = ' ') AND (s[i] = 'b') then inc(kolvo);

Вадим Мошев · 15.06.2013, 18:10

Роман, я обдумывал такой вариант... НО! тип string [в Паскале] имеет ограничение в 255 символов. Что будет, если на вход будет подана строка именно такой (255) длинны?

Аватар · 15.06.2013, 18:58

Код:

s:='Набранный текст';
kolvo:=0;
for i:=1 to length(s) do
  if (s[i] = 'b') AND ((i=1) OR (s[i-1] = ' ')) then inc(kolvo);

Надеюсь в паскале OR так же, как в дельфи обрабатывается, т.е. если i=1, то следующее условие не проверяется

aless23 · 15.06.2013, 19:01

Спасибо огромное!!!

Вы очень помогли!!!!!!!

Poma][a · 15.06.2013, 19:09

Вадим, возможно, ты прав..
Аватар, имхо не стоит нести через весь цикл обработку 1-го случая..

Аватар · 15.06.2013, 19:17

Цитата:

имхо не стоит нести через весь цикл обработку 1-го случая

Ну да, потеряем на предложении 0.0001 сек и или сколько там

BDA · 15.06.2013, 19:41

Цитата:

Сообщение от Poma][a

имхо не стоит нести через весь цикл обработку 1-го случая..

Еще не известно, насколько "дорого" выходит добавка пробела в начало строки

15.06.2013, 16:26	#1
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Слова на букву b Помогите пожалуйста...суть проблемы следующая:Необходимо написать программу, которая считает колличество слов которые начинаются на букву "b" из набранного текста... Заранее огромное спасибо!!!

15.06.2013, 17:07	#2
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Код: `s:='Набранный текст'; kolvo:=0; for i:=2 to length(s) do if (s[i-1] = ' ') AND (s[i] = 'b') then inc(kolvo); if s[1] = 'b' then inc(kolvo);`

15.06.2013, 18:58	#5
Аватар Старожил Регистрация: 17.11.2010 Сообщений: 18,922	Код: `s:='Набранный текст'; kolvo:=0; for i:=1 to length(s) do if (s[i] = 'b') AND ((i=1) OR (s[i-1] = ' ')) then inc(kolvo);` Надеюсь в паскале OR так же, как в дельфи обрабатывается, т.е. если i=1, то следующее условие не проверяется Если бы архитекторы строили здания так, как программисты пишут программы, то первый залетевший дятел разрушил бы цивилизацию

15.06.2013, 19:01	#6
aless23 Пользователь Регистрация: 04.04.2011 Сообщений: 19	Спасибо огромное!!!Вы очень помогли!!!!!!! Последний раз редактировалось aless23; 15.06.2013 в 19:04.

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Записать в массив каждую букву слова	Faton 11	Общие вопросы C/C++	6	10.01.2014 17:04
Дан текст, состоящий из букв и пробелов, слова разделяются пробелом. Поменять первую и вторую букву каждого слова.	danteone	Помощь студентам	6	21.05.2012 12:31
Из данного предложения вычеркнуть слова, содержащие заданную букву.	ayoka	Паскаль, Turbo Pascal, PascalABC.NET	1	17.05.2012 13:30
Поменять 1 и последнюю букву последнего слова а строке с++	Bolisoff	Помощь студентам	1	10.01.2012 18:22
Как определить на какую букву начинаются слова в строке???	Telec	Помощь студентам	1	18.04.2010 20:28

15.06.2013, 18:10	#4
Вадим Мошев Старожил Регистрация: 12.11.2010 Сообщений: 8,568	Роман, я обдумывал такой вариант... НО! тип string [в Паскале] имеет ограничение в 255 символов. Что будет, если на вход будет подана строка именно такой (255) длинны?

15.06.2013, 19:09	#7
Poma][a Новичок Джуниор Регистрация: 11.10.2011 Сообщений: 3,882	Вадим, возможно, ты прав.. Аватар, имхо не стоит нести через весь цикл обработку 1-го случая..