Вывести значение функции - VB

Формулировка задачи:

Дано целое число N(>2) и две вещественные точки на числовой оси: А и В (А<В). Функция F(x) задана формулой F(x)=1 – sin x. Вывести значения функции F в N равностоящих точках, образующих разбиение отрезка [A; B]: F(A), F(A+H), F(A+2H),…,F(B). Срочно! Заранее огромное спасибо!

Решение задачи: «Вывести значение функции»

textual
                            Листинг программы 
                        
 
                        
                          
                    
Private Sub Command1_Click()
Dim A As Double
Dim B As Double
Dim H As Double
Dim I As Double
A = InputBox("Введите значение A", , "0,0")
B = InputBox("Введите значение B", , "0,0")
If A >= B Then MsgBox "Введены значения, неудовлетворяющие условию!!!", vbCritical: Exit Sub
H = InputBox("Введите значение H", , "0,0")
If (B - A) Mod H <> 0 Then MsgBox "Значение шага некорретно!!!", vbCritical: Exit Sub
 
For I = A To B Step H
    Print "Значение F(" & I & ")=" & F(I)
Next
End Sub
Function F(X As Double) As Double
    F = 1 - Sin(X)
End Function

Оцени полезность:

10 голосов , оценка 4 из 5

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

Похожие ответы