вторник, 23 июня 2009 г.

число открывающихся и закрывающихся

Проверить, одинаковое ли число открывающихся и закрывающихся скобок в данной строке.

...
{инициализация счётчика}
count:=0;

{переберём все символы строки}
for i:=1 to length(s) do begin
if s[i] = '{' then begin
count:=count+1; {увеличим счётчик скобок}
continue;
end;

if s[i] = '}' then begin
count:=count-1;{уменьшим счётчик скобок}
continue;
end;
end;
...


полный вариант программы с дополнительными проверками можно скачать тут

Комментариев нет:

Отправить комментарий