Составить блок-схему и программу, которая начертит оси координат, которые пересекаются в точке координат 200х200. B этой системе координат нарисовать косинусоиду. P.S в программе вроде должна быть команда trunk(x) Блок-схему тоже обязательно

Вопрос школьника по предмету Информатика

Составить блок-схему и программу, которая начертит оси координат, которые пересекаются в точке координат 200х200. B этой системе координат нарисовать косинусоиду.
P.S в программе вроде должна быть команда trunk(x)
Блок-схему тоже обязательно

Ответ учителя по предмету Информатика

uses GraphABC;

begin

InitWindow(0,0,800,600,clWhite);

Coordinate.SetMathematic;

Coordinate.SetTransform(400,300,0,1,1);

  var d:=3; var x:=0; var y:=0;

  for var i:=0 to d-1 do

   for var j:=-400 to 400 do begin

     PutPixel(j, y+i, clBlue);

     PutPixel(x+i, j, clBlue);

    end;

 

  d:=1; x:=200; y:=200;

 for var i:=0 to d-1 do

   for var j:=-400 to 400 do begin

     PutPixel(j, y+i, clRed);

     PutPixel(x+i, j, clRed);

   end;

   

 for var i:=0 to 400 do

 PutPixel(i, trunc(sin(i/15*pi)*15)+200, ClBlack);

end.