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

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



   Лабораторная работа №26
               Графика: построение графиков функций;
             построение кривых в параметрической форме
1) Построить графики линейной функции y=kx для k=0.1,0.2,…,1

2) Построить графики функций: а) y=3x2;
б) y=-6x2+3x;
в) y=x3+2x2+x;
г) y=x5;
д) y=sinx;
е) y=cos(x-10+|x|

3) Построить на графическом экране график функции y = f (x) на от-
резке [a,b]. Предусмотреть также построение окна для построения гра-
фика и осей координат.

  program grafik;
   uses CRT,Graph;
   var
      grDriver:integer;
      grMode :integer;
      ErrCode :integer;
   var
      a,b,y1,y2,dx,dy:real;
      x,y,h,mx,my:real;
      xa,ya,xc,yc,x0,y0,lx,ly:integer;
      n,i,x11,y11:integer;
  function f(x:real):real;
   begin
     f:=sqr(x)+sin(5*x);
   end;
   BEGIN
      clrscr;
        writeln('введите a,b,n,y1,y2');
        readln(a,b,n,y1,y2);
        writeln('введите lx,ly,x0,y0');
        readln(lx,ly,x0,y0);
        writeln('vvedite dx,dy');
        readln(dx,dy);
       {вычисление масшт. Коэффициентов и шага h}
        mx:=lx/(b-a); my:=ly/(y2-y1);h:=(b-a)/(n-1);
       xa:=round(x0+mx*a);ya:=round(y0-my*y1);

                                   89