7.1 Pascal (задача 8)

Для работы с графикой из программы на Паскале в директории, откуда она запускается, должен присутствовать файл EGAVGA.BGI. Кроме того, при компиляции такой программы должен быть доступен файл GRAPH.TPU, содержащий подпрограммы отрисовки графических объектов. Файлы *.BGI это графические адаптеры, отвечающие за работу с мониторами различных типов. Библиотека GRAPH.TPU подключается стандартным способом с помощью USES.

Графический режим определяется тремя параметрами: разрешение экрана, палитрой, числом видеостраниц. Результат представлен на рис.23.

Program Graphik;

uses Graph;

var

x,dx:real;

x1,x2:real;

y:real;

mx,my:integer;

x0,y0:integer;

px,py:integer;

grDriver:integer;

grMode:integer;

grPath:string;

begin

grDriver:=detect;

grMode:=2;

grPath:=I:pgi;

InitGraph(grDriver,grMode,grPath);

if GraphResult<>0 then

begin

writeln(oshibka inicializacii graficheskogo regima);

writeln(nagmite Enter);

readln;

Halt;

end;

x0:=320;

y0:=240;

mx:=20;

my:=20;

Line(10,y0,630,y0);

Line(x0,10,x0,470);

x1:=1;

x2:=10;

dx:=0.1;

x:=x1;

while(x<x2) do

begin

y:=(exp(x)+1)/(exp(x)-1);

px:=x0+Round(x*mx);

py:=y0-Round(y*my);

PutPixel(px,py,15);

x:=x+dx;

end;

readln;

closegraph;

end.

Рис. 23. Результат работы программы