Question

VBA. Тоже нужно разработать алгоритм той же функции, но по 2-ой и 3-ей блок-схеме

Answer 1

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    x = xN: i = 1
    Do
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        x = x + h: i = i + 1
    Loop While x <= xK
End Sub

Sub Alg_1()
    xN = -5: xK = 5: h = 0.1
    i = 1
    For x = xN To xK Step h
        y = 3 * x ^ 2 - 6 * x + 5
        Cells(i, 1) = x: Cells(i, 2) = y
        i = i + 1
    Next x
End Sub

Answer 2

Вместо Loop While x <= xK можно также написать Loop Until x>xK - дело вкуса