program draw_line; uses Crt, Math, Graph; var graphicsDriver, graphicsMode: Integer; x1, y1, x2, y2, dx, dy: real; u1, v1, u2, v2: real; p, q, a: real; b, d, c: real; f, k, w, z, h, e: Real; begin while (1 = 1) do begin k := 6.2831; clearDevice(); graphicsDriver := Detect; InitGraph(graphicsDriver, graphicsMode, ''); x1 := getMaxX div 2; y1 := getMaxY div 2; u1 := x1; v1 := y1; a := 0.5; c := 0; setColor(Yellow); p := 0.0001 * trunc(10000 * Random()); q := 0.0001 * trunc(10000 * Random()); b := 0...

Возникла тут небольшая задачка - сделать (на паскале, но это совершенно не важно) программу, рисующую кривую Пеано. Что это за кривая, я примерно себе представлял, но смутно, поэтому пришлось обратиться к Википедии за подробностями. Всю историю пересказывать не стану, тем более, что я её не знаю. В XVIII-XIX веках активно развивался аналитический аппарат теории функций на волне успехов дифференциального и интегрального исчисления, уточнялись базовые понятия, в том числе дело дошло и до понятия кривой...