Архив форумов ЦИТФорума

[Don]

Здраствуйте.
Проблема такая: дан программный файл на Паскале, необходимо подсчитать колличество вложенных циклов (while,for,repeat). Никак немогу продумать алгоритм подсчета.
Help please.

[Борис]

-

[Don]

Т.е. надо подсчитать количество вложенных while и т.д.
например
while not eof(f) do
while not eoln(f) do
begin
...
end;
for i:=1 to n do ....

while ... do
begin
...
end;

т.е. здесь колич. влож. циклов =1
Еще надо учитывать то что циклы могут быть одной строкой т.е. без begin и end.

[Борис]

Используй стек. Счетчик слов увеличивай, если встретившийся цикл находится не в основании стека. Стек увеличивай, если сразу за do стоит контрольное слово (while,for,repeat) или begin? а уменьшай, если встретилась ";" без begin или end при наличии begin. Естественно if then [begin-end] else [begin-end] игнорировать.

Примерно так. Подходит?

[Don]

Спасибо что отвечаете на мои вопросы.
Со стеками я плохо знаком.
Вы не могли бы выслать сам код программы?
А то мне в 30 июня сдавать надо.

p.s. а можно ли без использования стеков?

[Борис]

Вместо стека использовать логическую переменную, имеющую значения "цикл на нулевом уровне/цикл на ненулевом уровне". Но это, вероятно, будет более запутанный алгоритм.

Вместо стека использовать числовую переменную, имеющую значения "номер уровня вложения". Начальное значение ноль. Но этот алгоритм в точности аналогичен стековому, только вместо стека как структуры используется стек как число -- номер уровня.

>> Вы не могли бы выслать сам код программы?
Мог бы, но за плату , за достойную.

[Don]

оплатить я наверное не смогу так как у меня нет ни счета ни карточки.