Доработать программу в ABC

konispat · 25.12.2011, 15:33

задание: изобразить шахматную доску и случайным образом расставленные на ней шашки.

есть часть программы которая рисует доску:

PHP код:


			
uses graphabc, crt; 

Var x,y,c,n,k,t:integer; 

begin 

setwindowsize (500,500); 

  

rectangle(49,49,451,451); 

y:=50; 

for k:=1 to 8 do 

 begin x:=50; 

  

 for n:=1 to 8 do 

 begin 

 if (n+k) mod 2=0 then 

 c:=clwhite else c:=clblack; 

 setpencolor(c); 

 rectangle(x,y,x+50,y+50); 

 FloodFill(x+1,y+1,c); 

  

 x:=x+50; 

 end; 

 y:=y+50; 

 end  

end.

как сделать так чтобы шашки каждый раз стояли в разных местах? сколько голову не ломал не додумался, единственное что смог просто расставить шашки в начальном их положении:

PHP код:


			
uses graphabc, crt; 

Var x,y,c,n,k,t:integer; 

begin 

setwindowsize (500,500); 

rectangle(49,49,451,451); 

y:=50; 

for k:=1 to 8 do 

 begin x:=50; 

 for n:=1 to 8 do 

 begin 

 if (n+k) mod 2=0 then 

 c:=clwhite else c:=clblack; 

 setpencolor(c); 

 rectangle(x,y,x+50,y+50); 

 FloodFill(x+1,y+1,c); 

 if (k<4) then 

 begin 

 if (c=clwhite) then 

 begin 

 c:=clblack; 

 setpencolor(c); 

 Circle(x+25,y+25, 20); 

 end 

 end; 

 if (k>5) then 

 begin 

 if (c=clwhite) then 

 begin 

 c:=clblack; 

 SetBrushColor(c); 

 Circle(x+25,y+25, 20); 

 end 

 end; 

 x:=x+50; 

 end; 

 y:=y+50; 

 end 

end.

очень надеюсь на помощь!

fagot86 · 25.12.2011, 18:14

можно попробовать так:

PHP код:


			
Uses graphabc, crt;

Var x,y,c,n,k:integer;

    rdm: real;

begin

setwindowsize (500,500);

rectangle(49,49,451,451);

y:=50;

for k:=1 to 8 do

    begin x:=50;

          for n:=1 to 8 do

              begin

                   if (n+k) mod 2=0 then

                      c:=clwhite

                   else c:=clblack;

                   setpencolor(c);

                   rectangle(x,y,x+50,y+50);

                   FloodFill(x+1,y+1,c);

                   randomize;

                   rdm:=sin(random(360));

                   

                           if (c=clwhite)and(rdm>0)and(rdm<0.5) then

                              begin

                                   c:=clblack;

                                   setpencolor(c);

                                   Circle(x+25,y+25, 20);

                              end;

                           if (c=clwhite)and(rdm<0)and(rdm>-0.5) then

                              begin

                                   c:=clblack;

                                   SetBrushColor(c);

                                   Circle(x+25,y+25, 20);

                                   SetBrushColor(clwhite);

                              end;

                   x:=x+50;

              end;

          y:=y+50;

    end;

end.

konispat · 25.12.2011, 19:18

красота! только не как не пойму как кол-во шашек можно увеличить, спасибо)

fagot86 · 25.12.2011, 19:25

Цитата:

Сообщение от konispat

красота! только не как не пойму как кол-во шашек можно увеличить, спасибо)

Что значит увеличить? (конкретнее...)

fagot86 · 25.12.2011, 19:52

Если ты хочешь варьировать кол-вом шашек,
то можно подбирать рандомные пределы:

PHP код:


			
if (c=clwhite)and([B]rdm>0[/B])and([B]rdm<0.6[/B]) then

konispat · 25.12.2011, 19:53

мало шашек на доске, их количество. хотя в этом нечего нет, середина игры так сказать)

