Закрасить шахматную доску

@Titanix652 · Регистрация: 10.05.2016

Author24 — интернет-сервис помощи студентам

Всем привет! Есть шахматная доска, нужна помощь чтобы закрасить ее в черно-белый цвет. А также еще один вопрос, в программе написано чтобы было 9 линий, но одна куда-то пропала. Она за границей экрана?

Pascal

program doska;
uses crt,graph;
var d,m,i,x1,y1,j : Integer;
Begin
clrscr;
d:=9;
m:=2;
initgraph(d,m,'');
for i:= 1 to 9 do
Begin
x1:=10;
x1:=(i-1)*50;
 setcolor(3);
 line(x1,0,x1,400);
 end;
for j:= 1 to 9 do
begin
y1:=10;
y1:=(j -1)*50;
 setcolor(3);
 line(0,y1,400,y1);
 end;
 readkey;
 Closegraph;
end.

@Puporev · 10.05.2016, 21:49

Pascal

program doska;
uses crt,graph;
var d,m,i,x1,y1,j:integer;
Begin
clrscr;
d:=detect;
initgraph(d,m,'');
for i:= 1 to 9 do
 Begin
  x1:=(i-1)*50;
  line(x1,0,x1,400);
  y1:=(i -1)*50;
  line(0,y1,400,y1);
 end;
setfillstyle(1,15);
for i:=1 to 8 do
for j:=1 to 8 do
if odd(i+j) then
floodfill(i*50-25,j*50-25,15);
readkey;
end.

Но лучше рисовать не так, а сразу квадратами двух цветов, без floodfill, используя метод bar.
Посмотрите это
Графика, шахматная доска
Шахматная доска.

	10.05.2016, 21:49