End Sub. Пример 23. Построить и заполнить таблицу значениями функции

Пример 23. Построить и заполнить таблицу значениями функции

на отрезке с шагом 1 для аргумента х, изменяющегося от 3 до 5 с шагом 0,5. Точку х=а исключить.

Sub Demo_tab()

Dim i, a As Integer

Dim x, y As Single

i = 1

For a = 4 To 6 Step 1

For x = 3 To 5 Step 0.5

' Вычисляем значение функции, если знаменатель не ноль

If x <> a Then

y = Sqr (x ^ 2 + a ^ 2) / (x - a)

Дата добавления: 2014-01-04; Просмотров: 299; Нарушение авторских прав?; Мы поможем в написании вашей работы!