строки, скобки.... Опции

[Rom1k]

Строка символов представляет собой арифметическое выражение. Проверить правильность расстановки скобок в этом выражении. Скобки могут быть вложенными
пример работы программы:

(3+5)-4(4+1

ответ:

не хватает закрывающей скобки

Программа.Но она неправильная и не правильно работает.исправьте плиз!!!!

Program stroka;
uses crt;
var
  st,st1:string;
  i,l,r,k:integer;
begin
  clrscr;
  write(' Задайте строку содержащую скобки: ');
  readln(st);
  l:=0;
  r:=0;
  i:=1;
  while i<=length(st) do
   begin
     while ((st[i]<>'(') or (st[i]<>')')) and (i<=length(st)) do
       i:=i+1;
       if st[i]='(' then
         l:=l+1;
       if st[i]=')' then
         r:=r+1;
     if i>=length(st) then
       writeln(' В строке нет скобок')
     else
       writeln(' Левых скобок: ',l);
       writeln(' Правых скобок: ',r);
   end;
 repeat until keypressed
end.

Сообщение отредактировано: Rom1k - 23.05.2007 2:37