program lab3; uses crt,graph; var i, CB,TLX,TLY,BRX,BRY,WRX,WRY,n :integer; Ax,Ay,Bx,By, temp, xmin,xmax, ymin,ymax, t :real; a,b: array[0..359] of real; text : string; procedure SetupGraphics; var grDriver, grMode :integer; begin grDriver := detect; InitGraph(grDriver,grMode,'c:/bp/bgi'); end; procedure Stop; begin repeat until keypressed; end; begin {main} ClrScr; write('Введите n '); read(n); for i:=0 to 359 do begin a[i]:=cos(n*i)*cos(i); b[i]:=cos(n*i)*sin(i); end; temp:=a[0]; for i:=0 to 359 do if a[i]temp then temp:=a[i]; xmax:=temp; temp:=b[0]; for i:=0 to 359 do if b[i]temp then temp:=b[i]; ymax:=temp; TLX := 60; TLY := 60; BRX := 460; BRY := 360; WRX := BRX - TLX; WRY := BRY - TLY; Ax := WRX/(xmax-xmin); Ay := WRY/(ymax-ymin); Bx := TLX - Ax*xmin; By := TLY - Ay*ymin; SetupGraphics; Rectangle(TLX,TLY, BRX,BRY); SetColor(green); i:=TLX+50; while i