Написать программу вычисления нижней границы действительных корней - VB

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

очень срочно нужно сделать программы из блоков.осилил первые два блока.пожалуйста не могли бы вы помочь и сделать хотя бы по 1 задаче из каждого из трех блоков.помогите бедному студенту.так хоть пойму структуру кода изнутри

Решение задачи: «Написать программу вычисления нижней границы действительных корней»

textual
                            Листинг программы 
                        

                            Private Sub Command1_Click()
Dim x#
m = 10: st = 0.1
Picture1.Scale (-m, m)-(m, -m)
Picture1.Line (-m, 0)-(m, 0)
Picture1.Line (0, m)-(0, -m)
For x = -m + st To m Step st
Picture1.Line (x, f(x))-(x - st, f(x - st))
If 2 * Abs(x) <= st Then Picture1.Print f(x): Picture1.Circle (x, f(x)), st, vbRed
If Abs(f(x)) <= st / 2 Then
Picture1.CurrentY = -1: Picture1.CurrentX = x - st: Picture1.Print Round(x, 1)
Picture1.Circle (x, f(x)), st, vbRed
End If
Next x
End Sub
 
Function f#(arg#)
f = 1 - arg ^ 2 / 2 + arg ^ 4 / 24
End Function
 
Private Sub Form_Load()
Picture1.AutoRedraw = True
End Sub
                        

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

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

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