Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
34
Добавлен:
07.06.2015
Размер:
397.82 Кб
Скачать

Задача №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

Результат

Соседние файлы в папке Пример оформ Лабор раб 1,2 сем