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

@sigmanata · Регистрация: 02.03.2015

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

В арифметическом выражении, записанном в одну строку, есть круглые, квадратные и фигурные скобки. Верно записано
выражение?

@Joy · 12.03.2015, 14:09

проверять правильность расстановки скобок или еще математические операции, математические функции?

@APALoff · 12.03.2015, 15:21

Joy, наверное только скобки... а то это будет уже слишком высокий уровень.

Добавлено через 8 минут

Pascal

Function Check(St : String) : Boolean;
Var i : Byte;
Begin
  For i:=Length(St) downto 1 do
    If not (St[i] in ['(',')','{','}','[',']']) then Delete(St,i,1);
  While (Pos('()',St)>0) or (Pos('{}',St)>0) or (Pos('[]',St)>0) do
  Begin
    While Pos('()',St)>0 do Delete(St,Pos('()',St),2);
    While Pos('{}',St)>0 do Delete(St,Pos('{}',St),2);
    While Pos('[]',St)>0 do Delete(St,Pos('[]',St),2);
  end;
  Check:=Length(St)=0;
end;
 
Var S1,S2 : String;
Begin
  S1:='(a+b)*{34-c}-[35-x*45]';
  S2:='(a+b)*{34-c]-{35-x*45]';
  Writeln(Check(S1));
  Writeln(Check(S2));
end.

@sigmanata 0 / 0 / 0 Регистрация: 02.03.2015 Сообщений: 13
		1
	Проверка правильности расстановки скобок 12.03.2015, 13:34. Показов 2333. Ответов 2 Метки нет (Все метки) В арифметическом выражении, записанном в одну строку, есть круглые, квадратные и фигурные скобки. Верно записано выражение? 0

@Joy 2385 / 1297 / 1492 Регистрация: 29.08.2014 Сообщений: 4,661
	12.03.2015, 14:09	2
	проверять правильность расстановки скобок или еще математические операции, математические функции? 0

Опции темы

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

Решение