Вывести значение функции - 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
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д