11556

Освоить методику хранения данных программ в массивах и научиться использовать массивы при решении практических задач

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 5. Массивы Цель работы: Освоить методику хранения данных программ в массивах и научиться использовать массивы при решении практических задач. Использовать задание из лабораторной работы № 4 Операторы циклов но числа вводимые пользователем...

Русский

2013-04-08

43 KB

3 чел.

Лабораторная работа № 5. Массивы

Цель работы: Освоить методику хранения данных программ в массивах и научиться использовать массивы при решении практических задач.

  1.  Использовать задание из лабораторной работы № 4 "Операторы циклов", но числа, вводимые пользователем хранить в массиве.

3)

Option Explicit

Sub primer()

Dim N As Variant

Dim s As Double

Dim i As Integer

Dim x As Variant

Dim priznak As Boolean

Dim maxX As Integer

Dim t1 As Integer

Dim m() As Integer

priznak = False

Do

Do

N = InputBox("Введите кол-во чисел в последовательности")

Loop Until IsNumeric(N)

Loop Until N = CInt(N)

For i = 0 To N - 1 Step 1

ReDim m(N - 1)

Do

Do

x = InputBox("Введите целое число № " & i + 1)

Loop Until IsNumeric(x)

Loop Until x = CInt(x)

m(i) = x

If Not m(i) < 0 Then

If priznak = False Then

s = m(i)

maxX = m(i)

priznak = True

t1 = i + 1

Else: s = s + m(i)

If x >= maxX Then

maxX = m(i)

t1 = i + 1

End If

End If

End If

Next i

If priznak = True Then

MsgBox (" сумма неотрицательных чисел =" & s & "максимальное =" & maxX & " номер его в последовательности=" & t1)

Else

MsgBox "Нужных чисел нет"

End If

End Sub


4)

Вывод: Мы освоили методику хранения данных программ в массивах и научились использовать массивы при решении практических задач.


Начало

priznak=False

N-число

N-целое

i = 0, N-1, 1

х

Х-число

Х-целое

Not m(i) < 0

Priznak=False

S = m(i)

max x = m(i)

priznak = true

t1 =i + 1

max x > m(i)

s = s + m(i)

m(i) = max x

t1 = i+1

priznak = true

Решений нет

S, max x, t1

конец

m[i]=x

Введите кол-во чисел в последовательности

4

Введите целое число №1

-5

Введите целое число №2

6

Введите целое число №3

7

Введите целое число №4

-9

сумма неотрицательных чисел =13 максимальное = 7 номер его в последовательности =3  


 

А также другие работы, которые могут Вас заинтересовать

26506. Образование и развитие Пятой республики во Франции. Принципы голлизма и их эволюция 52.5 KB
  Основные принципы голлизма: голлизм это своеобразная идеология национального величия; вариант гос. Экономические: жесткое регулирование планирование; налоговая политика; расширение сфер экономики; рост гос. Проект разработан рабочим комитетом из чиновников членов Гос совета во главе с Мишелем Дебре. право назначать премьерминистра и отдельных министров возвращать законопроекты передавать на референдум любой законопроект касающийся организации гос власти или одобрения международных соглашений способных затронуть деятельность...
26507. Основные этапы социально-экономического и политического развития ФРГ 99.5 KB
  Основные этапы социальноэкономического и политического развития ФРГ. Конституционное устройство ФРГ: ФРГ объединила 9 земель каждый из субъектов федерации получил право на свою конституцию представительные и административные органы свое законодательство. Осн этапы соц экон и пол разв ФРГ.23 мая1949г Основ ФРГ.
26508. Интеграционные процессы в западной Европе 1950-2000гг 48 KB
  подписан договор о создании Европейского объединения угля и стали ЕОУС Франция ФРГ Италия Бельгия Нидерланды Люксембург. в Риме подписаны договоры о создании Европейского сообщества по атомной энергии Евратом и Европейского экономического сообщества. политические цели объединение сил западноевропейского капитализма против мирового коммунистического движения соц государств национальноосвободит борьбы колониальных и зависимых стран. Правящие круги США поддерживали создание ЕЭС рассчитывая усилить экономическую базу НАТО и...
26509. Проблемы ограничения вооружения и разоружения в П. стран Европы и Америки 1970 -2000 гг 47 KB
  смягчению 2полюсности мира можно назвать взаимное истощение СССР и США. называемое окно уязвимости которое образовалось якобы в резте ракетноядерного отставания США от СССР. Рейган провозгласил своей целью измотать СССР и ослабить его эк. Бытует мнение что это был глобальный исторический блеф администрации Рейгана попытка спровоцировать СССР на разработку подобной программы.
26510. Основные этапы соц-экон. и полит. разв. стран Центр и Вост.Европы 1945-2000гг 62 KB
  было желание видеть в госве гаранта социальн.социализма оставило лицом к лицу коммунизм и либер. революции нардем социал.
26513. Основные этапы социально-экономического развития Японии 32 KB
  в руках США. цель подписание мирного договора сделанного в США и АНГ. договоры как сепаратные м у США и Я. тут же подписан договор безопасности м у Я и США.
26514. Основные этапы социально-экономического и политического развития Индии в 1950 – 2000 гг. 55 KB
  Существенным элементом внешней политики ИНК стали неприсоединение к военным блокам и стремление к консолидации молодых независимых государств. Критике подверглась позиция ИНК в социальных вопросах. В ИНК существовали различные группировки отражавшие несовпадающие интересы социальных слоев связанных с этой партией от крупных капиталистов и землевладельцев до интеллигенции мелкой буржуазии города и деревни трудящихся масс. В этом многообразии коренились и сила общенациональный авторитет ИНК и его внутренняя слабость.