public class Main { public static void main(String[] args) { Scanner in = new Scanner(System.in); int n = in.nextInt(); double[] a = new double[n]; for (int i = 0; i < n; i++) { double rand = Math.random(); a[i] = rand <= 0.5 ? rand*(-40) : rand*40; } double max = -100, min = 100; int maxi = -1, mini = -1; for (int i = 0; i < a.length; i++) { if (a[i] > max) { max = a[i]; maxi = i; } if (a[i] < min) { min = a[i]; mini = i; } } double temp = a[maxi]; a[maxi] = a[mini]; a[mini] = temp; } }
Uses GraphABC; procedure Draw(x, y, l, u : Real; t : Integer);
procedure Draw2(Var x, y: Real; l, u : Real; t : Integer); begin Draw(x, y, l, u, t); x := x + l*cos(u); y := y - l*sin(u);end; begin if t > 0 then beginl := l/3;Draw2(x, y, l, u, t-1);Draw2(x, y, l, u+pi/3, t-1); Draw2(x, y, l, u-pi/3, t-1);Draw2(x, y, l, u, t-1);end else Line(Round(x), Round(y), Round(x+cos(u)*l), Round(y-sin(u)*l))end; begin SetWindowSize(425,500); SetWindowCaption('Фракталы: Снежинка Коха'); Draw(10, 354, 400, pi/3, 4);Draw(410, 354, 400, pi, 4); Draw(210, 8, 400, -pi/3, 4);end.
