Проверить баланс скобок в выражении

@adams1995 · Регистрация: 08.02.2014

Author24 — интернет-сервис помощи студентам

Проверить баланс скобок в арифметическом выражении по следующему алгоритму:сравнивать по очереди каждый символ с"(" и ")". Если очередной символ "(", тогда некоторую числовую переменную (в начале ее нужно обнулить) увеличиваем на 1, если символ ")", тогда уменьшаем на 1.
если закрывающая скобка появилась раньше, чем открывающая, тогда значение числовой переменной стает отрицательным - скобки не сбалансированы, и последующую проверку можно приостановить .
Если текст проверен до конца, и значение переменной = 0, то скобки сбалансированы.

@Puporev · 11.02.2014, 13:49

Pascal

var i,k,res:integer;
    s:string;
    b:boolean;
begin
writeln('Ââåäèòå ñòðîêó, ñîäåðæàùóþ êðóãëûå ñêîáêè');
read(s);
res:=0;
k:=0;
i:=1;
while (i<=length(s))and(res=0) do
 begin
  if s[i]='('then inc(k);{åñëè îòêðûâàåì +1}
  if s[i]=')'then dec(k);{çàêðûâàåì -1}
  if k<0 then res:=1{åñëè ðåçóëüòàò ñ íàðàñòàíèåì -, ýòî íîìåð íàðóøèòåëÿ}
  else inc(i);{èíà÷å âïåðåä}
 end;
if k=0 then write('Ñêîáêè ñáàëàíñèðîâàíû')
else write('Ñêîáêè íå ñáàëàíñèðîâàíû')
end.

@adams1995 · 11.02.2014, 14:21 **[ТС]**

Спасибо большое за помощь

@adams1995 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 20
		1
	Проверить баланс скобок в выражении 11.02.2014, 13:35. Показов 1300. Ответов 2 Метки нет (Все метки) Проверить баланс скобок в арифметическом выражении по следующему алгоритму:сравнивать по очереди каждый символ с"(" и ")". Если очередной символ "(", тогда некоторую числовую переменную (в начале ее нужно обнулить) увеличиваем на 1, если символ ")", тогда уменьшаем на 1. если закрывающая скобка появилась раньше, чем открывающая, тогда значение числовой переменной стает отрицательным - скобки не сбалансированы, и последующую проверку можно приостановить . Если текст проверен до конца, и значение переменной = 0, то скобки сбалансированы. 0

@adams1995 0 / 0 / 0 Регистрация: 08.02.2014 Сообщений: 20
	11.02.2014, 14:21 [ТС]	3
	Спасибо большое за помощь 0

Проверить баланс скобок в выражении

Решение