Вывести значение функции - 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
Похожие ответы