Процедура высчитывания точного и приближённого значений функции, и разницы между ними, страница 3

for i:=1 to 8 do                                    {Разметка на оси Х}

begin

setcolor(green);

line(xx1,25,xx1,15);

pn:=pn+0.1;

str(pn:3:1,str1);

outtextxy(xx1-10,10,str1);

xx2:=xx1+wagx;

xx1:=xx2;

end;

wagy:=round(getmaxy/11);

setcolor(white);

yy1:=20+wagy;

pn:=0;

for i:=1 to 10 do                                   {Разметка на оси У}

begin

line(15,yy1,25,yy1);

pn:=pn+0.1;

str(pn:3:1,str1);

outtextxy(10,yy1,str1);

yy2:=yy1+wagy;

yy1:=yy2;

end;

setcolor(green);

setlinestyle(0,0,0);

p:=20;

for i:=1 to (kolx-1) do               {Гpафик точного значения функции}

begin

xg1:=round(wagX*10*a[i])+p;

yg1:=round(20-wagY*10*y[i]);

xg2:=round(wagX*10*a[i+1])+p;

yg2:=round(20-wagY*10*y[i+1]);

line(xg1,yg1,xg2,yg2);

end;

setcolor(red);

setlinestyle(0,0,0);

for i:=1 to (kolx-1) do                {Гpафик пpиближённого значения функции}

begin

xg1:=round(wagX*10*a[i])+p;

yg1:=round(20-wagY*10*yp[i]);

xg2:=round(wagX*10*a[i+1])+p;

yg2:=round(20-wagY*10*yp[i+1]);

line(xg1,yg1,xg2,yg2);

end;

readkey;

Closegraph;

Writeln('Конец пpогpаммы!Для завеpшения нажмите ENTER!');

readkey;

End;

{Головной Модуль}

begin

repeat

Vvod(kolx,a,n);

job(y,yp,eps,a,n,kolx);

table(a,y,yp,eps,kolx);

Grafik(a,y,yp,kolx,N);

writeln('Для того,чтобы веpнуться в начало пpогpаммы  нажмите "y"');

writeln('Для того,чтобы выйти из пpогpаммы  нажмите "n"');

writeln('Ваш выбоp: ');

readln(ch);

f:=false;

if ch='n' then      {Если нажата клавиша n то выход из пpогpаммы}

f:=true;          {Если нажата клавиша y то пеpеход в начало пpогpаммы}

until f;

end.

Запуск программы и работа с программой

Для выхода из данной инструкции пользователь должен свернуть её, кликнув левой клавишей мыши на значок “_” в правом верхнем углу экрана.

Для того, чтобы запустить данную программу нужно нажать Пуск - программы - Турбо Паскаль. После запуска этого файла, дождавшись того, что диалоговое окно станет чёрным, нажать комбинацию клавиш”ALT +ENTER”. Пользователь увидит сообщение  среды, которое надо закрыть, кликнув левой клавишей мышки на ”OK”.После этого пользователь должен зайти в меню “FILE à Change Dir…” Появится диалоговое окно. Пользователь должен установить директорию, кликнув два раза левой клавишей мыши на “D:\... àSTUDENTSà ”, потом нажать “Chdir” и “OK”. После чего пользователь должен открыть файл “lr1.pas” следующим образом: зайти в меню “FILE à OPEN…” Появится диалоговое окно. Пользователь должен выделить мышкой файл “lr1. pas”  и нажать  “OPEN”. После открытия файла пользователь должен запустить программу комбинацией клавиш “CTRL+F9”.Произойдет запуск программы. Работа пользователя с программой облегчена с помощью диалога.

Ввод исходных данных

1.    Сразу после запуска программы пользователю будет предложено ввести количество аргументов, то есть количество Х (Количество Х должно быть не отрицательным, целым числом, в противном случае пользователю выведется сообщение об ошибке ввода данных и будет предложено повторно ввести данные) Для подтверждения пользователь должен нажать ‘ENTER’
2.    После правильного ввода количества аргументов пользователю будет предложено ввести n, (n должен быть положительным или равным нулю целым числом, в противном случае пользователю выведется сообщение об ошибке ввода данных и будет предложено повторно ввести данные).  Для подтверждения пользователь должен нажать ‘ENTER’.
3.    На этом шаге программа предложит пользователю ввести аргумент из промежутка [0.1,1] (в противном случае, если пользователь введёт аргумент не из этого промежутка, пользователю выведется сообщение об ошибке ввода данных и будет предложено повторно ввести данные) Для подтверждения пользователь должен нажать ‘ENTER’.

Таблица

После ввода всех данных программа считает значения функции, приближённые значения функции и разницу между ними (эпсилон) при эквивалентных аргументах и выводит их значения в таблице, которую пользователь видит на экране монитора. Таблица состоит из четырёх столбцов: “Значения  Х”, ”Значения Y”, ”Значения S(x,n )”, ”Значения E(x) ”. Для продолжения программы пользователь должен нажать ‘ENTER’.

Графики

После таблицы перед пользователем появляются оси координат и два графика.

После просмотра графиков пользователь должен нажать ‘ENTER’,после чего появится сообщение об окончании программы: ”Конец программы! Для завершения нажмите ENTER”. Для завершения программы пользователь должен нажать ‘ENTER’.