Работа с модулем Graph. Изучение и практическое освоение возможностей модуля Graph

МИНИСТЕРСТВО  ОБРАЗОВАНИЯ  РЕСПУБЛИКИ  БЕЛАРУСЬ

БЕЛОРУССКИЙ  НАЦИОНАЛЬНЫЙ  ТЕХНИЧЕСКИЙ  УНИВЕРСИТЕТ

Кафедра ” Горные  машины ”

Группа 

Отчёт о  выполнении  лабораторной  работы № 5

по  дисциплине  ”Информатика”

Работа  с  модулем  Graph .

                                                                       Выполнил:                                                                                               Принял    

Минск   2002

1. Цель  работы : изучить  и  практически  освоить  возможности модуля       Graph .

2.Задание  на  лабораторную  работу:

2.1. Изучить  и  занести  в  отчёт  основные  процедуры  и  функции;

2.2. Составить  программу  построения  графика  функции  y=f(x).

3. Пояснения: модуль  представляет собой библиотеку подпрограмм которая обеспечивает управление графическими режи мами адаптеров дисплеев.Сам модуль представляет со бой файл GRAPH.TPU который не входит и состав биб лиотеки TURBO.TPL и., чтобы обеспечить работу с гра фикой нужно сделать файл GRAPH.TPU доступным для компилятора.

3.Распечатка результатов программы:

Program A;

uses Graph;

const Pi=3.14;

var x0,y0:word;{Начало координат}

x,y:real;{Текущие координаты}

i,j:word;

GraphDriver:integer; {Код графического драйвера}

GraphMode:integer;   {Код графического режима}

BEGIN

GraphDriver:=detect;{Автоопределение графического драйвера}

InitGraph(GraphDriver,GraphMode,'C:\TP.7_1\Units');

if GraphResult <> grOk then begin

Writeln(' Error in init graph ');

Halt;

end{if}

else;

x0:=20;           {Формируем начало координат}

y0:=GetMaxY div 2;

Line(x0,20,x0,GetMaxY-20);{Формируем вертикальную ось}

Line(x0,y0,GetMaxX-20,y0);{Формируем горизонтальную ось}

MoveTo(x0,y0);{Отводим точку в начало координат}

for i:=1 to GetMaxX-40 do begin

x:=i*4*Pi/(GetMaxX-40);{Формирование графика}

y:=Sqr(x);

LineTo(x0+i,y0-Round(y*150));{Вычерчивает линию от текущей точки до точки с новыми координатами}

end;{for}

CloseGraph;

Readln;{Задержка экрана}

END.

4.Вывод: изучил  и  практически  освоил  возможности модуля  Graph .