Задача на delphi

[anthonyk]

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

Есть такая задачка:

Даны символы s1, s2, ... . Известно, что символ s1 отличен от восклицательного знака и что среди s2, s3, ... есть по крайней мере один восклицательный знак. Пусть s1, s2,...,sn символы данной последовательности, предшествующие первому восклицательному знаку (n заранее неизвестно). Выяснить, имеется ли среди s1, s2,...,sn пара соседствующих букв но и он.

Написал код

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[1]='!' then Label1.Caption:='Первый символ не должен быть "!"' else
    begin
      if s[i]='!' then
          begin
        if (s[i-1]='н') and (s[i-2]='о') or (s[i-1]='о') and (s[i-2]='н') then

        Label1.Caption:='Есть сочетание символов "но" или "он" "!"'
          else
        Label1.Caption:='Нет сочетание символов "но" или "он" "!"';
          end;

    end;

end;

При поиске обрабатывает символы не только перед первым восклицательным знаком, но и перед всеми последующими, в ответ идет обработка символов перед последним восклицательным знаком.
Подскажите, пожалуйста, где ошибка?

[Sciv]

А так?

if ((s[i-1]='í') and (s[i-2]='î')) or ((s[i-1]='î') and (s[i-2]='í')) then

Не знаю пока, что там с кодом, но недоставленные скобки сразу бросились в глаза

[anthonyk]

Спасибо! Действительно, скобки не доставил. Но программа упорно не хочет работать как надо.

[Sciv]

Предложу свой вариант:

k:=0; {счетчик символов}
n:=pos('!',s); {получаем позицию первого восклзнака в строке}
{и делаем цикл только до предыдущего перед ним символа}
if n>1 then
  for i:=2 to n-1 do 
     if ((s[i-1]='н') and (s[i]='о')) or ((s[i-1]='о') and (s[i]='н')) then inc(k);
if k>0 then Label1.Caption:='Есть сочетание символов "но" или "он" перед "!" в количестве: '+IntToStr(k)
else Label1.Caption:='Нет сочетание символов "но" или "он" "!"';

И кстати говоря, пока писал - понял: в Вашем коде ошибка как раз в этих [i-1] и [i-2]. Цикл то идет от 1. А сколько будет 1-1? Тем более 1-2?

[anthonyk]

А я и не обратил внимания на то, сколько я отнимаю от i, и, что само i может и 2 равняться. И про функцию pos совсем забыл. Спасибо большое!