помогите плз найти и исправить ошибку в задаче на строки. Опции

[MiH@N]

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

procedure TForm1.Button1Click(Sender: TObject);
var s : String;   i : integer;
begin
s:=edit1.text;
edit1.Text:='';
for i=1 to length(s) do
 if (s[i]=' b') then  k:=k+1;
end;
edit2.Text:='k';

после to выдаёт [Error] Unit1.pas(37): For loop control variable must be simple local variable подскажите что к чему?

[Michael_Rybak]

двоеточие перед "=" пропустил

[MiH@N]

тут я кое что подредактировал но всё равно требуемого результата не выходит...мож глянете где ещё ошибки.
З.Ы. всегда получается 0.

Код

procedure TForm1.Button1Click(Sender: TObject);
var s : String;   i,k : integer;
begin
s:=edit1.text;
edit1.Text:='';
k:=0;
for i:=1 to length(s)  do
if (s[i]=' b') then  k:=k+1;
edit2.Text:=inttostr(k);
end;

Сообщение отредактировано: MiH@N - 18.06.2008 10:19

[Айра]

хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?

Сообщение отредактировано: Айра - 18.06.2008 11:39

[мисс_граффити]

k - это же число?
тогда нельзя делать

edit2.Text:='k';

это выведет букву k, а не значение переменной k.
надо

Edit2.Text:=IntToStr(k);

[MiH@N]

я в исправленном коде это исправил. в 3 посте.

Добавлено через 8 мин.

хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?

вообщет этим действием я хотел чтоб цикл проверял строку и находил в ней слова начинающиеся с b.
а как правильно будет?

нашол в FAQ похожую задачу но чёт неполучается правильно интерпретировать и перевести её в Delphi.

Код

function Count(Const s, w: String; start: Byte): Byte;
const
  limits = ['.', ',', ';', '!', '?', ' '];
var
  p: Byte;
begin
  p := Pos(w, Copy(s, start, 255));
  if (start > length(s)) or (p = 0) then Count := 0
   else if (((start + p - 2) = 0) or (s[ start + p - 2] in limits))
    and (((start + p + length(w) - 2) = Length(s)) or (s[start + p + length(w) - 1] in limits))
     then Count := 1 + Count(s, w, start + p + length(w) - 2) else Count := 0 + Count(s, w, start + p + length(w) - 2);
end;

Сообщение отредактировано: MiH@N - 18.06.2008 23:06

[Sozialist]

procedure TForm1.Button1Click(Sender: TObject);
var 
s : String;  
i,k : integer;
flag:boolean=true;
BEGIN
   s:=edit1.text;
   edit1.Text:='';
   k:=0;
   for i:=1 to length(s)  do
   begin
      if flag and (s[i]='b') then  inc(k);
      if s[i]=' ' then flag:=true else flag:=false;
   end;
   edit2.Text:=IntToStr(k);
END;

Не проверял. Должно работать.

Сообщение отредактировано: Sozialist - 19.06.2008 19:47

[MiH@N]

Спасибо за помощь!

procedure TForm1.Button1Click(Sender: TObject);
var 
s : String;  
i,k : integer;
flag:boolean=true;
BEGIN
   s:=edit1.text;
   edit1.Text:='';
   k:=0;
   for i:=1 to length(s)  do
   begin
      if flag and (s[i]='b') then  inc(k);
      if s[i]=' ' then flag:=true else flag:=false;
   end;
   edit2.Text:=IntToStr(k);
END;

Не проверял. Должно работать.

а что означает строка flag:boolean=true; ? может надо просто flag:boolean; ? и что означает ink(k)?
Заранее спс.

Сообщение отредактировано: MiH@N - 20.06.2008 18:18

[Sozialist]

flag:boolean=true; - объявление типизированной константы - переменной, которая инициализируется при объявлении, иначе можно

var
flag:boolean
begin
flag:=true;
...
end.

inc(k) то же, что и k:=k+1;
Я просто привык к такому синтаксису.

Сообщение отредактировано: Sozialist - 20.06.2008 19:30