Студопедия Главная Случайная страница Обратная связь

Разделы: Автомобили Астрономия Биология География Дом и сад Другие языки Другое Информатика История Культура Литература Логика Математика Медицина Металлургия Механика Образование Охрана труда Педагогика Политика Право Психология Религия Риторика Социология Спорт Строительство Технология Туризм Физика Философия Финансы Химия Черчение Экология Экономика Электроника

Задача 5. В массиве Х(8) вычислить сумму отрицательных элементов, имеющих четные индексы




В массиве Х(8) вычислить сумму отрицательных элементов, имеющих четные индексы. Найти максимальный элемент и его индекс. Элементы выбрать самостоятельно.

 

Блок – схема.

На листе Excel разместить необходимые элементы управления.

 

CommandButton1
Textbox1
Textbox2
Textbox3

 

Событийная процедура кнопки Вычислить.

 

Private Sub CommandButton1_Click()

Dim x(1 To 8) As Single, i, n As Integer, max As Single

Вычисление суммы отрицательных элементов, имеющих четные индексы

s = 0

For i=1 To 8

x(i) = Cells(3+i, 2)

If i Mod 2 = 0 And x(i) < 0 Then s = s + x(i)

Next i

TextBox1.Value = s

Вычисление максимального элемента и его номера

max = -10 ^ 5 : n = 0

For i=1 To 8

If x(i) > max Then max = x(i) : n = i

Next i

TextBox2.Value = max

TextBox3.Value = n

End Sub







Дата добавления: 2015-08-12; просмотров: 246. Нарушение авторских прав


Рекомендуемые страницы:


Studopedia.info - Студопедия - 2014-2020 год . (0.048 сек.) русская версия | украинская версия