Добавил:
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:

Лабы по КП / Лаба 1

.doc
Скачиваний:
14
Добавлен:
16.12.2013
Размер:
45.57 Кб
Скачать

Федеральное агентство по образованию

Государственное образовательное учреждение

Высшего профессионального образования

«Государственный Университет Управления»

Институт Информационных Систем Управления

Кафедра компьютерных технологий

Лабораторная работа № 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 ‘окончание подпрограммы

Соседние файлы в папке Лабы по КП