Составить блок-схему и программу, которая начертит оси координат, которые пересекаются в...

Question

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

Comments

Попробую

---

Хорошо)

---

Вроде получилось

Answer 1

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.

---

Comments

//PascalABC.Net 3.2

---

Конечно, с масштабом закосячил))