Нужна блок-схема, просто я в них не силен

Public XMin As Single, XMax As Single
Public YMin As Single, YMax As Single
Public n As Integer
Public MX() As Single, MY() As Single
' Определили массивы MX и MY без объявления размерности
Public Sub TabFunc(xn As Single, xk As Single, h As Single)
'Процедура табулирования функции

Dim x As Single, y As Single
Dim i As Integer

n = (xk - xn) / h
'Определяем размерность массива, т.е. количество точек в
'таблице значений (следует иметь в виду,
'что отсчет начинается с нуля)
ReDim MX(n), MY(n)
'Устанавливаем фактический размер массивов
Form2.VScroll1.Max = n
'Установили максимальное значение диапазона прокрутки
x = xn
y = f(x)
YMax = y: YMin = y
'Присвоили начальные значения для цикла и организовываем цикл
'для вычисления таблицы значений и определения максимального
'и минимального значений функции

For i = 0 To n
y = f(x)
MX(i) = x
MY(i) = y

If y > YMax Then YMax = y
If y < YMin Then YMin = y
x = x + h
Next
XMin = xn
XMax = xk

End Sub

Sub PrntFunc()
'Процедура перерисовки формы Form2
Form2.Cls
Form2.CurrentY = 800
Form2.CurrentX = 1000
Form2.Print " x", " f(x)"
' Form2.CurrentX = 1000
Form2.Print
'Очистили форму Form2 и вывели в нее заголовок таблицы.
'Далее в цикле выводим в форму Form2 значения Х и У.
'Выводятся только те строки, номера которых (i) больше или
'равны значения свойства Value полосы прокрутки в форме Form2)
'(определяется позицией бегунка в полосе прокрутки)

For i = 0 To n
If i >= Form2.VScroll1.Value Then
Form2.CurrentX = 1000
Form2.Print Format(MX(i), "####0.00"), Format(MY(i), "###0.000")
End If
Next

Form2.Print
Form2.Print " Максимальное значение", Format(YMax, "###0.000")
Form2.Print " Минимальное значение", Format(YMin, "###0.000")
'Вывели в форму Form2 строки с максимальным и минимальным значениями.

End Sub

0

Ты уверен что это С?? в частности Visual ?

0

Сообщение от ValeryS Ты уверен что это С?? в частности Visual ?

ну да, задание взято с лабы по вижуалу

Добавлено через 3 минуты
извини, ступил)

0