Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке
Можно так:
procedure TForm1.Button1Click(Sender: TObject);
var
s :string;
i,o,c :integer;
begin
s:=Edit1.Text;
o:=0; c:=0;
for i:=1 to length(s) do
begin
if s[i]='(' then inc(o);
if s[i]=')' then inc(c);
end; if o<>c then Edit2.Text:='Не одинаковое количество скобок!' else Edit2.Text:='Одинаковое количество скобок!'; end; |