spravne_uzavorkovani_-_vice_druhu_zavorek [Programování]

 
const max = 100;
 
type
  Zasobnik = record
    data:array [1..max] of char;
    indexVrcholu:integer;
  end;
 
var
  i: integer;
  z: zasobnik;
  s: string;
 
function pop (var Z: Zasobnik): char;
begin
  pop := z.data[z.indexVrcholu];
  z.indexVrcholu := z.indexVrcholu - 1;
end;
 
procedure push (var z: Zasobnik; var co: char);
begin
  z.indexVrcholu := z.indexVrcholu + 1;
  z.data[z.indexVrcholu] := co;
end;
 
function odpovidajiSi (oteviraci, uzaviraci: char):boolean;
begin
  odpovidajiSi := false;
  if ( ((oteviraci = '(') and (uzaviraci =')')) or
       ((oteviraci = '[') and (uzaviraci =']')) or
       ((oteviraci = '{') and (uzaviraci ='}')) )
    then odpovidajiSi := true;
end;
 
function oteviraci (zavorka: char): boolean;
begin
  oteviraci := false;
  if ((zavorka='(') or (zavorka='[') or (zavorka='{')) then
    oteviraci := true;
end;
 
function uzaviraci (zavorka: char): boolean;
begin
  uzaviraci := false;
  if ((zavorka = ')') or (zavorka = ']') or (zavorka = '}')) then
    uzaviraci := true;
end;
 
function prazdny (z: zasobnik): boolean;
begin
  prazdny := false;
  if z.indexVrcholu = 0 then
    prazdny := true;
end;
 
function uzavorkovani (var s: string): boolean;
begin
  z.indexVrcholu := 0;
  for i := 1 to length(s) do begin
    if (oteviraci(s[i])) then
      push (z,s[i])
    else if (uzaviraci(s[i])) then begin
      if prazdny(z) or (not odpovidajiSi(pop(z),s[i])) then begin
        uzavorkovani := false;
        exit;
      end;
    end;
  end;
  uzavorkovani := prazdny(z);
end;
 
begin
  write ('Napiste retezec slozeny za samych zavorek: ');
  readln(s);
  write ('Retezec je spravne uzavorkovany ',uzavorkovani(s));
  readln;
end.