Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: CL | DM;

Вниз

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

 
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;
Скачать: CL | DM;

Наверх




Память: 0.45 MB
Время: 0.006 c
14-20209
SMKRZ
2003-06-22 00:20
2003.07.07
Cross Over


1-20042
TsvIlya
2003-06-25 13:14
2003.07.07
TMemo и Canvas


3-19983
Rust
2003-06-13 12:22
2003.07.07
БД


1-20103
dimon1979
2003-06-24 14:39
2003.07.07
Встроенный ассемблер


7-20316
kull
2003-04-23 16:41
2003.07.07
Как узнать путь к com серверу?





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