Информатика 2011-2012 / Дополнительная информация / Пример оформ Лабор раб 1,2 сем / Задача №3
.docЗадача №3
Задание: Дан вектор х(n). Вычислить число положительных элементов вектора.
Эскиз проекта
Блок-схема
Программный код
Dim n, k, i As Integer, x() As Single
Private Sub Command1_Click()
n = Val(InputBox("Ввести n", , "n="))
ReDim x(n)
For i = 1 To n
x(i) = Int(Rnd * 200) - 100
Next
End Sub
Private Sub Command2_Click()
For i = 1 To n
Text1.Text = Text1.Text + Str(x(i)) + " "
Next
End Sub
Private Sub Command3_Click()
k = 0
For i = 1 To n
If x(i) > 0 Then k = k + 1
Command3.Caption = "Количество положительных элементов массива равно" + Str(k)
Next
End Sub
Private Sub Command4_Click()
End
End Sub
Работа приложения
Ввод исходных данных
Отображение массива в Text 1
Результат