Pascal Graph ABC 1 1 Set Pixelx y

Pascal Модуль Graph. ABC Урок 1 1

Точка Set. Pixel(x, y, color) - Закрашивает один пиксел с координатами (x, y) цветом color program tochka; uses Graph. ABC; begin Set. Pixel(300, 200, clred); end. 6

Линии Line(x 1, y 1, x 2, y 2) - рисует отрезок с началом в точке (x 1, y 1) и концом в точке (x 2, y 2). x 1, y 1 x 2, y 2 Program liniay; uses Graph. ABC; begin line(100, 500, 250); end. 7

Цвет линии Set. Pen. Color(color) цвет пера, color. - устанавливает задаваемый параметром Program liniay; uses Graph. ABC; begin setpencolor(clred); line(30, 400, 350); end. 9

Заливка цветом Flood. Fill(x, y, color) заливает область одного цвета цветом color, начиная с точки (x, y). x 1, y 1 x 2, y 2 Program pryamougolnik; uses Graph. ABC; begin Rectangle(50, 200, 200); Flood. Fill(100, cl. Blue); end. 11

Треугольник Рисуется процедурами Line(x 1, y 1, x 2, y 2); Line. To(x, y); Program treugolnik; uses Graph. ABC; begin setpenwidth(20); setpencolor(clred); line(300, 100, 500, 300); lineto(100, 300); lineto(300, 100); floodfill(300, 200, clgreen); 12 end.

Окружность Circle(x, y, r) - рисует окружность с центром в точке (x, y) и радиусом r. r x 1, y 1 Program circle; uses Graph. ABC; begin Circle(500, 200, 100); Flood. Fill(500, 200, clred); end. 13