Var gd,gm,XI,yi: integer; sx,sy:string[30];

X,y,x1,x2,y1,y2,n,m:real;

Procedure calc;

Begin

{ вычисление заданной функции y };

end;

begin

clrscr;

gd:=Detect; { инициализация графического режима }

InitGraph(gd,gm,'');

line(160,100,160,350); { оси }

line(100,300,400,300);

x:=a;

While x<=b do

begin { разлиновка }

line(158,300-round(x*60),162,300-round(x*60));

line(160+round(x*60),298,160+round(x*60),302);

x:=x+0.5;

end;

outtextXY(110,310,'левая граница ');

outtextXY(335,310,'правая граница');

outtextXY(140,110,'Y');

outtextXY(390,310,'X');

MoveTo(130,296); { график }

x:=a;

While x<=b+h do

begin

calc;

x:=x+h;

SetColor(7);

lineto(160+round(x*60),300-round(y*60));

end;

{ Поис экстремума функции на интервале }

{ метод дихотомии }

n:=a; m:=b;

repeat

x1:=(n+m-e)/2;

x:=x1;

calc;

y1:=y;

x2:=(n+m+e)/2;

x:=x2;

calc;

y2:=y;

if y1<y2 then m:=x2

else n:=x1;

until abs(m-n)<2*e;

x:=(n+m)/2;

calc;

outtextXY(350,25,'Минимум функции на интервале:');

str(x:8:3,sx);

str(y:8:3,sy);

sx:='Xmin='+sx;

sy:='Ymin='+sy;

outtextXY(350,50,sx);

outtextXY(350,60,sy);

readkey;

CloseGraph;

end.

7.4. Лабораторная работа n 4.

"Программирование элементов систем управления".

Цель pаботы: Получить навык программирования элементов систем управления на языке Паскаль.

Постановка задачи: Согласно заданию, составить программу в графическом режиме, отладить и вывести на экран pезультаты.

Пояснение: Одной из задач в инженеpной пpактике является создание систем АСУТП на базе компьютерной техники.

Для pеализации поставленной задачи необходимо:

1. Инициализировать графический режим.

2. Hаписать пpогpамму, pеализующую выбранный графический образ,с возможностью произвольного размещения его на экране по координатам и включения-отключения индикации.

3. Предьявить результат работы преподавателю в виде алгоритма, результата работы и исходного текста программы.

4 Графические элементы :

1 - двигатель с индикацией скорости вращения;

2 - вентилятор с индикацией работы;

3 - лампочка с индикацией;

4 - бак с индикацией наполнения;

5 - трубопровод с индикацией течения жидкости;

6 - термометр;

7 - задвижка на разные положения;

8 - амперметр;

9 - вольтметр;

10 - датчик давления;

11 - конвейер с индикацией движения;

12 - форточка с индикацией положения;

13 - информационное табло;

14 - кнопка включения;

15 - система вертикального меню;

16 - система горизонтального меню;

17 - ректификационная колонна;

18 - переменный резистор с индикацией;

19 – навигационная панель работы с файлом.