150 пунктов за два в basic 1.составьте функцию, проверяющую всех элементов одномерного массива целых чисел по убыванию их значений. используя эту функцию, выведите каждый из двух заданных одномерных массивов а и в, если его элементы не в порядке убывания их значений. в противном случае выведите сообщение "массив а ( или в) ". 2. составьте функцию проверяющую, что все элементы одномерного массива имеют значения, больше заданной величины. используя эту функцию, определите для двух заданных одномерных массивов а и в, у скольких из них значение всех элементов больше заданной величины h

175

294

Посмотреть ответы 2

Ответы на вопрос:

polina1329

Информатика

4,6(57 оценок)

private sub form1_load(byval sender as system.object, byval e as system.eventargs) handles mybase.load dim a() as integer dim b() as integer randomize() dim k as integer dim i as integer i = rnd() * 100 + 1 redim a(i) for k = 0 to i a(k) = rnd() * -1000 + 500 next i = rnd() * 100 + 1 redim b(i) for k = 0 to i b(k) = rnd() * -1000 + 500 next ''''1. dim msg_a as string msg_a = verifysort(a) if msg_a < > cstr(a.length) then msgbox(msg_a) else msgbox("массив а ") end if dim msg_b as string msg_b = verifysort(b) if msg_b < > cstr(a.length) then msgbox(msg_b) else msgbox("массив b ") end if sort(a) msg_a = verifysort(a) if msg_a < > cstr(a.length) then msgbox(msg_a) else msgbox("массив а ") end if ''''' 2. dim h as integer h = inputbox("введите h") i = comparevalue(a, h) if i < > ubound(a) then msgbox("у массива не все элементы больше h. значений больше h " & i & " шт.") else msgbox("у массива все элементы больше h.") end if i = comparevalue(b, h) if i < > ubound(b) then msgbox("у массива не все элементы больше h. значений больше h " & i & " шт.") else msgbox("у массива все элементы больше h.") end if end sub private function verifysort(byref massiv() as integer) as string dim i, j, k as integer dim msg as string for i = massiv.length to 0 step -1 for j = massiv.length - 1 to 1 step -1 if massiv(j) < massiv(j - 1) then for k = 0 to massiv.length - 1 msg = msg & massiv(k) & vbcrlf next return msg end if next j next i return massiv.length end function private function sort(byref massiv() as integer) as integer dim i, j, dump as integer for i = massiv.length to 0 step -1 for j = massiv.length - 1 to 1 step -1 if massiv(j) < massiv(j - 1) then dump = massiv(j) massiv(j) = massiv(j - 1) ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 massiv(j - 1) = dump end if next j next i return massiv.length end function private function comparevalue(byref massiv() as integer, byval h as integer) as integer dim count as integer dim i as integer for i = 0 to ubound(massiv) - 1 if massiv(i) > h then count = count + 1 ' c2fbefeeebede8eb3a20caf3eff0e8ffedeee220c42ec52e2028632920442d6d6f6e3535 next return count end function

BarTGamE777

Информатика

4,5(7 оценок)

хз,

Реши свою проблему, спроси otvet5GPT

Быстро
Мгновенный ответ на твой вопрос
Точно
Бот обладает знаниями во всех сферах
Бесплатно
Задай вопрос и получи ответ бесплатно

Задай свой вопрос

Популярно: Информатика

Есть вопросы?

Как otvet5GPT работает?

otvet5GPT использует большую языковую модель вместе с базой данных GPT для обеспечения высококачественных образовательных результатов. otvet5GPT действует как доступный академический ресурс вне класса.
Сколько это стоит?

Проект находиться на стадии тестирования и все услуги бесплатны.
Могу ли я использовать otvet5GPT в школе?

Конечно! Нейросеть может помочь вам делать конспекты лекций, придумывать идеи в классе и многое другое!
В чем отличия от ChatGPT?

otvet5GPT черпает академические источники из собственной базы данных и предназначен специально для студентов. otvet5GPT также адаптируется к вашему стилю письма, предоставляя ряд образовательных инструментов, предназначенных для улучшения обучения.