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  


 

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

40388. Труксал (хлорпротиксен) при лечении больных в общесоматической сети 47 KB
  Сеченова Потребность в нейролептиках у больных общесоматического стационара достаточно велика. Смулевич свидетельствуют что около 6 больных госпитализированных в крупную многопрофильную больницу нуждаются в назначении нейролептических медикаментозных средств. Предпочтительны нейролептические средства и при широком круге психических расстройств у больных с явлениями зависимости от психоактивных веществ алкоголизм наркомании и т.
40389. Умственная отсталость 64 KB
  Дать представление об основных методах медикопедагогической коррекции и профилактике олигофрении. В результате изучения темы студент должен: иметь представление об этиологии олигофрении наследственных факторах патофизиологических биохимических и морфологических основах распространенности олигофрении. знать клинические проявления олигофрении особенности течения и коррекции олигофрении при разных этиологических факторах основные принципы лечения и медикопсихологической коррекции проведения экспертизы при олигофрении.
40391. Антипсихотики второго поколения в лечении шизофрении и близких к ней расстройств 104.5 KB
  Сюда относятся: рисперидон оланзапин кветиапин зипразидон сертиндол амисульприд зотепин арипипразол и др. В Республике Беларусь в настоящее время наряду с клозапином азалептин зарегистрированы два из них рисперидон рисполепт и оланзапин олеанз. Некоторые из них клозапин оланзапин рисперидон и амисульприд показали большую эффективность чем антипсихотики первого поколения другие же не выявили таких преимуществ [5]. Учитывая что оланзапин лишь недавно стал доступен на отечественном фармацевтическом рынке целью данной статьи...
40392. Лечение бредового расстройства 30 KB
  Первоначальные лекарства которые используются для попыток лечения бредового расстройства называются нейролептиками. Используемые лекарственные препараты включают в себя следующие: Традиционные антипсихотические препараты: Их еще называют нейролептиками и они применяются для лечения психотических расстройств с середины 1950х. Другие медикаменты: Транквилизаторы и антидепрессанты тоже могут применяться для лечения бредового расстройства. Антидепрессанты могут использоваться для лечения депрессии которая часто возникает у людей с...
40393. Лечение нневростенических расстройств 28.5 KB
  Лечение невротических расстройств лучше всего проводить в профилированных отделениях; их чаще всего называют санаторными или отделениями клиниками неврозов. При медикаментозной терапии обсессивнокомпульсивных расстройств в первую очередь используются серотонинергические антидепрессанты. Медикаментозная терапия истероконверсионных расстройств особенно при эпизодически возникающих кратковременных истерических реакциях проводится транквилизаторами назначаемыми в небольших дозах и непродолжительными курсами.
40394. Методы купирования психомоторного возбуждения при различных психических заболеваниях 40.5 KB
  Наилучший способ экстренного купирования всех видов возбуждения внутривенное введение аминазина если удастся удержать больного для проведения этой процедуры. Практически этим способом удается купировать большинство видов возбуждения или значительно уменьшить его в течение 1 2 дней создав тем самым условия для транспортировки больного или проведения дальнейшей терапии. Алкогольный делирий Необходимы купирование психомоторного возбуждения и устранение бессонницы поскольку наступление сна свидетельствует о приближающемся окончании психоза.
40395. Особенности дпрессий в пожилом возрасте 62.5 KB
  Так называемый соматический синдром не внесенный в МКБ10 в число облигатных при неглубоких депрессиях позднего возраста нередко выступает в качестве ведущего. Это связано с двумя факторами неглубоким уровнем нарушения психической деятельности и собственно влиянием возраста. В этих случаях феномен соматизации депрессивных расстройств представляет собой главную причину трудностей выявления и диагностики этих нарушений у пациентов позднего возраста. Степень выраженности и значимость изменения самочувствия в телесной сфере предполагает их не...
40396. ПСИХОТРОПНЫЕ СРЕДСТВА 42 KB
  А поэтому их используют при нарушениях психической деятельности при невротических и неврозоподобных расстройствах состояниях внутреннего напряжения страха тревоги беспокойства. 4 В связи с альфаадреноблокирующим эффектом используют при купировании гипертонического криза. При лечении больных манией используют: 1 нейролептики; 2 соли лития. Соли лития используют для лечения и профилактики маний.