Скачать: CL | DM;

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

← →
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;

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

---

← →
megabyte-ceercop ©   (2005-01-13 09:33) [5]

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

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

---

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.023 c