Нарисовать шахматную доску - Pascal ABC (16769)

Формулировка задачи:

Нужно с помощью цикла вайл и графического модуля создать "шахматную доску" (раскрасить их так)

Код к задаче: «Нарисовать шахматную доску - Pascal ABC (16769)»

textual
uses graphABC;
var x,y,x1,y1,d,c,i,j:integer;
begin
d:=(WindowHeight-40) div 8;//размер клеток;
i:=1;
x1:=WindowWidth div 2-4*d;//левый край
y1:=WindowHeight div 2-4*d;//верх
y:=y1;
while y<WindowHeight-y1-d do
 begin
  x:=x1;
  j:=1;
  while x<WindowWidth-x1-d do
   begin
    if(i+j)mod 2=0 then c:=clWhite
    else c:=clBlack;
    Setpencolor(c);
    Setbrushcolor(c);
    rectangle(x,y,x+d,y+d);
    x:=x+d;
    j:=j+1;
   end;
  y:=y+d;
  i:=i+1;
 end;
setpencolor(clBlack);
setbrushstyle(bsClear);
rectangle(x1,y1,x1+8*d,y1+8*d)
end.

11   голосов, оценка 4.091 из 5


СОХРАНИТЬ ССЫЛКУ