program sin_y; 	{Наименование программы}
uses GraphABC; 	{Подключаемый модуль}
var                      	{Переменные}
  x,y : real;                  	{Переменные с }
  x1,y1 : integer;
  cx, cy, x_ekr,y_ekr : integer; {Переменные с целыми числами}
begin                                        {Начало программы}
  setfontsize(20);                      {Размер шрифта}
  textout(380,10,'y');                 {Подпись оси У}
  textout(780,270,'x');               {Подпись оси Х}
  textout(410,305,'0');               {Начало координат}
  textout(40,40,'y=sin x');         {Наименование графика}
  setpenwidth(2);                      {Толщина линий}
  SetPenColor(ClBlue); 	   { цвет линий }
  Line(10,300,790,300); 	   { ось Ox }
  Line(790,300,770,290);        {Стрелочка оси Х}
  Line(790,300,770,310);
  Line(400,10,400,590); 	   { ось Oy }
  Line(400,10,390,30);            {Стрелочка оси У}
  Line(400,10,410,30);
  for x_ekr:=0 to 799 do         { цикл от края до края экрана }
  begin
    x:=x_ekr-400;                     { вычисляем значение аргумента      }
	  y:=Sin(x/50);                               { вычисляем значение функции        }
    y_ekr:=round(300-y*50);                     { переводим в "экранные" координаты }
    putpixel(x_ekr,y_ekr,Clgreen);             { рисуем точку на графике           }
  end;                                                         {Конец цикла}
 begin
   LockDrawing;
  for x1:=0 to 799 do
  begin
   y1:=round(300+50*cos(x1/50));
   SetPenColor(ClBlue);
   Circle(x1,y1,5); {радиус точки двтжения}
   Redraw;
   Sleep(25); {скорость движения точки}
  end;
 end;
end.    {Конец программы}