Question

помогите написовать рисунок через Pascal ABC

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.