Стек

[kalosha-stepa]

Написать программу, проверяющую своевременность закрытия скобок вида (, ), [, ], {, }

вот часть проги почти вся но есть недочеты например если(((()) он говорит правильная, а если (())))- наоборот неправильная

program z2;

type
  stack = ^Elem;
  Elem = record
    data: char;
    next: stack;
  end;

var
  head: stack; s: string; f: boolean;n: char;

procedure WriteStack(var head: Stack; n: char);
var
  temp: stack;
begin
  new(temp);
  temp^.data := n;
  temp^.next := head;
  head := temp;
end;

procedure ReadStack(var head: stack; n: char);
var
  temp: stack;
begin
  n := head^.data;
  temp := head;
  head := head^.next;
  dispose(temp);
end;

function Free(head: stack): boolean;
begin
  if(head = nil) then Free := true
  else Free := false;
end;

procedure Solve(a: string; var p: boolean);
var
  head: stack; i: integer; Ch: char;
begin
  Head := nil;
  p := true;
  i := 1;
  while(i <= length(a)) and p do 
  begin
    if a[i] in ['(', '{', '['] then WriteStack(head, a[i])
    else begin;
      if not Free(head) then begin
        ReadStack(head, ch);
        if (ord(ch) - ord(a[i])) > 2 then p := false;
      end
      else p := false;
    end;
    inc(i);
  end;

begin
  writeln('введите строку');
  readln(s);
  if (s <> '') then begin
    Solve(s, f);
    if f then writeln('строка записана правильно')
    else writeln('в строке есть ошибка');
  end
  else writeln('строка пустая');
  writeln;
  Writestack(head, n);
  Readstack(head, n);
  Free(head);
end.

+добавить условие на проверку букв в строке если они есть не выдавать ошибку
Заранее спасиб



___________
Код нужно оформлять по правилам:
тегом [CODE]..[/СODE] (это кнопочка с решёточкой #)
Не забывайте об этом!
Модератор.

[grandmixer]

проверяй все открытые скобки и увеличивай переменную 1
потом тоже самое с закрытыми и увеличивай переменную 2
если не совпали то не правильно

[BDA]

grandmixer, а если ([)]?
http://programmersforum.ru/showthread.php?t=178071 - похожая задачка (только обсуждение).