3 . Построение графиков функций

 

И в заключении рассмотрим программу построения на экране компьютера графиков функции. В качестве примера построим график функции y= x²-3 на  отрезке [-3, 3]. Напишем программу построения графика.

 

          program parabola;

           Uses graph;

          Var

                  Gd, Gm :  integer;

                   x, y : real;  i : integer;

           Begin

                    InitGraph(Gd, Gm, ‘ c: ‘);

                    if  GraphResult <> grOK then Halt(1);

                        line(10, 100, 300, 100);

                        line(170, 100, 170, 97);

                        line(160, 10, 160,190);

                        line(160, 90, 163, 90);

                        for i := -30 to 30 do begin

                        x := 0.1 * i;  y := x*x-3;

                        putpixel(round(160+ 10*x), round(100 - 10*y), white)

                        end;

            Readln;

            CloseGraph

             End.