Работа со строковыми переменными

@Virus2036 · Регистрация: 22.12.2008

Студворк — интернет-сервис помощи студентам

Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.

@Evklid · 22.12.2008, 18:11

Держи код:

Код

program cyb_55;
uses
 Crt;
const
 des: set of char = [' ',',','.',';',':','?','!'];
var
 s: string;
 i, q: byte;
begin
 ClrScr;
 writeln('Vvedite tekst: ');
 readln(s);
 q:= 0;
 if s[1] = 'b' then
  inc(q);
 for i:= 2 to Length(s) do
  if (s[i] = 'b') and (s[i-1] in des) then
   inc(q);
 writeln('Kol-vo slov, nachinaiyshixsia na bykvy ''b'': ', q);
 readln;
end.

ЗЫ Прогу проверял. Работает с любым количеством разделителей, объявленных в множестве des, между словами. Если что не так, говори - поправим

@Virus2036 0 / 0 / 0 Регистрация: 22.12.2008 Сообщений: 28
		1
	Работа со строковыми переменными 22.12.2008, 17:45. Показов 985. Ответов 1 Метки нет (Все метки) Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b. 0

@Evklid 25 / 20 / 4 Регистрация: 13.03.2008 Сообщений: 79
	22.12.2008, 18:11	2
	Держи код: Код program cyb_55; uses Crt; const des: set of char = [' ',',','.',';',':','?','!']; var s: string; i, q: byte; begin ClrScr; writeln('Vvedite tekst: '); readln(s); q:= 0; if s[1] = 'b' then inc(q); for i:= 2 to Length(s) do if (s[i] = 'b') and (s[i-1] in des) then inc(q); writeln('Kol-vo slov, nachinaiyshixsia na bykvy ''b'': ', q); readln; end. ЗЫ Прогу проверял. Работает с любым количеством разделителей, объявленных в множестве des, между словами. Если что не так, говори - поправим 1

Опции темы