Графика в PascalABC

Var GraphABC: integer;

Uses GraphABC

Uses GraphABC;

Program graphabc;

Линия

Точка

Прямоугольник

Окружность

Нижний левый угол экрана

Центр экрана

Верхний правый угол экрана

Верхний левый угол экрана

PutPixel

Rectangle

Circle

Line

Ellipse

Circle

Arc

RoundRect

3

2

4

5

красный

red

clred

ColorRed

Rectangle (100, 200, 100, 200)

Rectangle (100, 200, 200, 400)

Rectangle (100, 200.5, 200, 400.5)

Rectangle (100, 200, 100)

setpen()

setpencilsize()

setpensize()

setpensizecolor()

TextOut(10,10, ‘Privet’, clblack)

TextOut(10,10, Privet)

TextOut(10,10, “Privet”)

TextOut(10,10, ‘Privet’)