Практикум по решению задач на ЭВМ. Тарова И.Н - 17 стр.

                   Практикум по решению задач на ЭВМ


         line(60,400-k*20,65,400-k*20);
         end;
         setcolor(14);
         settextstyle(0,0,2);
         outtextxy(120,20, 'Население городов (тысяч)');
         settextstyle(0, 0,1);
         for k:=l to 6 do
         begin
         setfillstyle(1,k+2);
       bar(100+(k-l)*70,400,100+k*70,round(400-m[k]/1000*20));
         outtextxy(100+(k-1)*70+4,450,name[k]);
       end;
         repeat until keypiressed;
         closegraph
         end.
  Процедура bar3d(xl,yl,x2,y2,d,top) рисует трехмерный столбец, глуби-
на которого определяется параметром d. Последний параметр процедуры
top - логического типа. Если top=true, рисуется верхнее основание столби-
ка, в противном случае оно не изображается, что позволяет рисовать стол-
бики один над другим. Диаграммы с трехмерными столбиками красивы, но
их труднее создавать.
  Построение графиков функций. Построение графиков функций - не-
отъемлемая часть большинства программ, предназначенных для обучения
математике, физике. Ниже представлен пример программы построения
графика функции y=x*x*sin(l/x) на произвольном отрезке [а,b]. Количест-
во точек графика (параметр n) также задается произвольно (точка х=0 ис-
ключается, так как в ней функция не определена). В программе также оп-
ределяются величины tl=(xl-x0)/(b-a) и t2=(yl-y0)/(2m), которые означают
масштабы по осям X и Y соответственно. График рассматриваемой функ-
ции представлен на двух отрезках [а,b] и [-0.1,0.1]. Чтобы построить гра-
фик другой функции, достаточно задать ее аналитический вид в описании
функции (function f).
     Программа
         prograjn grafik;
         uses crt, graph;
         var gd, gin, errCode: integer; a,b: real; n: integer;
         function f(x:real):real;
         begin if x<>0 then f:=x*x*sin(1/x);
         end;
         procedure grafun(xO,xl,yO,yl,n: word; a,b: real);
         var h,m,x, tl,t2: real; i, u,v,xv,yv: word;
         begin
         h:=(b-a)/n; {поиск максимума f(x)}


                                   17