Лабы по КП / Лаба 1
.docФедеральное агентство по образованию
Государственное образовательное учреждение
Высшего профессионального образования
«Государственный Университет Управления»
Институт Информационных Систем Управления
Кафедра компьютерных технологий
Лабораторная работа № 1
По дисциплине «Компьютерная подготовка»
Выполнила:
студентка ИНиМЭ,
Проверил:
Канаков А.Г.
МОСКВА 2005
Задание. Дан одномерный массив N произвольных чисел. Вывести на экран в строчку (используя элемент управления TextBox) все числа массива лежащие в диапазоне от -8
до +1, включая границы, или сообщить, что таких чисел нет. Определить так же среднее арифметическое чисел, меньших 5 и больших -3, их количество и сумму
или сообщить, что таких чисел нет. Все данные вывести на экран с соответсвующей подсказкой, используя элемент управления Label.
Private Sub Command1_Click()
Dim a() As Single, kol As Integer, sum As Integer, sa As Single, kol1 As Integer ‘задаём переменные (в т.ч. массив a) и определяем их типы
n = InputBox("введите число элементов массива") ‘выводим запрос о количестве элементов массива
ReDim a(n) ‘переопределяем массив а
For i = 1 To n ‘начинаем цикл для всех элементов массива
a(i) = InputBox("A" + Str(i) + "=") ‘задаем значение каждого i-того элемента массива
Next i ‘конец цикла
m$ = " " ‘задаем символьную переменную m и присваем ей значение “ ”
kol = 0 ‘присваиваем переменной kol значение 0
'определение чисел от -8 до 1
For i = 1 To n ‘цикл для всех элементов массива
If a(i) >= -8 And a(i) <= 1 Then ‘требуем одновременного выполнения 2-х условий
m$ = m$ + Str(a(i)) + " " ‘записываем в символьную переменную m значения элементов массива, которые выполняют наши условия
kol = kol + 1 ‘счетчик количества таких переменных
End If ‘окончание условия
Next I ‘окончание цикла
If kol = 0 Then Text1.Text = "таких нет" Else Text1.Text = m$ ‘задаем значение тектового поля Text1 (если количество будет = 0, значит таких чисел не было)
'среднее арифметическое чиcел <5 и >-3, их количество и сумма
sum = 0 ‘задаем изначальное значение переменной, равное 0
sa = 0 ‘задаем изначальное значение переменной, равное 0
kol1 = 0 ‘задаем изначальное значение переменной, равное 0
For i = 1 To n
If a(i) < 5 And a(i) > -3 Then ‘требуем одновременного выполнения 2-х условий
kol1 = kol1 + 1 ‘счетчик количества переменных, которые подходят под условия
sum = sum + a(i) ‘подсчет их суммы
End If
Next i
If kol1 <> 0 Then ‘если количество переменных от -3 до 5 будет неравно 0, то считаем среднее арифметическое и заполняем текстовые поля значениями среднего арифметического, количества элементов и их суммы
sa = sum / kol1
Text2.Text = sa
Text3.Text = kol1
Text4.Text = sum
Else ‘в противном случае заполняем текстовые поля сообщения, что таких чисел нет
Text2.Text = "таких чисел нет"
Text3.Text = "таких чисел нет"
Text4.Text = "таких чисел нет"
End If
End Sub ‘окончание подпрограммы