Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / од.массив
.docСоздать приложение: «Решения задач с одномерными массивами».
Решение:
Эскиз экранной формы представлен на рис. 1.
1. Расставим имена объектов на эскизе экранной формы.
Рис. 1
Рис. 1.
2. Программный код
D
Объявление переменных и массива в
области General
Dim x() As Single
Private Sub Command1_Click()
n = InputBox("Ввести длину массива ", , "n=")
ReDim x(n) As Single
Max = 100: Min = -100
Randomize Timer
For i = 1 To n
x(i) = Int(Rnd * (Max - Min) - Max)
Next
Private Sub Command10_Click()
Command8.Caption = "Найти Max"
End Sub
Private Sub Command11_Click()
s = 0
For i = 1 To n
If x(i) < 0 Then s = s + 1
Next
Text2.Text = "s = " & Str(s)
End Sub
Private Sub Command12_Click()
Text2.Text = " "
End Sub
Private Sub Command2_Click()
Text1.Text = " "
For i = 1 To n
Text1.Text = Text1.Text + " " + Str(x(i))
Next
End Sub
Private Sub Command3_Click()
s = 0
For i = 1 To n
If x(i) > 0 Then s = s + x(i)
Next
Command3.Caption = "Сумма =" & Str(s)
End Sub
Private Sub Command4_Click()
Text1.Text = " "
End Sub
Private Sub Command5_Click()
Command3.Caption = "Найти сумму отрицательных элементов"
End Sub
Private Sub Command6_Click()
Text1.Text = " "
End Sub
Private Sub Command7_Click()
End
End Sub
Private Sub Command8_Click()
Max = x(1)
For i = 2 To n
If x(i) > Max Then Max = x(i)
Next
Command8.Caption = "Max =" & Str(Max)
End Sub
Private Sub Command9_Click()
m:
f = 0
For i = 1 To n - 1
If x(i) > x(i + 1) Then p = x(i): x(i) = x(i + 1): x(i + 1) = p: f = 1
Next
Text1.Text = " "
If f = 1 Then GoTo m
For i = 1 To n
Text1.Text = Text1.Text + " " + Str(x(i))
Next
End Sub
3. Работа приложения
3.1. После щелчка мышью по кнопке «Ввод одномерного массива» появится окно ввода рис. 2.
Рис. 2.
3.2. Введем длину массива (число 20) и щелкнем кнопку « Вывод массива в текстовом окне», после чего в этом окне появится массив чисел рис. 3.
Рис 3.
3.3. Теперь мы можем выполнить любую из предложенных на кнопках операций, например, нахождение суммы отрицательных элементов массива. Для этого необходимо щелкнуть соответствующую кнопку на форме и получим результат (рис. 4, рис. 5) и т.д.
Рис. 4. Рис. 5
Вывод:
Приведенное Windows-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи.