Построение дома с окном

Графика в паскале, построение дома с окном.

0

Если ты юзаешь компилятор - IDE Pascal ABC то вот ответ, писать программу не буду думаю сам разберёшься:

Для рисования в Pascal ABC необходимо запустить специальный модуль GraphABC, использование специальных функций и процедур помогут вам нарисовать точку, отрезок, окружность и прямоугольник и другие фигуры:

Первой инструкцией программы должна быть инструкция
uses GraphABC;

SetPixel(x,y,color) - Закрашивает один пиксель с координатами (x,y) цветом color

MoveTo(x,y) - координаты пера становятся равными координате (x,y)

LineTo(x,y) - рисует отрезок от текущего положения пера до точки (x,y); координаты пера при этом также становятся равными (x,y).

Line(x1,y1,x2,y2) - рисует отрезок с началом в точке (x1,y1) и концом в точке (x2,y2).

SetPenColor(color) - устанавливает цвет пера, задаваемый параметром color.

SetPenWidth(n) - устанавливает ширину (толщину) пера, равную n пикселям.

Rectangle(x1,y1,x2,y2) - рисует прямоугольник, заданный координатами противоположных вершин (x1,y1) и (x2,y2).

FloodFill(x,y,color) - заливает область одного цвета цветом color, начиная с точки (x,y).

SetBrushColor(color) - устанавливает цвет кисти. Заливка кистью распространяется на замкнутый контур, описание которого следует за процедурой установки цвета кисти.

Ellipse(x1,y1,x2,y2) - рисует эллипс, заданный своим описанным прямоугольником с координатами противоположных вершин (x1,y1) и (x2,y2).

Circle(x,y,r) - рисует окружность с центром в точке (x,y) и радиусом r.

Arc(x,y,r,a1,a2) - Рисует дугу окружности с центром в точке (x,y) и радиусом r, заключенной между двумя лучами, образующими углы a1 и a2 с осью OX (a1 и a2 – вещественные, задаются в градусах и отсчитываются против часовой стрелки).

Цвета в PascalABC:
clBlack – черный
clPurple – фиолетовый
clWhite – белый
clMaroon – темно-красный
clRed – красный
clNavy – темно-синий
clGreen – зеленый
clBrown – коричневый
clBlue – синий
clSkyBlue – голубой
clYellow – желтый
clCream – кремовый
clAqua – бирюзовый
clOlive – оливковый
clFuchsia – сиреневый
clTeal – сине-зеленый
clGray – темно-серый
clLime – ярко-зеленый
clMoneyGreen – цвет зеленых денег
clLtGray – светло-серый
clDkGray – темно-серый
clMedGray – серый
clSilver – серебряный

Добавлено через 5 минут
кстати подобно этому можно рисовать в Delphi только рисовать нужно на конвасе.

Например нарисуем отрезок:

изучай

0