Интегрированный урок математики и информатики "Преобразование графиков тригонометрических функций 10 класс

Пример 1 program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer;     x, y: real; begin      SetWindowSize(640,400); // размер окна      x0:=320; // координаты начала отсчета      y0:=200;      line(20,y0, 620,y0); //ось абсцисс      line(x0,20, x0,380); //ось ординат      k:=20;  // шаг      setPenColor(clRed);  //цвет пера      x:=­15;      While x<=15 do      begin           y:=sin(x); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02      end; end. Пример 2 program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer;     x, y: real; begin      SetWindowSize(640,400); // размер окна      x0:=320; // координаты начала отсчета      y0:=200;      line(20,y0, 620,y0); //ось абсцисс      line(x0,20, x0,380); //ось ординат      k:=20;  // шаг      setPenColor(clRed);  //цвет пера      x:=­15;      While x<=15 do begin           y:=sin(2*x); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02      end; end. Пример 3. program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer;     x, y: real; begin      SetWindowSize(640,400); // размер окна      x0:=320; // координаты начала отсчета      y0:=200;      line(20,y0, 620,y0); //ось абсцисс      line(x0,20, x0,380); //ось ординат      k:=20;  // шаг      setPenColor(clRed);  //цвет пера      x:=­15;      While x<=15 do      begin           y:=sin(x+2); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02      end; end. Пример 4. program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer;     x, y: real; begin      SetWindowSize(640,400); // размер окна      x0:=320; // координаты начала отсчета      y0:=200;      line(20,y0, 620,y0); //ось абсцисс      line(x0,20, x0,380); //ось ординат      k:=20;  // шаг      setPenColor(clRed);  //цвет пера      x:=­15;      While x<=15 do      begin           y:=2*sin(2*x+2); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02      end; end. Пример 5. program Grafik; uses GraphABC; var x0, y0, x1, y1, k: integer;     x, y: real; begin      SetWindowSize(640,400); // размер окна      x0:=320; // координаты начала отсчета      y0:=200;      line(20,y0, 620,y0); //ось абсцисс      line(x0,20, x0,380); //ось ординат      k:=20;  // шаг      setPenColor(clRed);  //цвет пера      x:=­15;      While x<=15 do      begin           y:=2*sin(2*x+2); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02 end;      setPenColor(clgreen);  //цвет пера      x:=­15;      While x<=15 do      begin           y:=3*cos(3*x+3); // задание функции           x1:=trunc(x0+x*k);   // экранные координаты           y1:=trunc(y0­y*k);           circle(x1,y1,2);           x:=x+0.02      end; end.