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

Доброго времени суток,👋 В данной статье, мы разберём базовые функции языка программирования "Pascal",которые проходят ещё в школе на уроках информатики и уже "знатокам" программирования данная статья будет скучна, но для ностальгии можете ей уделить пару минут своего времени😊 Спасибо, что перешли на данную статью, надеюсь она будет вам полезна. Создание программы Я решил не устанавливать Pascal на свой пк, как мне кажется, проще использовать карманную версию на смартфоне...