- •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. Значение функции (системы).
37. Мин и Мах элем. Массива.
Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
Dim n, i As Integer
n = Convert.ToInt16(TextBox1.Text)
Dim a(n) As Integer
Dim imax, imin, b As Integer
For i = 1 To n
a(i) = Int(Rnd() * 100)
ListBox1.Items.Add(Convert.ToString(a(i)))
Next
imax = 1
imin = 1
For i = 2 To n
If a(i) > a(imax) Then
imax = i
End If
If a(i) < a(imin) Then
imin = i
End If
Next
b = a(imax)
a(imax) = a(imin)
a(imin) = b
For i = 1 To n
ListBox2.Items.Add(Convert.ToString(a(i)))
Next
End Sub
36. Разложение синуса.
Private Sub Button5_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button5.Click
Dim n, i As Integer
n = Convert.ToInt16(TextBox1.Text)
Dim x, p, f As Double
x = Convert.ToDouble(TextBox2.Text)
f = 1
p = 1
If (n <= 100) And (x <= 20) Then
For i = 1 To n
f = f * i
p = p * (1 + Math.Sin(x * i) / f)
Next
ListBox2.Items.Add(Convert.ToString(p))
Else : ListBox2.Items.Add("введите n <=100 и x <=20")
End If
End Sub
34. Площадь и объем пирамиды/призмы.
Private Sub Button7_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button7.Click
Dim a, h As Integer
Dim S, v As Double
a = Convert.ToInt16(TextBox1.Text)
h = Convert.ToInt16(TextBox3.Text)
If RadioButton1.Checked = True Then
If CheckBox1.Checked = True Then
S = a ^ 2
ListBox2.Items.Add(Convert.ToString(S))
End If
If CheckBox2.Checked = True Then
v = (1 / 3) * a ^ 2 * h
ListBox2.Items.Add(Convert.ToString(v))
End If
Else
If CheckBox1.Checked = True Then
S = a ^ 2
ListBox2.Items.Add(Convert.ToString(S))
End If
If CheckBox2.Checked = True Then
v = a ^ 2 * h
ListBox2.Items.Add(Convert.ToString(v))
End If
End If
End Sub
33. Полиндромы.
Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click
Dim s As String
s = TextBox1.Text
Dim i, n As Integer
Dim f As Boolean
f = True
n = s.Length
For i = 0 To Int(n / 2) - 1
If s.Substring(i, 1) <> s.Substring(n - i - 1, 1) Then
f = False
End If
Next
If f = True Then
MessageBox.Show("yes")
Else : MessageBox.Show("no")
End If
End Sub