1. Заголовок темы должен быть информативным. В противном случае тема удаляется ... 2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения. 3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали! 4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора). 5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM! 6. Одна тема - один вопрос (задача) 7.Проверяйте программы перед тем, как разместить их на форуме!!! 8.Спрашивайте и отвечайте четко и по существу!!!
Задача на проверку баланса скобок в строке, я решение знаю, предложи свое
Задача. В строке могут содержаться скобки '}',']',')','{','[','('. Прверить баланс скобок в строке. Считать, что он соблюдается, если: 1) для каждой открывающей скобки есть своя закрывающая и наоборот; 2) соблюдается вложеность; На выходе вывести 'false' или 'true' в зависимости от ответа. пример:
Код
[(a+B)+c{b-a}]*{(a+c)(c-a)} - баланс скобок соблюден [(a+B)+c{b-a] - баланс не соблюден: нет закрывающей скобки '}' [(a+B)+c{b-a]} - баланс не соблюден: неправильная вложенность
какие предложения, господа?
Сообщение отредактировано: Pioneer -
--------------------
Я не буду жить с этой злобой внутри / Я не буду частью смертельной цепи / Я не буду потребителем твоих идей / Я не буду никогда убивать зверей (Unconform)
Это круто! Положительные эмоции - один из важнейших инструментов разработки :D
1. Классика:
var s: String; Stack: array[0..127] of Char; sp, i: Integer;
procedure Push(c: Char); begin if sp < 0 then begin Writeln(False); Halt; end; Stack[sp] := c; Dec(sp); end;
begin Write('s>'); Readln(s); Stack[127] := #0; sp := 126; for i := 1 to Length(s) do case s[i] of '(': Push(')'); '[': Push(']'); '{': Push('}'); ')', ']', '}': begin Inc(sp); if (s[i] <> Stack[sp]) then begin Writeln(False); Halt; end; end; end; Writeln(sp = 126); end.
2. С использованием динамической памяти:
type PItem = ^TItem; TItem = record Next: PItem; c: Char; end;
begin Write('s>'); Readln(s); sp := nil; Push(#0); for i := 1 to Length(s) do case s[i] of '(': Push(')'); '[': Push(']'); '{': Push('}'); ')', ']', '}': begin if (s[i] <> sp^.c) then begin Writeln(False); Halt; end; p := sp; sp := sp^.Next; Dispose(p); end; end; Writeln(sp^.c = #0); end.
3.
Цитата("Справочник практического врача (под ред. проф. И. Г. Кочергина) @ издание второе, М.: Медицина, 1969")
БРЕДОВОЙ СИНДРОМ. Бред - ложное, возникшее на болезненной основе не соответствующее действительности, полностью овладевающее сознанием больного умозаключение (суждение), не поддающееся исправлению никакими доводами... Бред - несомненный признак психического заболевания...
type TCheck = procedure;
var s: String; Stack: array[0..127] of Char; sp, i: Integer;
procedure Push(c: Char); begin if sp < 0 then begin Writeln(False); Halt(0); end; Stack[sp] := c; Dec(sp); end;
procedure Push1; begin Push(')'); end;
procedure Push2; begin Push(']'); end;
procedure Push3; begin Push('}'); end;
procedure Pop; begin Inc(sp); if (s[i] <> Stack[sp]) then begin Writeln(False); Halt(0); end; end;
procedure Null; begin end;
var Check: array[Char] of Pointer;
begin Write('s>'); Readln(s);
for i := 0 to 255 do Check[Chr(i)] := @Null; Check['('] := @Push1; Check['['] := @Push2; Check['{'] := @Push3; Check['}'] := @Pop; Check[')'] := @Pop; Check[']'] := @Pop;
Stack[127] := #0; sp := 126; for i := 1 to Length(s) do TCheck(Check[s[i]]); Writeln(sp = 126); end.