Программа составления расписания, подскажите алгоритм Опции

[Catty]

может тебе лучше новую тему открыть?
ведь тут другую задачу обсуждают!

[Atos]

будующая профессия обязывает...может, здесь хоть программировать научусь.

Это уже отлично. Ибо частенько сюда заглядывают челы, не разбирающиеся и не хотящие разобраться в программировании, чтоб им на халяву зачёт сделали.
imp, заведи новую тему. И расскажи конкретнее, что значит неупорядоченная таблица. Это двумерный массив случайных чисел или что-то другое?

[Chester]

Я вернулся. Как и обещал, с условием: http://betasite.narod.ru/rasp.htm
Жду помощи, указаний, советов. И можно просьбу, чуть побыстрее я понимаю, сам провафлял и все такое... зато такую задачу интересную отрыл.
P.S. Это мне не на зачет. чтоб не подумали чего лишнего

Сообщение отредактировано: Chester - 13.05.2004 19:54

[BlackShadow]

Учитыая объём... БрутФорс - самое то!

[Chester]

в смысле?

[trminator]

Полный перебор всех вариантов. Что-то похожее на то, что я предложил

Или даже то же самое...

[Chester]

Понятно. А ты можешь написать пример просчитывания какого-го либо условия?

[Chester]

А где все? Народу много вроде обсуждало

[BlackShadow]

А обсуждать больше нечего Не брутфорс же, в конце концов :D

[Chester]

Ну так напиши примерчкик условия какого-нибудь средней сложности. Я не могу сразу после массивов,строк понять как это реализуется.

[BlackShadow]

Перебирает все 5-изначные числа и выводит на экран те, у которых сумма цифр равна 40.

Код

Const
 K=40;

Var
 s:String;

Function Next:Boolean;
Var
 i:Integer;
Begin
 For i:=5 DownTo 1 Do
   If s[i]<'9' Then
   Begin
     Inc(s[i]);
     Break
   End
   Else
     If i = 1 Then
     Begin
       Next:=False;
       Break
     End
     Else
       s[i]:='0'
End;

Function Test:Boolean;
Var
 i,n:Integer;
Begin
 n:=0;
 For i:=1 To 5 Do
   Inc(n,Byte(s[i])-Byte('0'));
 Test:=n=K
End;

Begin
 s:='00000';
 While Next Do
   If Test Then
     WriteLn(s)
End.

Или приблизительно так...

[LinFor]

ТОВарищи, понимаю, что обсуждалась эта тема давно, но....

Если кого-то ещё интересует решение этой задачи, особенно с помощью генетического алгоритма, хотелось бы скооперироваться и обсудить некоторые вопросы...

[Altair]

Так здесь и будем обсуждать.
Мне кажется эта задача очень интересной.

[LinFor]

Так здесь и будем обсуждать.
Мне кажется эта задача очень интересной.

Мне бы просто хотелось бы более интенсивно пообсуждать данный вопрос, скажем, по аське, благо диал-ап дюже дорогой, чтоб форум читать... А вас эта задача интересует, или вы просто модератор?
PS: Задачка действительно интересная, меня она интересует больше как возможная курсовая работа, нежели производственно. Хотелось бы пообщаться с человеком реально составляющим эти расписания, чтоб узнать нужды и требования.
PS2: Сам я просто программер.

Я конечно модератор, но задача меня эта интересует из-за того, что при ее решении можно использовать генетический алгоритм. Собственно я им интересуюсь. Oleg_Z

Сообщение отредактировано: Oleg_Z - 10.09.2004 11:29