Задача со скобками в Паскале

[SEREG@]

Уважаемые программисты,помогите решить задачу со скобками в Паскале.Учитель сказал,что задача зачетная,т.е. если решу поставит зачет,если нет... Вот условие задачи:составить задачу,которая при вводе операции со скобками должна определить правильная ли операция или нет,в конце операции должна быть точка.
Например:
(1+2+3). -правильная операция
(1+2+3(. -не правильная.
Или например:
)1+2(+1)+2(. -операция не верная,хотя количество скобок одинаковое.
Я пробовал через количество скобок посчитать,но как видите это не верно.Мои одногрупники как то решали через счетчик,но учитель сказал,что можно решить просще.Пожалуйста помогите,завтра уже надо задачу сдать

[Greblin]

Если задача только в том, чтобы проверить корректность скобок, то вот:

program skobki;

var s: string;
     i: integer;
     otkr, zakr: integer;
     correct: boolean;

begin
...
//в s считываешь исходную строку
otkr := 0;
zakr := 0;
correct := true;
for i := 1 to length(s) do
  begin
  if s[i] = '(' then
    inc(otkr)
  else
    if s[i] = ')' then
      begin
      inc(zakr);
      if zakr > otkr then
        begin
        correct := false;
        break;
        end;
      end;
  end;
if correct then
  if zakr <> otkr then
    correct := false;

if correct then writeln('OK')
else writeln('Error');
end.

[SEREG@]

Сообщение от Greblin

Если задача только в том, чтобы проверить корректность скобок, то вот:

program skobki;

var s: string;
     i: integer;
     otkr, zakr: integer;
     correct: boolean;

begin
...
//в s считываешь исходную строку
otkr := 0;
zakr := 0;
correct := true;
for i := 1 to length(s) do
  begin
  if s[i] = '(' then
    inc(otkr)
  else
    if s[i] = ')' then
      begin
      inc(zakr);
      if zakr > otkr then
        begin
        correct := false;
        break;
        end;
      end;
  end;
if correct then
  if zakr <> otkr then
    correct := false;

if correct then writeln('OK')
else writeln('Error');
end.

Спасибо большое за помощь,но может мне кто нить обьяснить,что делает операция break и вот эта вот фраза "begin inc(zakr);" inc это что?Можно как нить задачу упростить,чтоб не было этих операций или заменить их?

[Artificial]

Inc - увеличивает zakr на единицу, break прерывает работу.

[Greblin]

break - это принудительный выход из цикла, его можно выкинуть. inc(i) - это то же самое, что i := i + 1, только реализованное с помощью процессорных функций

[SEREG@]

Сообщение от Greblin

break - это принудительный выход из цикла, его можно выкинуть. inc(i) - это то же самое, что i := i + 1, только реализованное с помощью процессорных функций

Большое спасибо,очень признателен.

[mutabor]

Мои одногрупники как то решали через счетчик,но учитель сказал,что можно решить просще

Тот вариант что предложил Greblin тоже со счетчиком, даже с двумя.

[JTG]

Препод наверняка хочет через динамическую память и стек, классика, нас так же грузили, тока я уже не помню как делал. Гугли 'проверка парности скобок стек'