Пример 7.5. Проверить, имеется ли в линейной записи заданной математической формулы баланс открывающих и закрывающих скобок.

Система тестов

Номер 
теста
Проверяемый 
случай
Данные Результат
1 При просмотре линейной записи слева направо первой встречается закрывающая скобка ''a)b+1('' ''Нет баланса''
2 Первой встречается открывающая скобка, но число открывающих и закрывающих скобок не совпадает ''(a+b))'' ''Нет баланса''
3 Есть баланс скобок ''(a+b/(c*d))'' ''Есть баланс''



Школьный АЯ
алг Баланс скобок(арг лит S, рез лит Otvet) нач цел Dlina, Flag, i
  i:=1; Flag:=0; Dlina:=длин(S)
  нц пока (Flag>=0) и (i<=Dlina)
если S[i] = "("
то Flag:=Flag+1
все
если S[i] = ")"
то Flag:=Flag-1
все
i:=i+1
  кц
  если Flag=0
то Otvet := "Есть баланс"
иначе Otvet := "Нет баланса"
  все
кон
 
Turbo Pascal

Program Balance;
  Uses Crt;
  Var S   : String;
  Dlina, Flag, i : Integer;
BEGIN ClrScr;
  GotoXY(15, 5);
  Write('Введите линейную запись математической формулы :'); 
  GotoXY(32,7); ReadLn(S);

  i:=1; Flag:=0; Dlina:=Length(S);
  While
(Flag>=0) and (i<=Dlina) do
  begin
  If
S[i] = '(' then Flag:=Flag+1;
  If
S[i] = ')' then Flag:=Flag-1;
  i:=i+1
  end;

  GotoXY(32, 9); WriteLn('О т в е т');
  GotoXY(15,11);
  If
Flag=0 then Write('Есть баланс ') else Write('Нет баланса ');
  WriteLn('открывающих и закрывающих скобок');
  ReadLn
END.
 
QBasic

CLS
INPUT "Введите линейную запись математической формулы :", S$
i = 1 : Flag = 0 : Dlina = LEN(S$)
WHILE
Flag >= 0 AND i <= Dlina
  IF MID$(S$, i, 1) = "(" THEN Flag = Flag + 1
  IF
MID$(S$, i, 1) = ")" THEN Flag = Flag - 1
  i = i + 1
WEND

PRINT : PRINT "О т в е т"
IF
Flag = 0 THEN PRINT "Есть баланс "; ELSE PRINT "Нет баланса ";
PRINT "открывающих и закрывающих скобок"
END