ЛР№13_Модуль_Graph

Программирование

6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.

7.Очистить экран.

8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.

9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -

ввертикальном.

10.Очистить экран.

Вариант 8.

1.Построить залитый прямоугольник с координатами х1 = 25, y1 = 10, x2 = maxx-25, y2 = maxy-10, maxx, maxy - размеры экрана (тип заливки - 3, цвет - ярко-

красный).

2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.

3.На каждой из построенных фигур указать площадь, предварительно их вычислив.

4.Изменить цвет ярко-красный в палитре на цвет голубой, используя процедуру SetPalette.

5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.

6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.

7.Очистить экран.

8.Разделить экран на две части, для чего провести диагональ из правого верхнего угла.

9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -

ввертикальном.

10.Очистить экран.

11

Программирование

Вариант 9.

1.Построить залитый прямоугольник с координатами х1 = 50, y1 = 30, x2 = maxx-50, y2 = maxy-30, maxx, maxy - размеры экрана (тип заливки - 2, цвет -

зеленый).

2.Построить три одинаковых по высоте и различных по ширине и глубине параллелепипеда, c различными типами заливки и различным цветом.

3.На каждой из построенных фигур указать площадь, предварительно их вычислив.

4.Изменить цвет зеленый в палитре на цвет красный, используя процедуру

SetPalette.

5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.

6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.

7.Очистить экран.

8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.

9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -

ввертикальном.

10.Очистить экран.

Вариант 10.

1.Построить залитый прямоугольник с координатами х1 = 50, y1 = 30, x2 = maxx-30, y2 = maxy-10, maxx, maxy - размеры экрана (тип заливки - 3, цвет – зеленый).

2.Построить 4 одинаковых по ширине и различных по высоте и глубине параллелепипеда, c различными типами заливки и различным цветом.

3.На каждой из построенных фигур указать площадь, предварительно их вычислив.

12

Программирование

4.Изменить цвет зеленый в палитре на цвет желтый, используя процедуру

SetPalette.

5.Определить и вывести в центр экрана сообщение о количестве цветов в палитре. Очистить экран.

6.Нарисовать залитые сектор, многоугольник, круг, подписать их названия, используя шрифты различного размера.

7.Очистить экран.

8.Разделить экран на две части, для чего провести диагональ из левого верхнего угла.

9.В верхней половине вывести любой текст различными шрифтами и разных размеров (начиная с самого большого) в горизонтальном направлении, а в нижней -

ввертикальном.

10.Очистить экран.

Задание 3. Построить графики функций y(x) и g(x) на отрезке [a,b] (см. таблицу ниже). Подписать график, указать оси координат, максимальное и

13

Программирование

14

график, указать оси координат, максимальное и минимальное значение функций.

Вид окна при запуске программы

Текст программы

uses crt,graph;

var gd,gm,error:integer; color,ix,iy,xmin,xmax:integer; x,y,dx:real;

procedure InitGraphUnit; begin

gd:=detect;

InitGraph(gd,gm,'C:\BP\BGI');

15

Программирование

error:=GraphResult; if error<>0 then

begin write('Error:',GraphErrorMsg(error)); Halt;

end;

end; Begin

InitGraphUnit; xmin:=-3; xmax:=3; x:=xmin; dx:=0.01; color:=15; {640x480}

line(0,400,640,400);

line(320,0,320,480);

OutTextXY(625,410,'X');

OutTextXY(330,10,'Y');

OutTextXY(465,20,'Y=X^2'); while x<=xmax do

begin y:=-x*x;

ix:=round(50*x+320);

iy:=round(50*y+400);

PutPixel(ix,iy,color);

x:=x+dx;

end;

readkey;

End.

16