Информатика 2011-2012 / Информатика-2-сем(2011) / Задания и примеры / од.массив

Создать приложение: «Решения задач с одномерными массивами».

Решение:

Эскиз экранной формы представлен на рис. 1.

1. Расставим имена объектов на эскизе экранной формы.

Рис. 1

Рис. 1.

2. Программный код

D

Объявление переменных и массива в области General

im n, i As Integer

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-приложение дает возможность пользователям ПК создавать свои приложения, решающие подобные задачи.