Построение графика функции с использованием программирования
Дипломная работа - Компьютеры, программирование
Другие дипломы по предмету Компьютеры, программирование
0,'от до'); GotoXY(66,5);(lft);
(74,5);(rgh);(rgh:5:2,S);;
{********** Ввод коэффициентов **************}koef;(490,245,'a= ');(66,16);(a);(a:5:2,S);
end;
{********* Рисование осей и координатных линий ************} procedure osi;
begin(0,15,635,400,ClipOn);(0,0,1);(5);(50,10,50,350);(50,350,460,350);(5,10,'S');(450,370,'T');
nx:=10; { Число вертикальных линий }
:=10; { Число горизонтальных линий } dx:=Round((460-50)/nx); { Шаг расстановки линий по х} dy:=Round((350-10)/ny); { Шаг расстановки линий по y} SetLineStyle(0,0,1);
SetColor(5);:=50;:=10;i:=1 To nx do:=lx+dx;(lx,10,lx,350);(50,ly,460,ly);:=ly+dy;
End;;
{ Определение интервала по Y }
procedure y_interval;:=460-50;:=350-10;:=(rgh-lft)/MaxPicX;:=1000000;:=-1000000;:=lft;i:=50 to 460 do:=f;y > maxY then maxY:=y;y < minY then minY:=y;
x:=x+mashX;;
{Вывод интервала по Y }
SetViewPort(0,0,GetmaxX,GetmaxY,ClipOn); SetColor(Brown); OutTextXY(500,300,'Интервал по Y:'); Str(minY:5:2,s1);(maxY:5:2,s2); OutTextXY(480,320,'от'+s1+' до'+s2); end;
{Рисование графика }graphik;(10,15,480,400,ClipOn);:=(maxY-minY)/MaxPicY;:=lft;:=f; j:=(350+round(minY/mashy)-round(y/mashY)); PutPixel(60,j,red);(50,j);i:=51 to 460 do:=x+mashX;:=f; j:=(350+round(minY/mashy)-round(y/mashY)); LineTo(i-10,j);;;
{Оцифровка осей }ozifr;(4);:=abs(rgh-lft)/nx;:=2;:=lft;(ch:5:2,s);(lx-57,355,s);i:=1 to nx do:=lx+dx;:=ch+dxc;:=ch;:=f;(y:5:2,s3);(ch:5:2,s);(lx,355,s);:=s1+' '+s;:=s2+' '+s3;;:=abs(maxY-minY)/ny;:=345;:=minY;(ch:5:2,s);(1,ly+52,s);i:=1 to ny do:=ly-dy;:=ch+dyc;(ch:5:2,s);(1,ly,s);; SetViewPort(0,0,GetmaxX,GetmaxY,ClipOn);
{ SetViewPort(10,410,620,480,ClipOn); }(0,HorizDir,1); outtextxy(12,420,'x= '+s1); outtextxy(12,440,'y= '+s2);;;;
{end;};;;;;_interval;
graphik;;.
5. Результаты тестирования программы
Результаты тестирования показывают, что разработанная в ходе курсовой работы программа работает правильно и требования задания соблюдены в полном объеме. Листинг результатов работы программы приведен в приложении.
Заключение
В ходе курсовой работы была написана программа на языке Turbo Pascal, которая построит график функции. Для построения графика функции использовалась декартова система координат.
Показаны линии сетки координатной системы и их оцифровка. Одновременно с графиком функции выводится на экран уравнение, диапазон изменения аргумента, Ф. И. О. и номер группы.
Список использованной литературы
1.О. А. Меженный. TURBO PASCAL. Учитесь программировать. - М.: Диалектика, 2001г.
2.А. М. Епанешников, В. А. Епанешников. Turbo Pascal 7.0. - М.: ДИАЛОГ-МИФИ, 2001г.
программирование pascal функция листинг декартовый
Приложение