Лабораторная работа №9

Тема: Работа с экраном в графическом режиме.

Пример: Построить спирали с начальной точкой (X₀ Y₀), внешним радиусом R, N витками и начальными направлениями, образующими углы alf и – alf с осью абсцисс.

Программа:

User Graph;

Const n=30; alf=pi*0.25; deltaT=pi/22.5;

Var

t, r : Real;

i, j, k, l, m, gd, gm, xc, yc, x, y : Integer;

Procedure Spi(xc, yc, N : Integer; deltaT, Alf : Real);

Begin

MoveTo(xc, yc): t:=Alf;

For i:=1 To N Do

Begin

For j:=1 To 90 Do

Begin

t:= t+ deltaT; r:=0.75*t;

x:=Round(r*cos(t)+xc);

y:=Round(r*sin(t)+yc);

LineTo(x,y);

End;

End;

Circle(xc,yc,Round(r));

End;

Begin { Головная программа }

gd:=Detect;

InitGraph(gd, gm, ‘l:\tp6\bgi’);

If GraphResult < > 0 Then

Begin

Write(‘Ошибка установки граф. режима:’

‘GraphErrorMsg(GraphResult));

End;

xc:=GetMaxX div 2; yc:=GetMaxY div 2;

Spi(xc, yc, N, deltaT, alf);

Spi(xc, yc, N, – deltaT, – alf);

Readln;

CljseGraph;

End.

Варианты заданий:

Написать программу вывода на экран графика функции y= y(x) используя различные типы линии. В заданиях 1, 4, 7, 10, 13, 16 – сплошная линия; в заданиях 2, 5, 8, 11, 14 – прерывистая, точечная; в заданиях 3, 6, 9, 12, 16 – прерывистая, штриховая. Предварительно необходимо нарисовать оси координат.

Варианты функций:

1) 2)

3) 4)

5) 6)

7) 8)

9) 10)

11) 12)

13) 14)

15) 16) ,

где x принадлежит интервалу ( – 3,14 , 3,14).

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

1. Какая процедура инициирует графический режим?

2. Какие процедуры задают цвет выводимых на экран символов и цвет фона?

3. Какая процедура позволяет устанавливать курсор в заданное место экрана?

4. Перечислите процедуры рисования отрезков прямых и объясните смысл используемых параметров?

5. Каким образом задать тип рисуемой линии?

6. Какие процедуры рисования геометрических фигур Вы знаете?

7. Объясните процедуры вывода текста на экран и объясните смысл входящих в них параметров.