Легкая задача по Delphi

[anthonyk]

Здравствуйте!

Нужна ваша помощь в решении простой задачи на delphi. Я в программировании новичок. Вообще я лингвист и не понятно зачем нам программирование.

Собственно задача:

Даны натуральное число n, символы S1,S2,...Sn. Получить первое натуральное число i, для которого каждый из символов S(i) и S(i+1) совпадает с буквой а. Если такой пары символов в последовательности нет, то ответом должно быть число 0.

То, что я пытался сделать:

На форме есть button, label, edit.

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,n:integer;
begin
s:=Edit1.Text;
n:=length(s);
For i:=1 to n do
if (s[i]='a') and (s[i+1]=s[i]) then
Label1.Caption:=IntToStr(i) else Label1.Caption:='0';
end;

Буду благодарен за любую помощь!

[Sciv]

А проблема-то в чем? Код вроде правильный...

[anthonyk]

Проблема в том, что когда ввожу произвольный набор символов в Edit1, и, собственно, нажимаю на кнопку, ответ постоянно '0', есть 'аа' или нет. Не могу понять почему так.

[studen]

Штука в том, что программа не останавливается, когда находит "аа", надо сделать вот как (простите, что без отступов):

procedure TForm1.Button1Click(Sender: TObject);
var
s:string;
i,n:integer;
begin
s:=Edit1.Text;
n:=length(s);
For i:=2 to n do
if (s[i-1]='a') and (s[i]=s[i-1]) then begin
Label1.Caption:=IntToStr(i);
exit;
end
else Label1.Caption:='0';
end;

И правда, зачем лингвисту программирование? Наверное, как и программисту культурология


Кроме того, есть стандартная функция Pos, гуглите, она как раз и выполняет эту задачу.

[anthonyk]

Спасибо большое! Всё заработало. Ошибку я понял.
Про функцию pos я знаю, но мне показалось, что по условию задачи она не совсем подойдет. Хотя может я ошибаюсь. Еще раз большое спасибо!

[BDA]

Имхо, не нужно на каждой итерации цикла присваивать 0 label'у.

procedure TForm1.Button1Click(Sender: TObject);
var
  s: string;
  i, n: integer;
begin
  s := Edit1.Text;
  n : =length(s);
  For i := 1 to n - 1 do
  if (s[i] = 'a') and (s[i] = s[i + 1]) then
  begin
    Label1.Caption := IntToStr(i);
    exit;
  end;
  Label1.Caption := '0';
end;

(Нужно изменить вот так цикл, например, иначе будет ответ на 1 больше нужного)
С pos будет проще, но преподаватель может сказать, что нужно было самому реализовать поиск.

procedure TForm1.Button1Click(Sender: TObject);
begin
  Label1.Caption := pos('aa', Edit1.Text);
end;

[anthonyk]

Спасибо, BDA. Код мой получился такой:

procedure TForm1.Button1Click(Sender: TObject);
var
  s:string;
  i,n:integer;
begin
  s:=Edit1.Text;
  n:=length(s);
  For i:=1 to n do
  if (s[i]='a') and (s[i+1]=s[i]) then
  begin
    Label1.Caption:=IntToStr(i);
    exit;
  end;
  Label1.Caption:='0';
end;

[BDA]

For i := 1 to n - 1 do

Иначе будет выход за границы строки.

[anthonyk]

Ок. Спасибо.

[anthonyk]

А можно еще намёк небольшой попросить у вас? Нужно организовать подсчет наибольшего количества определенных символов в строке, в моем случае - пробелов. Какие функции мне можно посмотреть?

Насколько я понял, мне в строке нужно найти первые несколько пробелов (или один пробел), запомнить его, дальше найти вторую группу пробелов, сравнить с первой, запомнить ту группу, которая больше, дальше найти третью группу пробелов и т.д. до конца строки, затем вывести наибольшее число пробелов. Все правильно?