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

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

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

Dim s As Single

k = 1

For i = 1 To n

If x(i) Mod 5 = 0 Then

k = k * x(i)

End If

Next i

Form1.Print "произведение элементов кратных 5="; k

End Sub

Private Sub Command3_Click()

End

End Sub





дБлок схема.

Начало

Ввод N

I= 1 to n

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

ВыводX(i)

i = 1; n

x(i) Mod 5 = 0

K= 1

K= k* x(i)

Вывод к

Конец




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

Файл
69487.rtf
91062.rtf
97009.rtf
26269-1.rtf
97971.doc




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