VPF::[Pascal] Задача на последовательность скобок

XimeR

Дата 3.6.2009, 01:41 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.6.2009

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

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

Дана последовательность круглых фигурных и квадратных скобок. Определить, нет ли "пересечения" скобок. Например, последовательность (([)])() НЕправильна, а последовательность (([()])()) - правильна.
Нашел исходник:

Код


var s:string;
    c:byte;
    b:boolean;
begin
     readln(s);
     b:=true;
     while b do
      begin
       b:=false;
       c:=pos('[]',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('()',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
       c:=pos('{}',s);
       if c>0 then
        begin
         delete(s,c,2);
         b:=true;
        end;
      end;
    if length(s)>0 then writeln('No')
    else writeln('Yes');
end.

Возникла еще одна сложность.
Если есть "пересечение", то при выводе строки на экран надо выделить цветом те скобки, из-за которых произошло "пересечение". Как реализовать?(с моими небольшими знаниями...)
Или тут придется по-другому писать?

neic

Дата 3.6.2009, 06:03 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 839
Регистрация: 28.1.2007

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

Насчёт выделения скобок используй TextColor

zim22

Дата 3.6.2009, 07:53 (ссылка)

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

Загрузка ...

depict1

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

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

кидайте в стек левые скобки. и извлекайте из стека, когда встречается правая скобка.
если извлечённой скобки отличается от типа закрывающей скобки - значит ошибочный порядок скобок.

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

C++ FAQ Lite

XimeR

Дата 3.6.2009, 20:58 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.6.2009

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

Цитата

Видел такие советы в инете, но блин в стеках и прочем я не силен, т.к. еще это не изучил...=(
А исходник только один нашел, который выложил...

А в этом коде не корректные скобки никак не подстветить при выводе?

I_Am_Rock

Дата 3.6.2009, 22:28 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 523
Регистрация: 18.1.2008

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

Цитата(XimeR @ 3.6.2009, 20:58

)

Видел такие советы в инете, но блин в стеках и прочем я не силен, т.к. еще это не изучил...=(

Принцип стека, насколько я знаю, такой.

Сначала так          1.# 2.# 3.# 4.# 5.# 6.#

потом, допустим, появилась квадратная скобка
стало так               1.[ 2.# 3.# 4.# 5.# 6.#

потом, допустим, круглая
стало так               1.( 2.[ 3.# 4.# 5.# 6.#
т.е. содержимое переместилось вправо

потом, допустим, квадратная
стало так               1.[ 2.( 3.[ 4.# 5.# 6.#
опять вправо, впуская новый элемент с левой стороны

а потом, допустим, закрывающая скобка. и если она совпадает с 1 (т.е. квадратная), то
становится так       1.( 2.[ 3.# 4.# 5.# 6.#
т.е. левый элемент убирается; процесс продолжается...

а если закрыв. скобка по своему типу не совпадает с крайним левым элементом, то значит ошибочка вышла.

Это сообщение отредактировал(а) I_Am_Rock - 3.6.2009, 22:29

XimeR

Дата 9.6.2009, 20:31 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.6.2009

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

Вот еще код :

Код


type 
  s=str[80];
  yk=^el;
  el=record
   inf:byte;
   adr:yk;
     end;
var  
  str:s;
  p:integer;
  na:yk;
const
  otkr:s=['(','[','{'];
  zakr:s=[')',']','}'];
function poisk(str[k]:char):integer;
procedure vkl(nom:byte);
...
begin
  writeln('vvedite stroku');
  readln(str);
  k:=1;
  while k<=streln(str) do
       begin
         p:=poisk(str[k]);
         if p<>0 then 
                     if p>0 then vkl(p)
                     else
                         begin
                           os=izwl;
                           if os=o then writeln (...);
                           if os<>-p then writeln ('ne ta otkr.skobka');
                         end;
       inc(k);
       end;
  if izwl <>0 then writeln ('lishnie skobki');
end.

Может кто-нибудь помочь дописать\исправить, а то я еще не разобрался, а надо, чтобы работала...

XimeR

Дата 2.7.2009, 11:50 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.6.2009

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

Что, вообще никаких вариантов?

Добавлено позже
Что, вообще никаких вариантов?

taiven

Дата 3.7.2009, 02:49 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 30.6.2008

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

Код


program prog;

function IsCorrect(s : string; len : integer) : boolean;
var
   temp : string;
   i : integer;
begin
     if (len mod 2) <> 0 then
     begin
          IsCorrect := false;
          exit;
     end;

     temp := '';

     for i := 1 to len do
     begin
          if (s[i] = '(') or (s[i] = '[') then temp := temp + s[i]
          else
          begin
               if ((temp[Length(temp)] = '(') and (s[i] = ')')) or ((temp[Length(temp)] = '[') and (s[i] = ']')) then
                  Delete(temp, Length(temp), 1)
               else
               begin
                    IsCorrect := false;
                    exit;
               end;
          end;
     end;

     IsCorrect := true;
end;


var
   str : string;
begin
     //str := '(([)])()';
     str := '(([()])())';

     if IsCorrect(str, Length(str)) then WriteLn('Good')
     else WriteLn('Bad');


     WriteLn;
     ReadLn;
end.

правда здесь не совсем стек получился smile

но идея таже, что предложил zim22

XimeR

Дата 3.7.2009, 22:56 (ссылка)

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

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 5
Регистрация: 3.6.2009

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

Цитата

Код


program prog;

function IsCorrect(s : string; len : integer) : boolean;
var
   temp : string;
   i : integer;
begin
     if (len mod 2) <> 0 then
     begin
          IsCorrect := false;
          exit;
     end;

     temp := '';

     for i := 1 to len do
     begin
          if (s[i] = '(') or (s[i] = '[') then temp := temp + s[i]
          else
          begin
               if ((temp[Length(temp)] = '(') and (s[i] = ')')) or ((temp[Length(temp)] = '[') and (s[i] = ']')) then
                  Delete(temp, Length(temp), 1)
               else
               begin
                    IsCorrect := false;
                    exit;
               end;
          end;
     end;

     IsCorrect := true;
end;


var
   str : string;
begin
     //str := '(([)])()';
     str := '(([()])())';

     if IsCorrect(str, Length(str)) then WriteLn('Good')
     else WriteLn('Bad');


     WriteLn;
     ReadLn;
end.

правда здесь не совсем стек получился smile

но идея таже, что предложил zim22

Что-то не пойму...Ввожу неправильную последовательность ([)] а пишет Good....Доделывать надо что-то?

taiven

Дата 3.7.2009, 23:16 (ссылка)

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

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 302
Регистрация: 30.6.2008

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

Цитата

Ввожу неправильную последовательность ([)] а пишет Good

Нет, не пишет smile

Понятия не имею почему у вас пишет Good. Попросите чтоб проверил кто-то ещё...

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