IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

2 страниц V < 1 2  
 Ответить  Открыть новую тему 
> Программа составления расписания, подскажите алгоритм
сообщение
Сообщение #21


Бывалый
***

Группа: Пользователи
Сообщений: 239
Пол: Женский
Реальное имя: Юлия

Репутация: -  3  +


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


--------------------
For every evil under the sun
There is a remedy or there is none
If there is one - try to find it
If there is none - never mind it!
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #22


Прогрессор
****

Группа: Пользователи
Сообщений: 602
Пол: Мужской
Реальное имя: Михаил

Репутация: -  9  +


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

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


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


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

Сообщение отредактировано: Chester -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #24


Гость






Учитыая объём... БрутФорс - самое то!
 К началу страницы 
+ Ответить 
сообщение
Сообщение #25


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


в смысле?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #26


Четыре квадратика
****

Группа: Пользователи
Сообщений: 579
Пол: Мужской

Репутация: -  4  +


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

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


--------------------
Закон добровольного труда Зимерги:
Люди всегда согласны сделать работу, когда необходимость в этом уже отпала
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #27


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


Понятно. А ты можешь написать пример просчитывания какого-го либо условия?
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #28


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


А где все? Народу много вроде обсуждало smile.gif
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #29


Гость






А обсуждать больше нечего smile.gif Не брутфорс же, в конце концов :D
 К началу страницы 
+ Ответить 
сообщение
Сообщение #30


Новичок
*

Группа: Пользователи
Сообщений: 11

Репутация: -  0  +


Ну так напиши примерчкик условия какого-нибудь средней сложности. Я не могу сразу после массивов,строк понять как это реализуется.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #31


Гость






Перебирает все 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.

Или приблизительно так...
 К началу страницы 
+ Ответить 
сообщение
Сообщение #32


Гость






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

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


Ищущий истину
******

Группа: Пользователи
Сообщений: 4 825
Пол: Мужской
Реальное имя: Олег

Репутация: -  45  +


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


--------------------
Помогая друг другу, мы справимся с любыми трудностями!
"Не опускать крылья!" (С)
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #34


Гость






Цитата(Oleg_Z @ 9.09.04 6:32)
Так здесь и будем обсуждать.
Мне кажется эта задача очень интересной.

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

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

Сообщение отредактировано: Oleg_Z -
 К началу страницы 
+ Ответить 

2 страниц V < 1 2
 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 2.10.2020 2:45
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name