VPF::Как определить есть ли в массиве 5 подряд символов

Alex103

Дата 16.2.2007, 02:46 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 416
Регистрация: 5.1.2005
Где: Украина, г. Харьк ов

Репутация: нет
Всего: нет

Есть такая проблемма у меня есть массив

Код


a:array [1..n]of char=(' ', 'E', 'E', 'E', 'E', 'E', ' ', 'A', 'B', 'C');

В этом массиве нужно определить есть ли в нем последовательность из 5 E или нет

Вот я попробывал реализовать это но не получилось, проблемма в том что все что стоит после else выписывает много раз

Код


for i:=1 to n do begin
if (A[i]='E') and (A[i+1]='E') and (A[i+2]='E') and(A[i+3]='E') and(A[i+4]='E') then
writeln('DA') else writeln('NET');
end;

Помогите разобраться

--------------------

Мой адресс не дом и не улица, мой адресс WWW

~FoX~

Дата 16.2.2007, 08:42 (ссылка)

(нет голосов)

Загрузка ...

НЕ рыжий!!!

Профиль
Группа: Участник Клуба
Сообщений: 2819
Регистрация: 8.10.2003
Где: Зеленоград

Репутация: 13
Всего: 68

Код


const
  a:array [1..10] of char=(' ', 'E', 'E', 'E', 'E', 'E', ' ', 'A', 'B', 'C');
var
  s: string;
begin
  s := a;
  if Pos('EEEEE', s) <> 0 then writeln('DA') else writeln('NET');
end;

Это сообщение отредактировал(а) ~FoX~ - 16.2.2007, 08:42

--------------------

…множественность никогда не следует полагать без необходимости…

Rodman

Дата 16.2.2007, 09:32 (ссылка)

(нет голосов)

Загрузка ...

CIO

Профиль
Группа: Участник
Сообщений: 6144
Регистрация: 7.5.2006
Где: Ukraine ⇛ Kyiv ci ty

Репутация: 7
Всего: 122

Код


count:=0;
for i:=1 to n do 
begin
   if (A[i]='E') then
         inc(count)
   else
        count:=0;
   if(count=5)then
      writeln('DA') 
    else 
       writeln('NET');
end;

--------------------

CRM с функцией АвтоОбзвона

Лотереи мира

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »