Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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

nachinaushiy © (2005-01-13 01:22:00)
У меня в программе по созданию *.pas файлов есть одно задание,
надо что прога моя считала максимальную степень вложенности циклов....

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

nachinaushiy (2005-01-19 08:15:00) [1]
лутше кодом, обычную запись трудно понять.

megabyte-ceercop (2005-01-13 09:33:00) [2]

> Думкин © (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`а?

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

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

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

Думкин (2005-01-13 09:01:00) [3]
> 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-ceercop (2005-01-13 08:46:00) [4]
Делай последовательный перебор всех символов в тексте

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++. Есль ты не вкорень начинающий, то разберёшся.

bulkas (2005-01-13 02:43:00) [5]
ну, начинающий, так что делать-то будем?

GanibalLector (2005-01-13 01:24:00) [6]
Тебе алгоритм или за тебя писать?

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »