Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

End Sub

Next i

Next i

End If

End If

Next i

Dim Min As Integer, Max As Integer, IMin As Integer, IMax As Integer

Dim i As Integer, R As Integer

Dim A(10) As Integer

For i = 1 To 10

A(i) = Cells(1, i) ‘ ввод массива

Min = 32000: Max = –32000

For i = 1 To 10

If A(i) > Max Then

Max = A(i) ‘ вычисление максимума

IMax = i ‘ и его номера

If A(i) < Min Then

Min = A(i) ‘ вычисление минимума

IMin = i ‘ и его номера

Cells(2, 1) = "Max=" : Cells(2, 2) = Max

Cells(2, 4) = "IMax" : Cells(2, 5) = IMax

Cells(3, 1) = "Min=" : Cells(3, 2) = Min

Cells(3, 4) = "IMin" : Cells(3, 5) = IMin

R = A(IMax) ‘ меняем местами

A(IMax) = A(IMin) ‘ максимальный и

A(IMin) = R ‘ минимальный элементы

For i = 1 To 10

Cells(5, i) = A(i) ‘ вывод массива

 
 

В результате работы этой программы на рабочем листе Excel появятся следующие данные (рис. 5).

 

Рис. 5. Вычисление минимального и максимального элементов массива

Задача 2.Задан одномерный массив Х(N). Вычислить максимальный из отрицательных элементов этого массива.

Sub PR18()

<== предыдущая лекция | следующая лекция ==>
End Sub | Какие этапы включает в себя решение задач с помощью компьютера?

Дата добавления: 2014-01-03; Просмотров: 231; Нарушение авторских прав?;


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



ПОИСК ПО САЙТУ:


studopedia.su - Студопедия (2013 - 2022) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление
Генерация страницы за: 0.016 сек.