Шахматная головоломка о восьми Ферзях ( Turbo Pascal )

[krolik_21]

Помогите сделать курсовую рабрту

Содеррание

1. Введение
2. Обзор элементов языка программирования
3. Решение задачи
3.1. Общая постановка задачи
3.2. Описание программ комплекса
3.3. Укрупненная Блок схема комплекса
3.4. Таблица идентификаторов комплекса
3.5. Описание наборов данных
3.6. Структура записи в файл
3.7. Постановка Процедур
4. Комплекс технических средств для решения задачи
5. Инструкция пользователю при работе с программой
6. Заключение
7. Приложение

Постановка задачи

Шахматная головоломка о восьми Ферзях. Можно ли поставить на пустой шахматной доске восемь ферзей так, чтобы ни один из них не «атаковал» другого, т.е. никакие два ферзя не стояли бы на одном и том же столбце или на одной и той же строке или на одной и той же диагонали?

Задача

program Queens;
uses wincrt;
  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,i2:Index;  j:byte;
        a:array [1..8,1..8] of byte;
  begin
    for y:=1 to N do
      if P(X,k,y) then
         begin
           X[k]:=y;
           if k=N then
             begin
               writeln(count+1,' растановка');
               for i:=1 to N do write(X[i]);
               writeln;
                for i:=1 to 8 do
                   for j:=1 to 8 do
                       a[i,j]:=0;
               J:=0;
               for i:=1 to n do BEGIN inc(j); a[x[i],j]:=1; END;
               for i:=1 to 8 do
                   begin
                   for j:=1 to 8 do
                       write(a[i,j]:3);
                   writeln;
                   end;
               writeln('To Enter...');
               readln;
               writeln;
               inc(Count);
               if count=8 then halt;
             end;
           Backtracking(k+1)
         end

  end;
begin
clrscr;
  Count:=0;
  writeln('Растановка ',N,' спосабами:');
  Backtracking(1);
end.

[RomiKon]

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

[krolik_21]

ну можно и за меня...)))

[RomiKon]

Я вообще-то серьёзно спросил. Если есть вопросы задавайте, а если сами думать не хотите, то в ветку "фриланс" вам дорога.

[krolik_21]

я не то что думать не хочу просто мне времени не хватит его сделать... если тебя не затруднит не мог бы подсобить!

[RomiKon]

Skype: shulz164

[krolik_21]

я сегодня вечером зайду и добавлю тебя

[s-andriano]

Я бы добавил пункт:
3.2. Состав программного комплекса.
а нынешние пункты от 3.2 и дальше переименовал в 3.3...