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

[TRANE82]

Сообщение от 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

Я ввожу
a ( b )
Мне выводит: ''Zdes est balans skobok "

У меня так работает так, не знаю почему у вас по другому

[Serge_Bliznykov]

я взял 3 (три) разных компилятора.

TurboPascal 7.0
Pascal ABC
Delphi 5

вставил в них такой код:

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);}
Str := 'a ( b ) ';

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

Readln;
end.

во всех трёх случаях я получил ответ:

Zdes net balansa skobok ( i ).

Если есть сомнения, могу приложить скриншоты.

Поэтому, я не знаю, что Вы и как делаете...

Чем Ваш баланс скобок отличается от обычного стандартного общепринятого математического баланса открывающих и закрывающих скобок (то, что проверял код, данный Вам BDA)?!
Это я пытаюсь узнать исключительно из личного любопытства!



впрочем, к сожалению, я вижу, наша дискуссия постепенно заходит в тупик...
Возможно, нам следует принять тот факт, что Вас ваша программа полностью устраивает и прекратить это обсуждение..

[TRANE82]

Вот мой скриншот:
Безымянный.jpg

[BDA]

Вообще странно
Возможно, что у Вас как-то по-другому выполняется else (только предположение).
Еще в копилку проверенных компиляторов:
Паскаль (fpc) http://ideone.com/f4ix2b
Паскаль (gpc) http://ideone.com/looee4

[Sciv]

Уважаемый ТС, а теперь введите (a) b и удивитесь результату

Неправильно все-таки Ваш код работает.

Или Вы собираетесь это сдавать, не вводя ничего, кроме a (b) ?

[BDA]

Работа Вашей функции:
a(b) - Zdes est balans skobok ( i ).
a(b). - Zdes net balansa skobok ( i ).

Чем Ваш баланс скобок отличается от обычного стандартного общепринятого математического баланса открывающих и закрывающих скобок?!

Пожалуйста, ответьте.

[Serge_Bliznykov]

Вот мой скриншот:

Вы, наверно, невнимательно прочитал мой пост.
у меня не выражение "a ( b )"
которое у Вас на скриношоте. у меня после закрывающей скобки ПРОБЕЛ!

введите в конце данной строки ПРОБЕЛ(Ы).
вот так:

"a ( b )     "

и проверьте свою "чудо-функцию"!!!

Впрочем, Вы не отвечаете на простой и очевидный вопрос

Чем Ваш баланс скобок отличается от обычного стандартного общепринятого математического баланса открывающих и закрывающих скобок?!