Главная страница
    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.007 c
4-20358
cult
2003-05-08 11:02
2003.07.07
Сообщения EM_FORMATRANGE и EM_DISPLAYBAND


6-20179
LOX
2003-05-01 14:09
2003.07.07
Как сделать команду поиск по текущей странице для компонента TWeb


3-20011
M126
2003-06-15 12:23
2003.07.07
Запрос на поиск


4-20351
circul
2003-05-03 16:06
2003.07.07
Проблема с прорисовкой клиентской обл. окна.


3-19998
me2
2003-06-12 17:33
2003.07.07
Формирование SQL-запроса





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский