02 семестр / Лабораторные работы / РГР и Лабы разных вариантов / РГР №6,7 1 вариант / РГР№6 / Для братки)

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

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

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

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

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

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

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

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

Dim s As Single

k = 0

s = 0

For i = 1 To n

If x(i) Mod 2 = 0 Then

k = k + 1

s = s + x(i)

End If

Next i

Print k

Print s

End Sub

Private Sub Command3_Click()

End

End Sub

4 Блок схема.

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

K= 0: s=0

k=k+1: s=s+x(i)

s = s + x(i)s = s + x(i)