procedure TForm1.Button1Click(Sender: TObject);после to выдаёт [Error] Unit1.pas(37): For loop control variable must be simple local variable подскажите что к чему?
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';
Полная версия: помогите плз найти и исправить ошибку в задаче на строки.
помогите плз найти и исправить ошибку в задаче на строки. условие такое:Дана строка, содержащая английский текст. Найти количество слов, начинающихся с буквы b.
двоеточие перед "=" пропустил 
тут я кое что подредактировал но всё равно требуемого результата не выходит...мож глянете где ещё ошибки.
З.Ы. всегда получается 0.
З.Ы. всегда получается 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;
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;
хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?
k - это же число?
тогда нельзя делать
это выведет букву k, а не значение переменной k.
надо
тогда нельзя делать
edit2.Text:='k';
это выведет букву k, а не значение переменной k.
надо
Edit2.Text:=IntToStr(k);
я в исправленном коде это исправил. в 3 посте.
Добавлено через 8 мин.
хм.. а как это у тебя один символ строки s s[и] может равняться двум символам ' b' (пробел и b) ?
вообщет этим действием я хотел чтоб цикл проверял строку и находил в ней слова начинающиеся с b.
а как правильно будет?
нашол в FAQ похожую задачу но чёт неполучается правильно интерпретировать и перевести её в Delphi.
в 3 посте.Добавлено через 8 мин.
Цитата(Айра @ 18.06.2008 6:32) 
хм.. а как это у тебя один символ строки 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;
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;
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)?
Заранее спс.
Цитата(Sozialist @ 19.06.2008 14:47)
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)?
Заранее спс.
flag:boolean=true; - объявление типизированной константы - переменной, которая инициализируется при объявлении, иначе можно
inc(k) то же, что и k:=k+1;
Я просто привык к такому синтаксису.
var
flag:boolean
begin
flag:=true;
...
end.
inc(k) то же, что и k:=k+1;
Я просто привык к такому синтаксису.
Это текстовая версия — только основной контент. Для просмотра полной версии этой страницы, пожалуйста, нажмите сюда.