[Nancy90]

Задача такая: Даны натуральное число n , символы s1,s2...sn . Выяснить, верно ли, что в последовательности имеются пять идущих подряд букв е.
Написала код, но выдает ошибку( выделила жирным), а почему не понятно

Код:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15

procedure TForm1.Button1Click(Sender: TObject); var s:string; i,c,n:integer; begin n:=StrtoInt(Edit1.Text); s:=Edit2.Text; for i:=1 to n do <b>if s[i] and s[i-1]='e'</b> then c:=c+1; <b>if s[i] and s[i+1]<>'e'</b> then c:=0; if c=5 then Label3.Caption:='Да' else Label3.Caption:='Нет' end;

Админ: пользуемся тегами для оформления кода!

[Pilot_Red]

if (s[i]='e') and (s[i-1]='e') вот так должно быть. С второй строчкой тоже самое

[Pyro]

PHP код:

function check(s: string; c: char='e'; num: Integer=5): Boolean;
var i, n: integer;
begin
  result := false;
  n := 0;
  i := 1;
  while i <= length(s) do
  begin
    if s[i] = c then Inc(n) else n := 0;
    if n = num then begin
      result := true;
      break;
    end;
    Inc(i)
  end;
end; 


[Aristarh Dark]

А что pos уже отменили????

[Nancy90]

Ой спасибо огромное, заработал теперь!))

[Bargest]

Крутые челы не используют POS.

[friz]

2 Bargest ,
Угу, и будешь потом как один мой знакомый, который писал прогу на c# и надо было ему вызвать dll, так он вместо одной строчки кода накорябал целый модуль который вызывал метод delphi, подгружал dll и передавал в c#
sorry za offtop. ГЫ!