Написать программу на языке программирования для задания: вывести на экран шахматную доску 8´8. Размер клеток необходимо задавать вручную в интервале 10…30.
Пример решения –
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var i,j,k:integer;
begin
k:=StrToInt(Edit1.Text);
with PaintBox1.Canvas do
begin
Pen.Color:=clBtnFace;
Brush.Color:=clBtnFace;
Rectangle(0,0,PaintBox1.Width,PaintBox1.Height);
for i:=1 to 8 do
for j:=1 to 8 do
if (i+j)mod 2=0 then
begin
Pen.Color:=clBlue;
Brush.Color:=clBlue;
Rectangle((i-1)*k,(j-1)*k,k+(i-1)*k,k+(j-1)*k);
end
else
begin
Pen.Color:=clYellow;
Brush.Color:=clYellow;
Rectangle((i-1)*k,(j-1)*k,k+(i-1)*k,k+(j-1)*k);
end;
end;
end;
end.
