Дано арифмитическое выражение проверить правельность ввода скобок если введено не правильно выдать на экран ошибку

@Zorroo · Регистрация: 19.12.2012

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

Дано арифмитическое выражение проверить правельность ввода скобок если введено не правильно выдать на экран ошибку.
Например
(а/b)*(2+5)) ошибка
Пытался сделать через счетчик А=а+1 если ( а=а-1 если а=0 то правильно
но немогу помогите

@CodeR · 23.02.2013, 09:20

Pascal

For i:=1 to Length(s) do
 if s[i]='(' then inc(k)
  else if s[i]=')' then dec(k);
if k>0 then writeln('Не хватает закрывающих скобок ',k)
 else k<0 then writeln('Не хватает открывающих скобок ',-k)
  else writeln('Записано верно!');

@Zorroo · 23.02.2013, 13:57 **[ТС]**

Без этого можешь сделать,
inc(k)
dec(k);

@CodeR · 23.02.2013, 14:04

Сообщение от Zorroo

Без этого можешь сделать,
inc(k)
dec(k);

Pascal

1 2	k:=k+1; k:=k-1;

@Zorroo · 23.02.2013, 15:30 **[ТС]**

Спасибо большое

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
		1
	Дано арифмитическое выражение проверить правельность ввода скобок если введено не правильно выдать на экран ошибку 22.02.2013, 18:39. Показов 776. Ответов 4 Метки нет (Все метки) Дано арифмитическое выражение проверить правельность ввода скобок если введено не правильно выдать на экран ошибку. Например (а/b)*(2+5)) ошибка Пытался сделать через счетчик А=а+1 если ( а=а-1 если а=0 то правильно но немогу помогите 0

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	23.02.2013, 13:57 [ТС]	3
	Без этого можешь сделать, inc(k) dec(k); 0

@Zorroo 0 / 0 / 1 Регистрация: 19.12.2012 Сообщений: 178
	23.02.2013, 15:30 [ТС]	5
	Спасибо большое 0