Шахматная доска!!!

[Евгений19]

Уважаемые, помогите мне пожалуйста. Имеется шахматная доска.... нужно случайным образом ее заполнить шашками....
Язык Pascal

[Serge_Bliznykov]

наработки давай...
доска рисуется уже? отображение шашек есть?

а вообще алгоритм простой заводите матрицу 8x8
если там, например, нолик - то клетка пустая, если 1-белая шашка, если 2 - чёрная шашка
дальше в цикле

  randomize;
  for i:=1 to КоличествоБелыхШашек do
    repeat
      получить случайное ЧёрноеПоле
    until Доска[ПолученноеПоле] = 0;
    Доска[ПолученноеПоле] := 1; // белая шашка в это поле

  for i:=1 to КоличествоЧерныхШашек do
    repeat
      получить случайное ЧёрноеПоле
    until Доска[ПолученноеПоле] = 0;
    Доска[ПолученноеПоле] := 2; //чёрная шашка в это поле

[Евгений19]

Вот код, который рисует шахматную доску..... А как сюда интергрировать заполнение шашками я пока не понимаю...

program shashki;
uses crt,graph;
var
    dr,md,x,y,i,j,c,n:integer;
begin
    dr:=detect;
    initgraph(dr,md,'c:\bp\bgi');
    c:=14;
for i:=1 to 8 do begin
   for j:=1 to 8 do begin
      for y:=1 to 50 do
         for x:=1 to 50 do
         putpixel(120+x+50*(i-1),40+y+50*(j-1),c);
         line(121,240,520,240);
         SetLineStyle(0,0,3);
         SetColor(0);
         if c=6 then c:=14 else c:=6;
                    end;
   if c=6 then c:=14 else c:=6;
                 end;
readkey;
closegraph;
end.

[Stepler]

Вот код, который рисует шахматную доску..... А как сюда интергрировать заполнение шашками я пока не понимаю...

Сгенерировать расстановку в массиве а потом уже перенести на "доску".