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

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


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.


Похожие ответы
  1. Основания трапеции параллельны оси X, нижнее основание больше верхнего. Исходная точка, от которой начинается рисование трапеции, сверху справа. Задаем длины оснований трапеции N и K, высоту h, и координаты X1,Y1 одной вершины. Вычисляем координаты второй, третьей и четвертой вершин X2,Y2, X3,Y3, X4,Y4. Рисуем трапецию с помощью операторов Line по координатам четырех точек. Дополнительно необходимо нарисовать окружность, радиусом 5 пикселей, в точке Х1, Y1. (Примечание: для вычисления координат точек используется целочисленное деление DIV).

  1. Напишите программу с рисунком в Pascal ABC любым из 2 задания.

  1. 68. Нарисовать конус, заполненный на половину водой.

  1. 66. Нарисовать звезду на экране.

  1. 74. Нарисовать увеличение круга на экране.

  1. 1.Нарисовать вращающийся треугольник 2.Составить программу, которая спрашивает у пользователя, в каком направлении должен двигаться шар: 1 – по горизонтали, 2 – по вертикали и какого цвета; и показывает нужное направление движения. 3.Написать программу, которая спрашивает у пользователя, как должен вести себя шар: 1 –расти из центра до границ экрана или 2 – уменьшаться от границ экрана к центру и его цвет; и показывать соответствующее изменение шарика.

  1. Нарисовать этот дорожный знак.

  1. Пользователь вводит число (сторону квадрата или сторону домика), необходимо нарисовать домик с крышей Собственно не знаю как нарисовать крышу. Также необходимо сделать окошко у домика (просто квадрат тоже). Вот так рисует тело дома:

  1. Нарисовать N кругов с радиусом от 5 до 50 в случайном месте случайным цветом в рамке.

  1. Помогите нарисовать рисунок.Самая проблема нарисовать 2 круг со штриховкой