- •21. Числа Фибоначи
- •22. Отриц. Элем. Массива и их индексы.
- •23.Число соседств в массиве.
- •24. Путь робота.
- •25. График астроиды.
- •26. Мухоморчики до края картинки.
- •27. Усеч. Четырехугольная пирамида.
- •40. 6 Призеров и победитель.
- •38. Разложение экспоненты.
- •37. Мин и Мах элем. Массива.
- •36. Разложение синуса.
- •34. Площадь и объем пирамиды/призмы.
- •33. Полиндромы.
- •32. Значение функции (системы).
- •21. Числа Фибоначи
- •22. Отриц. Элем. Массива и их индексы.
- •23.Число соседств в массиве.
- •25. График астроиды.
- •26. Мухоморчики до края картинки.
- •27. Усеч. Четырехугольная пирамида.
- •40. 6 Призеров и победитель.
- •38. Разложение экспоненты.
- •37. Мин и Мах элем. Массива.
- •36. Разложение синуса.
- •34. Площадь и объем пирамиды/призмы.
- •33. Полиндромы.
- •32. Значение функции (системы).
32. Значение функции (системы).
Private Sub Button9_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button9.Click
Dim x, y, xmax, xmin, h, i As Double
xmin = Convert.ToDouble(TextBox1.Text)
xmax = Convert.ToDouble(TextBox2.Text)
h = Convert.ToDouble(TextBox3.Text)
For i = xmin To xmax Step h
If (i <= 9) Then
If (i <> 5) And (i <> -5) Then
y = 1 / (25 - i ^ 2)
ListBox1.Items.Add("x= " & Convert.ToString(i) & "y= " & Convert.ToString(y))
Else : ListBox1.Items.Add("error")
End If
Else
If i > 16 Then
If Math.Sin(i) >= 0 Then
y = Math.Sqrt(Math.Sin(i))
ListBox1.Items.Add("x= " & Convert.ToString(i) & "y= " & Convert.ToString(y))
Else : ListBox1.Items.Add("error")
End If
End If
End If
Next
End Sub