Пример 3. Задана последовательность хiвещественных чисел

Пример 2

Задана последовательность х_i вещественных чисел. Вычислить

Public Sub Prog2()

Dim n As Byte

Dim i As Byte

Dim xi As Double, s As Double

n = CByte(InputBox("введите N"))

s = 0

For i = 1 To n

xi= CDbl(InputBox("Введите " & i & "-й элемент последовательности"))

s = s + xi

Next i

Worksheets(1).Range("a1") = "Значение суммы равно"

Worksheets(1).Cells(2, 1) = s

End Sub

Задан массив, содержащий N вещественных чисел. Найти наибольший и наименьший элементы и поменять их местами.

Public Sub Prog3()

Dim n As Integer, i As Integer

Dim imin As Integer, imax As Integer

Dim max As Double, min As Double

Dim a() As Double

n = CInt(InputBox("введите N"))

ReDim a(1 To n)

Worksheets(1).Range("A1") = "Исх. массив"

For i = 1 To n

a(i)=CDbl(InputBox("Введите " & i & "-й элемент последовательности"))

Worksheets(1).Cells(i + 1, 1) = a(i)

Next

imin = 1: imax = 1

min = a(1): max = a(1)

For i = 1 To n

If a(i) > max Then

imax = i: max = a(i)

End If

If a(i) < min Then

imin = i: min = a(i)

End If

Next i

a(imin) = max

a(imax) = min

Worksheets(1).Range("C1") = "Рез. массив"

For i = 1 To n

Worksheets(1).Cells(i + 1, 3) = a(i)

Next i

End Sub

Дата добавления: 2014-01-05