Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Вниз

вложенные циклы   Найти похожие ветки 

 
Dan   (2003-06-25 06:21) [0]

Здраствуйте мастера.
Текст программы на Паскале хранится в файле на диске, необходимо
определить максимальную степень вложенности циклов в программе?

Help please.


 
MBo   (2003-06-25 06:27) [1]

простенький синтаксический анализатор - встретил начало цикла (for, while, repeat) - увеличил счетчик на 1. конец - уменьшил.


 
Dan   (2003-06-25 06:47) [2]

не понял а зачем в конце уменьшать? и что уменьшать счетчик?

например
while eof(f) do
while eoln(f) do
begin
...
end;
for i=1 to n do ...;

макс. сттеп. влож=1

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


 
MBo   (2003-06-25 06:52) [3]

while eof(f) do Inc(Cnt) Cnt=1 MaxCnt=1
while eoln(f) do Inc(Cnt) Cnt=2 MaxCnt=2
begin
...
end; Dec(cnt) Cnt=1 MaxCnt=2// конец 2-го while
Dec(Cnt) Cnt=0 MaxCnt=1 // и первого тоже
for i=1 to n do ...; Inc(Cnt) Cnt=1 MaxCnt=2
Вус(Cnt) Cnt=0 MaxCnt=2




 
jack128   (2003-06-25 06:52) [4]

1) если после do идет while - то цикд вложеный
2) если после do идет begin и до соответствующего end"a встретился while - цикл вложенный


 
MBo   (2003-06-25 07:02) [5]

Dec(Cnt) Cnt=0 MaxCnt=1 // и первого тоже
описка - MaxCnt=2



Страницы: 1 вся ветка

Форум: "Основная";
Текущий архив: 2003.07.07;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.45 MB
Время: 0.008 c
14-20307
Andryk
2003-06-20 11:30
2003.07.07
Почему в России как всегда


14-20302
Кен
2003-06-17 04:21
2003.07.07
---|Ветка была без названия|---


1-20063
Шустрый
2003-06-25 19:23
2003.07.07
Как поместить свою прогу в автозапуск?


1-20139
Спрашивающий_
2003-06-25 03:39
2003.07.07
Опять мерцание рисунка.


4-20343
-= Demon =-
2003-05-06 15:51
2003.07.07
CreateProcess





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский