Информатика: Ребята с информатикой номер 8 сверху и снизу Вото фото

zirkakoi

05.09.2021 16:44

Информатика

Есть ответ 👍

Ребята с информатикой номер 8 сверху и снизу
Вото фото

107

203

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

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

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

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

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

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

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

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

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

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

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

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

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