14.4. Пример использования подпрограмм модуля Сrарh
Рассмотрим программу, которая изображает график функции ехр(-х)*sin(х) при изменении коэффициента А:
рrоgram Ехаmрle;
uses Graph;
соnst ЕхрВеg =0.1; {Начальное значение .коэффициента показателя экспоненты}
DeltaЕхр = 0.1; {Приращение коэффициента показателя экспоненты}
vаr Х0, У0: Word; {Начало координат}
X, Y: Rеа1; {Текущие координаты} i, j: Word;
GraphDriver: Integer; {Код драйвера графического уcтройства}
GraphМоdе: Integer; {Код графического режима}
Switch: Вооlеаn; {Переключатель окон}
begin
GraphDriver:=Detect; {Автоматическое определение драйвера граф. устройства}
GraphМоdе:=0; { Код графического режима принимается ноль}
InitGraph(GraphDriver, GraphМоdе, ' '); {Инициализация графического режима. Драйвер - в текущем каталоге}
If GraphResult<>grOK then
Begin WriteLn{'Ошибка при включении графического режима'}; Наlt еnd;
Х0 := 20; {Координата X в пикселях}
У0 := GetMaxY div 2; {Координата Y в пикселях}
Switch := Тrue; {Исходное состояние переключателя окон}
for j:=0 to 10 do {Цикл формирования изображений}
begin SetActiveРаge(Ord(Switch)); {Активная страница видеопамяти}
SetBkСоlоr(Вlue); {Цвет фона}
SetСоlor(White); {Цвет фигур и текста}
СlеаrDevice; {Очистка активной страницей}
Line(Х0, 20, Х0, GetМахY – 20); {Вертикальная ось}
Line(Х0, Y0, GetMaxX - 20, Y0); {Горизонтальная ось}
МоvеТо(Х0, У0); {Начало координат}
for i := 1 to GetMaxX- 40 dо {Формирование графика}
begin X := i * 4 * Pi / (GetMaxX -40);
Y := Exp(-X * (ExpBeg + DeltaExp * j))*Sin(X);
LineTo(X0 + i,Y0 - Round(Y*150)) end;
SetVisualPage(Ord(Switch)); {Видимая страница видеопамяти}
Switch := not Switch end;
CloseGraph; {Завершение работы в графическом режиме}
end.
С помощью этой программы на экран выводятся последовательно 11 графиков функции с изменяющимся коэффициентом А показателя экспоненты. При этом изображение сначала готовится на невидимой странице видеопамяти, а затем уже выводится на экран, после чего очередное изображение готовится на другой странице.
Для заметок
__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
__________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________________
1Y- последняя цифра текущего года, *Nvar - номер варианта в списке групп., Ngr- Номер группы без буквы.