Основные графические функции и процедуры

Getgraphmode:integer - возвращает код текущего графического режима;

Setgraphmode(mode:intrger) - устанавливает новый графический режим;

Getx:integer - возвращает текущую X-координату;

Gety:integer - возвращает текущую Y-координату;

Getmaxx:integer - возвращает максимальную X-координату;

Getmaxy:integer - возвращает максимальную Y-координату;

Putpixel(x,y:integer;pixel:word) - процедура, которая выдает на экран точку с координатами x,y и цветом pixel;

Getpixel(x,y:integer):word - функция, которая возвращает цвет точки с координатами x,y;

Setviewport(x1,y1,x2,y2:integer;clip:boolean) - процедура, которая устанавливает окно с указанными координатами. Если clip=true, то изображение не вмещается в окно, отсекается, в противном случае не отсекается;

Cleardevice - процедура, которая очищает экран и устанавливает те значения всех графических параметров, которые предусмотрены по умолчанию;

Clearviewport - процедура, очищающая текущее окно;

Lineto(x,y:integer) - процедура, которая проводит прямую линию из точки, где находится текущий указатель, в точку с координатами x,y текущим цветом. Текущий указатель перемещается в точку x,y;

Linerel(dx,dy:integer) - процедура, которая проводит прямую линию из точки, где находится текущий указатель, в точку с приращением координат на dx,dy текущим цветом. Текущий указатель перемещается в конец линии;

Line(x1,y1,x2,y2:integer) - процедура, которая проводит прямую линию из точки с координатами x1, y1 в точку с координатами x2,y2 текущим цветом. Положение текущего указателя не изменяется;

Moveto(x,y:integer) - процедура, которая перемещает текущий указатель в точку x,y;

Setcolor(color:word) - процедура, которая устанавливает цвет выводимого изображенияБ задаваемый параметром color;

Getmaxcolor:word - функция, которая возвращает максимальное значение цвета для установленного графического режима;

Setbkcolor(color:word) - устанавливает цвет фона;

Getbkcolor:word -возвращает значение текущего цвета фона;

Setpalette(colornum:word;color:shortint) - процедура, которая изменяет один из цветов политры, определенный параметром colornum на сolor;

Rectangle(x1,y1,x2,y2:integer) - процедура, которая рисует прямоугольник с заданными координатами;

Bar(x1,y1,x2,y2:integer) - процедура, которая рисует закрашенный прямоугольник с заданными координатами;

Circle(x,y:integer;radius:word) - процедура, которая рисует окружность с центром x,y и радиусом radius;

Arc(x,y:integer;stangle,endangle,radius:word) - рисует дугу окружности от начального угла до конечного с центром в точке x,y и заданным радиусом;

Elipse(x,y:integer;stangle,endangle:word;xradius,yradius:word) - процедура, которая рисует дугу эллипса от начального угла до конечного с центром x,y;

Outtext(text:string) - процедура, которая выводит на экран строку, начиная с текущей позиции указателя;

Outtextxy(x,y:integer; text:string) - процедура, которая выдает на экран строку, начиная с точки x,y. Положение текущего указателя не изменяется;

Задание для работы с графическим модулем Graph:

Изображение должно занимать большую часть экрана, сопровождаться заголовком, содержать наименования и градации осей и масштабироваться в зависимости от исходных данных. При любых допустимых значениях исходных данных изображение должно полностью помещаться на экране. Программа не должна опираться на конкретные значения разрешения экрана.

Вывести на экран в графическом режиме графики двух функций на интервале от х_нач до х_кон с шагом dx. Первая функции задана с помощью ряда Тейлора, её вычисление должно выполняться с точностью ξ. Для значений параметра b для второй функции вводится с клавиатуры. Графики должны быть плавными и различаться цветами.

Вариант 1.