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...

Приветствую, Вас мой дорогой читатель. После изучения интернет пространства по лекциям программирования, пришел к нескольким выводам: 1. Материала достаточно много, при желании можно найти все, что пожелаете. Но, нужно уметь искать и при этом понимать, что ищешь. 2. Если опыт по программированию минимален или отсутствует, то не стоит сразу хвататься за язык С или С++. Этот язык достаточно вольный и многомерный, поэтому, очень много нюансов, которые будут только отвлекать, хотя возможностей еще больше...