11556

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

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

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

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

Русский

2013-04-08

43 KB

2 чел.

Лабораторная работа № 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  


 

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

60200. Воспитательное мероприятие «Путешествие по городу Здоровейску» 43.5 KB
  А вот и первый привал. 1 привал Санпост Называются имена аккуратных детей Отгадайте загадки. Прыжком марш 2 привал. костюм держит гантели 1234 Стану всех сильнее в мире Буду в цирке выступать Бегемота поднимать...
60202. Людина і природа: трагедія чи ідилія 51.5 KB
  З’являється Гамлет. Гамлет: Купатися чи не купатися мені Питання це тривожить мозок мій. Ліворуч у напівтемряві з’являється тінь батька Гамлета. Батько Гамлета: Гамлете синку мій Гамлет озирається: Хто тут Батько Гамлета: Це я твій тато що рано у могилу зліг.
60204. Правила поводження з вогнем 45.5 KB
  Часу не гайте розведіть вогонь І не гасіть його Боже борони Хай дим пожежі всі довкіл побачать Бо ви герой а це велика вдача. Ви звичайно знаєте що таке вогонь. Де можна з ним зустрітися побачити Дуже давно люди не вміли добувати вогонь.
60205. ПОДОРОЖ ПО ЛІТЕРАТУРНОМУ МУЗЕЮ 1 MB
  Мета: розширити й поглибити знання дітей про письменників Р.Кіплінга, А. де Сент-Екзюпері, Т.Шевченка; допомогти глибше осягнути їх життєвий і творчий шлях, багатогранну складну обдаровану особистість...
60206. РОДИННЕ ВИХОВАННЯ: ЗАПОВІДІ ВВІЧЛИВОСТІ І ДОБРА 70.5 KB
  Плекання таких чеснот, як людяність, пошана до старших, допомога іншим і релігійність, милосердя, охайність, любов до порядку, доброзичливість, вихованість, добра поведінка в товаристві...
60207. Жінка – краса і гордість України 4.33 MB
  Мета заходу: Методична запровадити методику використання мультимедійних технологій у позакласний захід з дисципліни Українська література; Дидактична поглибити знання студентів про видатних жінок їх місце в історії та суспільстві...
60208. Свято «Прощавай, початкова школо!» 124 KB
  Усе в житті буває вперше. Уперше тягнеться до сонця стебельце, щоб згодом порадувати нас хлібною зерниною. Уперше народжується дитина, щоб продовжити родовід. Уперше приходимо ми до школи.