|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
|
Опции темы | Поиск в этой теме |
21.06.2007, 09:16 | #1 |
Пользователь
Регистрация: 05.05.2007
Сообщений: 31
|
ПОМОГИТЕ С ЗАДАЧКОЙ!!!!
ПЛзззззззз..... Напишите пожалуйста объяснения к этой задачке..... Суть ее вот в чем: требуется перечислить все способы расстановки 8-ми ферзей на шахматной доске 8 на 8, при которых они не бьют друг друга.
Сама программка на Паскале: program Queens; const N=8; type Index=1..N; Rasstanovka=array [Index] of 0..N; var X:Rasstanovka; Count:word; function P(var X:Rasstanovka;k,y:Index):boolean; var i:Index; begin i:=1; while (i<k)and(y<>X[i])and(abs(k-i)<>abs(y-X[i])) do inc(i); P:=i=k end; procedure Backtracking(k:Index); var i,y:Index; begin for y:=1 to N do if P(X,k,y) then begin X[k]:=y; if k=N then begin for i:=1 to N do write(X[i]);writeln;inc(Count) end; Backtracking(k+1) end end; begin Count:=0; writeln('Расстановки ',N,' ферзей:'); Backtracking(1); writeln('Всего ',Count,' расстановок') end. Заранее большое СПАСИБО!!!!!!! |
21.06.2007, 10:38 | #2 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Объяснить что значат разные типы/переменные или что-то другое?
|
21.06.2007, 10:40 | #3 |
Пользователь
Регистрация: 05.05.2007
Сообщений: 31
|
Да подробно описать..... Что за функция, что за процедура..... Мне просто ее надо сдать завтра.... А препод к каждой строчке придерается.....
|
21.06.2007, 10:41 | #4 |
Андрей
Форумчанин
Регистрация: 21.11.2006
Сообщений: 457
|
Я думаю ему(ей) нужны комментарии... Кстати, хочу отметить, что задание поставлено крайне правильно. Как наставление новичкам: Смотрите и учитесь!
ICQ: 5311314
[SIGPIC][/SIGPIC] |
21.06.2007, 10:53 | #5 |
Пользователь
Регистрация: 05.05.2007
Сообщений: 31
|
Ну а вы мне поможете???? Пожалуйста..........!!!!! Очень ВАС ВСЕХ прошуууууу!!!!.....
|
21.06.2007, 12:23 | #6 |
Форумчанин
Регистрация: 31.05.2007
Сообщений: 486
|
Вот то, что удалось на скорую руку. Код немного "переформатирован", чтобы не смешивалось все в одну кучу.
Код:
Последний раз редактировалось Jeni; 21.06.2007 в 12:58. |
22.06.2007, 09:09 | #7 |
Пользователь
Регистрация: 05.05.2007
Сообщений: 31
|
СПАСИБО ВАМ ВСЕМ ОГРОМНОЕ!!!!!!!!!!!!!! ВЫ ВСЕ ПРОСТО СУПЕР!!!!!!!!!!!!
|
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
Помогите плз с задачкой | Dendy | Паскаль, Turbo Pascal, PascalABC.NET | 6 | 05.02.2008 22:16 |
Помогите с задачкой по СИ | pliz | Общие вопросы C/C++ | 7 | 10.12.2007 20:08 |
Помогите с задачкой | Saniok | Помощь студентам | 4 | 29.09.2007 20:34 |
помогите с задачкой.. plz | Diller | Помощь студентам | 3 | 28.09.2007 20:03 |
Помогите с задачкой | Sour | Помощь студентам | 9 | 08.05.2007 20:56 |