КРАТКИЕ ТЕОРЕТИЧЕСКИЕ СВЕДЕНИЯ.



Для работы в графическом режиме необходимо подключение модуля GraphABC.

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

Управление экраном.

SetWindowsWidth(w); - устанавливает ширину экрана.

SetWindowsHidth(z); - устанавливает высоту экрана.

SetWindowSize(x,y); - задает размеры графического окна.

Графические примитивы:

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

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

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

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

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

Цвет и стиль.

Clearwindow(color); - Устанавливает цвет фона, задаваемый параметром color.

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

SetBrushColor(color); - Устанавливает цвет кисти, задаваемый параметром color(данная функция закрашивает только замкнутые фигуры: окружность, эллипс, квадрат, но не треугольник к примеру составленный из линий).

FloodFill(x,y, color); - Заливает область одного цвета цветом color, начиная с точки (x,y)(данная функция закрашивает любые фигуры, но точка (x,y) должна находится внутри фигуры которую вы собираетесь закрасить, если закрасится вне фигуры значит вы не попали внутрь закраски).

Таблица цветов:

Действия с пером.

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

SetPenWidth(w: integer); -устанавливает ширину пера, равную w пикселам.

SetPenStyle(ps: integer); - устанавливает стиль пера, задаваемый параметром ps.

 

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

Textout(x,y,' строка'); - выводит строку текста в позицию (x,y).

SetFontColor(color: integer);- устанавливает цвет шрифта.

SetFontSize(sz: integer); - устанавливает размер шрифта в пунктах.

SetFontName(name: string);- устанавливает наименование шрифта.

По умолчанию установлен шрифт, имеющий наименование MS Sans Serif.
Наиболее распространенные шрифты – это Times, Arial и Courier New.
Наименование шрифта можно набирать без учета регистра.

SetFontStyle(fs: integer);- устанавливает стиль шрифта.

Стили шрифта задаются следующими именованными константами:

fsNormal – обычный;

fsBold – жирный;

fsItalic – наклонный;

fsBoldItalic – жирный наклонный;

fsUnderline – подчеркнутый;

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

fsItalicUnderline – наклонный подчеркнутый;

fsBoldItalicUnderline – жирный наклонный подчеркнутый.

TextWidth(s: string); - возвращает ширину строки s в пикселях при текущих настройках шрифта.

TextHeight(s: string); - возвращает высоту строки s в пикселях при текущих настройках шрифта.

ЗАДАНИЕ.

Вариант 1.                                   Вариант 2.

 

 

Вариант 3.                                    Вариант 4.

 

Вариант 5.                                             Вариант 6.

 

     

Вариант 7.                                          Вариант 8.

 

 

Вариант 9.                                        Вариант 10.

 

 

   

Вариант 11.                                        Вариант 12.

 

Вариант 13.                                        Вариант 14.

 

Вариант 15.

 

 

Контрольные вопросы.

1. С помощью каких функций можно нарисовать треугольник?

2. Написать фрагмент программы следующих изображений:

 

 


 

 

3. Изобразите рисунок который описанный в программе :

program ris1;

uses graphABC;

var a,b:integer;

begin

setWindowSize(600,500); 

setPenWidth(2);

setPenColor(clBlack);

setBrushColor(clMaroon);

Rectangle(100,150,300,300);

setPenWidth(3);

setPenColor(clWhite);

line(200,150,100,225);

line(100,225, 200, 300);

line(200, 300, 300, 225);

line(300, 225,200, 150);

TextOut(100,400, '...............');

end.

4. Изобразите рисунок который описанный в программе :

program ris1;

uses graphABC;

var a,b:integer;

begin

setWindowSize(600,500); 

setPenWidth(2);

setPenColor(clBlack);

setBrushColor(clLime); 

ellipse(100,150,300,300);

setPenColor(clBlue);

Circle(200,225,75);

TextOut(110,350, '........................');

end.

ПРАКТИЧЕСКОЕ ЗАНЯТИЕ №16.

Тема: Построение графиков функций .

Цель занятия: Научиться составлять программы. Уметь строить графики функций с помощью языка программирования.


Дата добавления: 2019-11-16; просмотров: 243; Мы поможем в написании вашей работы!

Поделиться с друзьями:






Мы поможем в написании ваших работ!