| [ следующий ] [ начало главы ] [ предыдущий ] | [ содержание ] |
| Номер теста | Проверяемый случай | Данные | Результат |
| 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.
