Помогите кто-нибудь....

← →
nachinaushiy (2005-01-13 01:22) [0]

У меня в программе по созданию *.pas файлов есть одно задание,
надо что прога моя считала максимальную степень вложенности циклов....

Заранее ОГРОМНОЕ при ОГРОМНОЕ СПАСИБО.

← →
GanibalLector © (2005-01-13 01:24) [1]

Тебе алгоритм или за тебя писать?

← →
bulkas (2005-01-13 02:43) [2]

ну, начинающий, так что делать-то будем?

← →
megabyte-ceercop © (2005-01-13 08:46) [3]

Делай последовательный перебор всех символов в тексте

CiCount = 0;
tmpCount = 0;

for i = 1 to (text.leght - 5)

begin

if MidStr(text,i,5) = "begin" then inc (tmpCount); //вход в блок
if MidStr(text,i,3) = "end" then dec(tmpCount); //выход из блока

if tmpCount > CiCount then CiCount = tmpCount; //Берём только бОльшую вложенность.

end;

//В этом месте переменная CiCount будет содержать число максимальной вложенности.

Только вот Delphi я немного подзабыл, возможно в коде есть примесь C++. Есль ты не вкорень начинающий, то разберёшся.

← →
Думкин © (2005-01-13 09:01) [4]

> megabyte-ceercop © (13.01.05 08:46)

1. Так: for i := 1 to 10 do for j := 1 to 10 do;
2. begin begin begin end end end;

И где больше вложенности циклов?

> Думкин © (13.01.05 09:01) [4]
> > megabyte-ceercop © (13.01.05 08:46)
>
> 1. Так: for i := 1 to 10 do for j := 1 to 10 do;
> 2. begin begin begin end end end;
>
> И где больше вложенности циклов?

Конечно же большая вложенность циклов во второй строке. А какой ещё ответ ты ожидал услышать от megabyte`а?

А, дак надо именно циклов. :-,

Нут тут сам думай. Ничего сложного на самом деле.
Хотя если вдуматься, много может быть ньюансов.

Ёмаё, Думкин всё испортил, а никто может и не заметил бы. :)

← →
nachinaushiy (2005-01-19 08:15) [6]

лутше кодом, обычную запись трудно понять.

Помогите кто-нибудь.... Найти похожие ветки