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  


 

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

66904. КУЛЬТУРА ДРЕВНЕЙШЕГО МИРА 62.5 KB
  Литературоведение — наука о художественной литературе, ее происхождении, сущности и развитии. Современное литературоведение состоит из трех самостоятельных, но тесно связанных между собой дисциплин (разделов): теории литературы, истории литературы и литературной критики
66905. Логические элементы 441 KB
  Рассматриваются принципы работы, характеристики и типовые схемы включения простейших логических элементов — инверторов, буферов, элементов И и ИЛИ, а также приводятся схемотехнические решения, позволяющие реализовать на их основе часто встречающиеся функции.
66906. Модели и процессы управления проектами программных средств 257.5 KB
  Назначение методологии СММ/CMMI – системы и модели оценки зрелости – состоит в предоставлении необходимых общих рекомендаций и инструкций предприятиям, производящим ПС, по выбору стратегии совершенствования качества процессов и продуктов, путем анализа степени их производственной зрелости и оценивания факторов...
66907. ФУНКЦИИ ГОСУДАРСТВА 149.5 KB
  Научное познание государства любого исторического типа обязательно предполагает рассмотрение его функций представляющих собой важнейшие качественные характеристики и ориентиры не только собственно государства как особой организации публичной власти но и общества в целом.
66908. ДЕСМУРГИЯ 81.5 KB
  Под повязкой понимается один из способов закрепления перевязочного материала обычная повязка поддержание постоянного давления на определенную часть тела давящая повязка удержание части тела в неподвижном положении иммобилизирующая повязка лечение вытяжением.
66909. ПРИКЛАДНА КРИПТОЛОГІЯ 305.66 KB
  Основою побудування сучасних систем обробки інформації є застосування інформаційних систем(ІС) та інформаційно – телекомунікаційних систем(ІТС). ІС це система, в якій реалізується технологія обробки інформації за допомогою технічних і програмних засобів.
66910. Особливості розвитку української культури в литовсько-руську та польсько-литовську добу (XIV-перша половина XVII ст.) 277 KB
  Більша частина українських земель знаходиласяу складі Литовської та Польської держав. Разом із тим ХІV – ХVІ ст. – це час подальшого формування українського народу, активізація його боротьби проти польсько-литовського панування, поява на історичній арені України такого самобутнього...
66911. Целевой маркетинг 33.83 KB
  Сегментация по географическому признаку разделение рынка на разные географические объекты страны регионы города. Сегментирование по демографическому признаку разделение рынка на потребительские группы на основе демографических переменных: пол возраст размер семьи этапы жизненного цикла семьи род занятий образование уровень дохода...