РГР и Лабы разных вариантов (Для братки))

Посмотреть архив целиком

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №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 Блок схема.

Овал 1Прямая соединительная линия 3Параллелограмм 4Шестиугольник 5Прямая соединительная линия 6

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

Прямая соединительная линия 8 Параллелограмм 9 Прямая соединительная линия 10 Прямая соединительная линия 11 Прямая соединительная линия 12 Прямая соединительная линия 13 Прямая со стрелкой 14 Прямая соединительная линия 15 Прямая соединительная линия 16 Прямая соединительная линия 17 Прямая со стрелкой 18 Шестиугольник 19 Прямая соединительная линия 20 Ромб 21

K= 0: s=0

Прямая соединительная линия 23 Прямая соединительная линия 24

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

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

Прямая соединительная линия 26 Прямая соединительная линия 27 Прямая со стрелкой 28 Прямая соединительная линия 29 Параллелограмм 31 Прямая соединительная линия 32 Прямая соединительная линия 33 Прямая соединительная линия 34 Прямая соединительная линия 35 Прямая со стрелкой 36 Прямая соединительная линия 37 Овал 38


Случайные файлы

Файл
26489.rtf
59720.rtf
29356-1.rtf
57178.rtf
49829.rtf




Чтобы не видеть здесь видео-рекламу достаточно стать зарегистрированным пользователем.
Чтобы не видеть никакую рекламу на сайте, нужно стать VIP-пользователем.
Это можно сделать совершенно бесплатно. Читайте подробности тут.