02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР все 2 вариант / РГР№6 / РАСЧЕТНО

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №6

Программирование простых циклов.

Обраотка одномерных массивов.

Постановка задачи

Составить алгоритм и программу для выполнения предложенного значения по обработке одномерного массива Х, состояшего из”N” элементов. Массив должен быть сформирован с помощью генератора случайных чисел и заполнен а положитльными так и отрицательными целыми числами. Исходный массив и резльтаты его обработкивывести н а экранную форму.

Создание формы.

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

Option Explicit

Dim i As Integer, n As Integer

Dim x() As Integer

Private Sub Command1_Click()

n = Val(InputBox("Количество элементов массива", "Ввод данных"))

ReDim x (1 To n)

Randomize Timer

For i = 1 To n

x(i) = Int(Rnd * 20) - 10

Print x(i)

Next i

Print

End Sub

Private Sub Command2_Click()

Dim k As Integer

k = 0

For i = 1 To n

If x(i) >= 3 Then

If x(i) <= 5 Then k = k + 1

End If

Next i

Print k

End Sub

Private Sub Command3_Click()

End

End Sub

дБлок схема.

Начало

Ввод N

I= 1 to n

Вычисляем X(i)

ВыводX(i)

i = 1; n

X(i)>=3;<=5

K= 0

K= k+1

Вывод к

Конец