СТРОКИ, Получается неправильный вывод! Опции

[Светлана]

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

Program b;
var S:string;
i,p,n:integer;
begin
S:='boy bought a blue car';
writeln(S);
p:=0;
for i:=1 to n do begin
if S[i]='' then inc(i);
if S[i]='b' then inc(p);
end;
writeln('kol-vo slov s bykvoi b ravno',p);
readln;
end.

Но у меня в конце пишется, что кол-во слов с буквой b равно 0...

Подскажите, пож-та, в чем ошибка?

[klem4]

Во первых, у тебя цикл по i до n, а чему равно n ? Неизвестно, во вторых, ты внутри цикла FOR изменяешь переменную цикла - это черевато большими ошибками, а некоторыми компиляторами и вовсе не пропускается, в третьих задача решается так:

(если между словами только _один_пробел)

count := 0;
i := 1;

while (i <= Length(s)) do begin
    if s[i] = ' ' then inc(i);
    if s[i] = 'b' then inc(count);
    while (i <= Length(s)) and (s[i] <> ' ') do inc(i);
end;

[volvo]

(если между словами только _один_пробел)

А если может быть несколько - то так:

var
  s: string;
  i, p, count: integer;

begin
  s := '       boy                 bought a blue            car';

  i := 0;
  repeat

    p := pos(' b', copy(' ' + s, i + 1, length(' ' + s)));
    if p > 0 then begin
      inc(count); inc(i, p)
    end

  until p = 0;
  writeln('count = ', count);
end.