25.12.2011, 15:33	#1 (permalink)
konispat Новичок Регистрация: 25.12.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Доработать программу в ABC задание: изобразить шахматную доску и случайным образом расставленные на ней шашки. есть часть программы которая рисует доску: PHP код: `uses graphabc, crt; Var x,y,c,n,k,t:integer; begin setwindowsize (500,500); rectangle(49,49,451,451); y:=50; for k:=1 to 8 do begin x:=50; for n:=1 to 8 do begin if (n+k) mod 2=0 then c:=clwhite else c:=clblack; setpencolor(c); rectangle(x,y,x+50,y+50); FloodFill(x+1,y+1,c); x:=x+50; end; y:=y+50; end end.` как сделать так чтобы шашки каждый раз стояли в разных местах? сколько голову не ломал не додумался, единственное что смог просто расставить шашки в начальном их положении: PHP код: uses graphabc, crt; Var x,y,c,n,k,t:integer; begin setwindowsize (500,500); rectangle(49,49,451,451); y:=50; for k:=1 to 8 do begin x:=50; for n:=1 to 8 do begin if (n+k) mod 2=0 then c:=clwhite else c:=clblack; setpencolor(c); rectangle(x,y,x+50,y+50); FloodFill(x+1,y+1,c); if (k<4) then begin if (c=clwhite) then begin c:=clblack; setpencolor(c); Circle(x+25,y+25, 20); end end; if (k>5) then begin if (c=clwhite) then begin c:=clblack; SetBrushColor(c); Circle(x+25,y+25, 20); end end; x:=x+50; end; y:=y+50; end end. очень надеюсь на помощь!

25.12.2011, 19:52	#5 (permalink)
fagot86 Новичок Регистрация: 25.12.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	Если ты хочешь варьировать кол-вом шашек, то можно подбирать рандомные пределы: PHP код: `if (c=clwhite)and([B]rdm>0[/B])and([B]rdm<0.6[/B]) then`

25.12.2011, 15:33
Helpmaster Member Регистрация: 08.03.2016 Сообщений: 0	Советую посмотреть эти ссылки, там похожие на вашу темы Помогите доработать схему Помогите доработать датчик движения Сделайте программу

25.12.2011, 18:14	#2 (permalink)
fagot86 Новичок Регистрация: 25.12.2011 Сообщений: 6 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	можно попробовать так: PHP код: Uses graphabc, crt; Var x,y,c,n,k:integer; rdm: real; begin setwindowsize (500,500); rectangle(49,49,451,451); y:=50; for k:=1 to 8 do begin x:=50; for n:=1 to 8 do begin if (n+k) mod 2=0 then c:=clwhite else c:=clblack; setpencolor(c); rectangle(x,y,x+50,y+50); FloodFill(x+1,y+1,c); randomize; rdm:=sin(random(360)); if (c=clwhite)and(rdm>0)and(rdm<0.5) then begin c:=clblack; setpencolor(c); Circle(x+25,y+25, 20); end; if (c=clwhite)and(rdm<0)and(rdm>-0.5) then begin c:=clblack; SetBrushColor(c); Circle(x+25,y+25, 20); SetBrushColor(clwhite); end; x:=x+50; end; y:=y+50; end; end.

25.12.2011, 19:18	#3 (permalink)
konispat Новичок Регистрация: 25.12.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	красота! только не как не пойму как кол-во шашек можно увеличить, спасибо)

Ads
Яндекс Member Регистрация: 31.10.2006 Сообщений: 40200 Записей в дневнике: 0 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 55070

25.12.2011, 19:53	#6 (permalink)
konispat Новичок Регистрация: 25.12.2011 Сообщений: 3 Сказал(а) спасибо: 0 Поблагодарили 0 раз(а) в 0 сообщениях Репутация: 10	мало шашек на доске, их количество. хотя в этом нечего нет, середина игры так сказать)