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

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

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

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

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

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

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

Лабораторная работа № 2

По дисциплине «Компьютерная подготовка»

4 вариант

Выполнила:

студентка ИНиМЭ,

Проверил:

Канаков А.Г.

МОСКВА 2005

Задан одномерный массив размерностью N. Вывести на экран элементы массива в строчку, расположив их по убыванию их значений. Определить количество чисел, расположенных между первым максимальным и последним минимальным среди отрицательных и их сумму.

Private Sub Command1_Click()

Dim N As Integer

Dim A() As Single

Dim I As Integer

Dim J As Integer

Dim B As Single

Dim SP As String

Dim SP1 As String

Dim MAX As Single

Dim nMAX As Integer

Dim MIN As Single

Dim nMIN As Integer

Dim SUM As Single

Dim KOL As Integer

N = InputBox("Введите размер массива")

ReDim A(1 To N) As Single

For I = 1 To N

A(I) = InputBox("A(" + Str(I) + ")=")

Next I

SP = ""

For I = 1 To N

SP = SP + Str(A(I)) + " "

Next I

Text1.Text = SP

For I = 1 To N - 1

For J = I + 1 To N

If A(I) < A(J) Then

B = A(I)

A(I) = A(J)

A(J) = B

End If

Next J

Next I

SP1 = ""

For I = 1 To N

SP1 = SP1 + Str(A(I)) + " "

Next I

Text2.Text = SP1

MAX = -1E+38

MIN = 1E+38

For I = 1 To N

If A(I) < 0 And A(I) > MAX Then

MAX = A(I)

nMAX = I

End If

If A(I) < 0 And A(I) <= MIN Then

MIN = A(I)

nMIN = I

End If

Next I

KOL = 0

For I = 1 To N

If I > nMAX And I < nMIN Then

KOL = KOL + 1

SUM = SUM + A(I)

End If

Next I

If MAX = -1E+38 Then

Text3.Text = "Нет отрицательных"

Text4.Text = "Нет отрицательных"

Text5.Text = "Нет отрицательных"

Text6.Text = "Нет отрицательных"

Text7.Text = "Нет отрицательных"

Text8.Text = "Нет отрицательных"

Else

Text3.Text = MAX

Text4.Text = nMAX

Text5.Text = MIN

Text6.Text = nMIN

Text7.Text = KOL

Text8.Text = SUM

End If

End Sub

Private Sub Command2_Click()

End

End Sub