Логические операторы в delphi

[Nancy90]

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

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
if s[i] and s[i-1]='e'
then c:=c+1;
if s[i] and s[i+1]<>'e'
then c:=0;
if c=5 then Label3.Caption:='Да'
else Label3.Caption:='Нет'
end;

[Zer0]

Условие пишется немного иначе:
if (s[i]='e') and (s[i-1]='e') (если я правильно понял что Вам вообще нужно)
И не забываем скобки

[Serge_Bliznykov]

if (s[i]='e') and (s[i-1]='e')

Zer0, формально, Вы абсолютно правы, теперь код начнёт компилироваться, но, т.к. цикл по I начинается от 1 до первое же s[i-1] даст s[0] - что, как минимум - некорректно..

Nancy90
такие задачи нужно решать, подсчитывая, сколько раз в цикле выполнилось условие.

примерно так:

MaxC := 0;
c := 0;
for i:=1 to Length(s)
  if s[i]='e' then begin 
     inc(c);
     if c>MaxC then MaxC := C;
  end
  else c := 0;

Label3.Caption:='Максимально подряд в данной строке встретилось '+IntToStr(MaxC)+' букв e';

ну и ещё разобрать (для себя) исходное условие. Если букв подряд будет не пять, а шесть или семь - какой ответ выдавать - есть в строке пять подряд идущих букв или нет?!
Если нужно строго пять подряд, не больше-не меньше, тогда if (MaxC=5) then ....

[Nancy90]

Спасибо вам большое!))) Так действительно работает!) Нужно (как я поняла) что бы программа выдала есть или нет в строке 5 подряд идущих букв e...

[VIK_aka_TOR]

if (a<b) and (b<c) then 
  x1 := true;

и на будущее... не пишите свой вопрос в чужой теме....

[ViktorR]

Soft366rus
1. Будет лучше, если будешь создавать свою тему, см. кнопку "Новая тема".
2. Написал код, выдели его и нажми кнопку #, которая находится над окном редактируемого текста.
3. Переменные a, b, c - у тебя числа, а описаны как логические выражения:

Var a, b, c: integer;
         x1: boolean;

4. x1 - логическая переменная, которой ты присваиваешь значение:

if ((a<b) and (b<c)) then x1:=true;

Скобками пренебрегать не следует.
5. По условию задачи тебе надо проверить цифры заданного трехзначного числа. Т.е. надо уметь выделять цифры числа, например, так:

readln(Chislo);
a := Chislo MOD 10; {Получили остаток, т.е. десятки}
Chislo := Chislo DIV 10; {Поделили число на десять целочисленно}
b := Chislo MOD 10; {Выделили сотни}
Chislo := Chislo DIV 10; {Поделили число на десять целочисленно}
с := Chislo MOD 10; {Выделили тысячи}

Внимание, это только пример для понимания. Так, пользователь может ввести и одну цифру или 5 (пятизначное число). Это лучше проверять.
А если две цифры числа одинаковые а третье больше?
А может лучше выделение цифр оформить циклом While?


И т.д. ...

[Soft366rus]

я всё понял) спасибо большое!)