Question

Срочно!
Ответить на :
4 вопрос, и 5 написовать таблицу и вписать .
Ну очень Срочно!!!
пожалуйста пишите!!!!
​

Answer 1

Ответ:

uses crt, graphabc;

var

  d,m,x,y,n,k:integer;

  xx,yy,t,a:real;

const

  xo=320; yo=240;

begin

  a:=0;

  for n:=1 to 20 do

    begin

      t:=0;

      for k:=1 to 6280 do

      begin

        xx:=200*cos(t);

        yy:=80*sin(t);

        x:=round(xo+(xx*cos(a)-yy*sin(a)));

        y:=round(yo-(xx*sin(a)+yy*cos(a)));

        PutPixel(x,y,white);

        t:=t+0.001;

    end;

    a:=a+pi/20;

  end;

end.