Консольное приложение

[TRANE82]

Проверить, имеется ли в заданном пpедложении баланс открывающих и закрывающих
скобок ( ).

[NinjaNoob]

Если я правильно понимаю, нужно просто посчитать количество левых и правых скобок в строке, а потом сравнить их количество

[TRANE82]

Ну не совсем) Не знаю как обьяснить, поэтому покажу на примере))

вапывапыв(ывапывап)выапывап((ЫВапвыап)ывапывап)выапывап(

Вот например в предложении выше есть баланс таких скобок, тоесть они открываются и закрываются)

sdfasdF)asdfasdf(asdfasdf(asdf

А тут нету))

[BDA]

Язык неплохо бы было указывать
Паскаль:

function brackets_balance(s: string): boolean;
var
  count, i: integer;
begin
  count := 0;
  brackets_balance := false;
  for i := 1 to length(s) do
    if s[i] = '(' then
      inc(count)
    else if s[i] = ')' then
      if count = 0 then
        exit
      else
        dec(count);
  if count = 0 then
    brackets_balance := true;
end;

[TRANE82]

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

Язык неплохо бы было указывать
Паскаль:

function brackets_balance(s: string): boolean;
var
  count, i: integer;
begin
  count := 0;
  brackets_balance := false;
  for i := 1 to length(s) do
    if s[i] = '(' then
      inc(count)
    else if s[i] = ')' then
      if count = 0 then
        exit
      else
        dec(count);
  if count = 0 then
    brackets_balance := true;
end;

Ход ваших мыслей я понял, но программа работает немного не так)
Я ее переделал в нужном направлении:

function brackets_balance(s: string): boolean;
var
  i,j,k,l: integer;
begin
  brackets_balance := false;
  for i := 1 to length(s) do
    if s[i] = '(' then
      for j:=i to length(s) do
        if s[j]=')' then brackets_balance := True
        else
  for k :=1 to length(s) do
    if s[k] = ')' then
      for l:=i to length(s) do
        if s[l]='(' then brackets_balance := True
        else brackets_balance := false;
end;

Спасибо за предложенный вариант, он мне помог)))

[Serge_Bliznykov]

TRANE82, Вы взяли корректный и правильный вариант и превратили его в нечто неудобоваримое!

я в шоке.

Какие строки Вы считаете имеют баланс скобок?

var ss : string;
begin
 ss := '((((( ) ((((';
 WriteLn(ss,' ',brackets_balance(ss) );
 ss := 'вы(ып)ап((Ывыап)ывапывап)вы (((апывап((((';
 WriteLn(ss,' ',brackets_balance(ss) );
 ss := ' a ( b ) ';
 WriteLn(ss,' ', brackets_balance(ss) );
 Readln;
end.

после вашей модификации кода получаем результаты
'вы(ып)ап((Ывыап)ывапывап)вы (((апывап((((' - правильный баланс ?!
'((((( ) ((((' - правильный баланс ?!?!?!?
' a ( b ) ' - неправильный баланс
' ( a (( b) ) ) ' - неправильный баланс
' ( a ( b) ) ' - неправильный баланс

где логика?!

[BDA]

Пожалуйста, хотя я не понял, что значит для Вас баланс скобок

[TRANE82]

Вы меня не поняли)
Вот оканчательный код:

program Ex_1;

var
  Str:string;

function brackets_balance(s: string): boolean;
var
  i,j,k,l: integer;
begin
  brackets_balance := false;
  for i := 1 to length(s) do
    if s[i] = '(' then
      for j:=i to length(s) do
        if s[j]=')' then brackets_balance := True
        else
  for k :=1 to length(s) do
    if s[k] = ')' then
      for l:=i to length(s) do
        if s[l]='(' then brackets_balance := True
        else brackets_balance := false;
end;

begin
Writeln('Vvedite stroky: ');
Readln(Str);

if  brackets_balance(Str)=True then write('Zdes est balans skobok ( i ).')
                               else write('Zdes net balansa skobok ( i ).');

Readln;
end.

[BDA]

Мы отлично понимаем, как использовать функцию. Если Вас все устраивает, то замечательно, но мы АБСОЛЮТНО не видим логики в Вашей функции. Вы можете объяснить, что Вы называете балансом скобок?

[Serge_Bliznykov]

BDA, +1

TRANE82,
введите в вашу программу строчку:
a ( b )
и она скажет, что в этой строке: 'Zdes net balansa skobok '
вопрос - почему?!

введите в вашу программу строчку:
((((( ) ((((
и она скажет, что в этой строке: ''Zdes est balans skobok '
вопрос - почему?!!



p.s. Если нужно, чтобы значение булевой функции/переменной было True,
не нужно писать if brackets_balance(Str)=True then
достаточно просто указать if brackets_balance(Str) then