РГР и Лабы разных вариантов (РАСЧЕТНО)

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

РАСЧЕТНО-ГРАФИЧЕСКАЯ РАБОТА №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

Вывод к

Конец




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

Файл
185582.rtf
15956-1.rtf
29166-1.rtf
64210.rtf
ref-19377.doc




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