Графические возможности языка программирования PascalABC.Net

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

по горизонтали и
480 точек по вертикали

680 точек
480 точек
(0,0)
Начало отсчета
левый

Графический режим

- раздел описания переменных
Begin -тело программы
End - конец программы

 
Program

Структура программы

высоту графического окна;

Основные инструменты рисования-
перо и кисть.
Параметрами пера (Pen)

окно указанным цветом.

Управление экраном
program clear;
uses GraphABC;
begin
ClearWindow;
ClearWindow (clMoneyGreen);
end.

Program tochka;
uses GraphABC;
Begin SetPixel(300,200,clred);
End.

(x,y); координаты пера при этом также становятся равными (x,y).

Program

0,0

300,100

600,50

концом в точке (x2,y2).
Program liniay;
uses GraphABC;
begin
line(100,50,500,250);
End.

Х1,Y1
Х2,Y2

противоположных вершин (x1,y1) и (x2,y2)

в точке (x,y) и радиусом r
250
200

своим описанным прямоугольником с координатами противоположных вершин.
50,50
200,350
250,150
550,300

(параметры процедуры имеют тот же смысл, что и в процедуре

(х,у)

цветами.
Стандартные цвета задаются символическими константами:

clBlack – черный clPurple – фиолетовый

clAqua – бирюзовый clOlive – оливковый clFuchsia – сиреневый clTeal – сине-зеленый clGray – темно-серый clLime – ярко-зеленый clMoneyGreen – цвет зеленых денег clLtGray – светло-серый clDkGray – темно-серый clMedGray – серый
clSilver – серебряны

соответствующее интенсивности красной компоненты
Green- число от 0 до 255, соответствующее

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

Program liniay;
Uses GraphABC;
Begin

GraphABC;
Begin
SetPenWidth(7);
SetPenColor(rgb(255,0,0));
line(30,30,400,350);
End.

и т.п.), стиль применим только к ширине пера 1 пиксель

SetPenStyle(psDot)- пунктир

SetPenStyle(psDash)- штрих

SetPenStyle (psDashDot)- штрих - пунктир

распространяется на замкнутый контур, описание которого следует за процедурой установки

Program zalivka_kist;
Uses GraphABC;
Begin
SetBrushColor(clGreen);
Rectangle(50,50,300,300);
End.

bs

bsSolid – сплошная;
bsClear – прозрачная;
bsHatch – штриховая (мелкая клетка);
bsGradient

color, начиная с точки (x,y).
Закрашивать можно только замкнутые фигуры,

момент находится конец отрезка (текущая позиция), до точки (x,y); начальная

);
floodfill(300,200,rgb(255,0,0));
End.

(100,300)
(100,300)

в позицию (x,y) (точка (x,y) задает верхний левый угол прямоугольника,

Program text;
Uses GraphABC;
Begin
TextOut(100,30,'Квадрат');
Rectangle(50,50,200,200);
loodFill(55,55,rgb(43,97,208));
End.

цвет шрифта.
SetFontSize (sz) - устанавливает размер

Действия со шрифтом

Название шрифта

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.
Наиболее распространенные шрифты – это Times, Arial и Courier New.
Пример:
SetFontName(‘Times’);

наклонный;
fsBoldItalic – жирный наклонный;
fsUnderline – подчеркнутый;
fsBoldUnderline –

Стиль шрифта

SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,'наклонный');
SetFontStyle(fsBold);
SetFontColor(RGB(167,172,15));

SetFontStyle(fsItalic);
SetFontColor(clBlue);
TextOut(10,50,'наклонный');
SetFontStyle(fsBold);
SetFontColor(RGB(167,172,15));

раз. В Паскале существуют три вида циклов:

-Цикл с предусловием (цикл

– пока
DO – выполнять  
ПОКА (УСЛОВИЕ ИСТИННО) ВЫПОЛНЯТЬ
НАЧАЛО
действие1;

WHILE (УСЛОВИЕ ИСТИННО) DO
BEGIN
действие1;
действие2;
END;

x:=20;
WHILE x

пока условие ЛОЖНО.
REPEAT – повторять
UNTIL – до тех

ПОВТОРЯТЬ
действие1;
действие2;
ДО ТЕХ ПОР (ПОКА УСЛОВИЕ ЛОЖНО);

REPEAT
действие1;
действие2;
UNTIL (ПОКА УСЛОВИЕ ЛОЖНО);

setpenwidth(3);
x:=20;
REPEAT
line(x,60,x+20,200);
x:=x+40;
UNTIL x>680;
END.

до
do – выполнить
ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ
действие;
FOR

FOR i:=1 TO N DO
BEGIN
действие1;
действие2;
END;

ДЛЯ i:=1 ДО N ВЫПОЛНЯТЬ
действие 1;
действие 2;
конец;

если в теле цикла несколько действий

если в теле цикла одно действие

x:=20;
for i:=1 to 10 do
begin
line(x,60,x+20,200);
x:=x+40;
end;
END.