программа по блок схеме

[mari001]

Помогите пожалуйста написать программу через inputbox в VB который в Exel

IMG_0206.jpg

[mari001]

я в этом не бум-бум абсолютно) помогите химику!

[Alkagolik]

и даже блок схема есть. так в чем проблема? напишите на известном Вам языке. Тут ошибочка в схеме. Блок №5 (x = a + i * h ... i = i + 1) это цикл, который обрывается принудительно при выполнении условия (i <= n - 1), либо с постусловием, как Вам угодно.

[mari001]

я даже не понимаю как.
как ввести то что f(x)
a,b,n их вводить через дим, а где %,!???

[Alkagolik]

Ввод\вывод данных осуществляется через соответствующте операторы ввода\вывода. Вам даже блок - схему нарисовали. Другое дело помочь составить алгоритм или вместе поискать ошибки в коде. Тут всегда помогут и я бы с удовольствием, но это не просьба о помощи, это просьба сделать за Вас, тем более что уже все самое трудное сделано, осталось только набрать и скомпилировать (если надо). Если с++ устроит, сделаю за 5 баков консольку.

[gfadssa11]

Так можно самому разобраться, если есть блок-схема.
Посмотреть про циклы, условия и прочее в visual basic.
А f(x) у вас и написано=x^2-S

[mari001]

я напрягла извиленами, но все равно что-то не то.. подскажите где ошибка? ответ выдает 2,335 вместо -2,65

Sub variant_16()
Dim S As Single, S1 As Single, h As Single, a As Single, b As Single, n%, x As Single
a = InputBox("a=")
b = InputBox("b=")
n = InputBox("n=")
S = 0
i = 0
h = (b - a) / n
Do
x = a + i * h
S = S + (f(x) + f(x + h)) / 2
i = i + 1
Loop While i <= n - 1
If i >= n Then
S1 = 0
For i = 0 To n - 1
x = a + i * h
S1 = S1 + (f(x) + f(x + h)) / 2
Next i
S = S * h
S1 = S1 * h
Cells(2, 2) = S
Cells(2, 4) = S1
End If
End Sub
Function f(x)
f = x ^ 2 - S
End Function

[gfadssa11]

С математикой может неправильно.
f(x+h) в коде, не знаю, именно так и задавать?.
Но странно, что ответ должен быть отрицательный, если везде плюсы.

[Alkagolik]

беглый взгляд. Попробуйте f(x) перезаписывать в каждом проходе цикла. накидаю пока код.

[Alkagolik]

Что-то не то с алгоритмом. Непонятно: интегрируем S и S1 с одинаковыми значениями х и естесственно получаем одинаковые результаты до S*h мы имеем S=S1=3.805 значит второй цикл просто паразит странно что раньше не заметил, дальше, на вывод подается 2 переменные, а результат одной. Следовательно, вывод требует не S, S1, а f(x) для которой значение S1 не важно, т.е. весь алгоритм и есть интеграл (производные, примитивные у меня плавают пока), но тогда результат зависит от х, который =sqrt(-2.665+3.805) т.к. f(x)=x^2-S в таком случае x^2 должен равняться 1.14. вобщем как я ни извращался над кодом у меня вышло вот что. при f(1)=f(-1)=-2.805, f(0)=-3.805. То что S=S1=3.805 - факт. можно ручкой на бумаге подсчитать. дайте текст задачи.