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  


 

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

63361. ГЕОИНФОРМАЦИОННЫЕ СИСТЕМЫ 10.85 MB
  Современные ГИС это автоматизированные системы имеющие большое количество графических и тематических баз данных соединенная с моделями и расчетными формулами для манипулирования и преобразования данных в пространственную и картографическую информацию.
63362. МАТРИЧНЫЕ ПРИНТЕРЫ 192.5 KB
  Система пьезоэлектрического импульса ПГ состоит из множества сопел через которые распыляются частицы краски для формирования отпечатка знака.
63365. Устройство ввода графической информации – сканер 177.5 KB
  Под устройством ввода графической информации УВГИ типа сканер понимается устройство для преобразования данных из графической формы в машинные коды. Сканеры выполняют следующие операции: определение координат графических элементов и оттенков цвета...
63366. Экономическая наука и общество 75.5 KB
  Основные этапы и направления развития экономической теории. Предпосылки экономической науки. Становление научной системы экономической теории. Курс представляет собой вводный курс фундаментальной экономической теории.
63367. Основные понятия мультиплексирования 604.83 KB
  Современные системы связи передают огромное количество информации на большие расстояния, причем в процессе обмена информацией принимает участие много абонентов одновременно.
63369. Методика как научная и педагогическая дисциплина 247.5 KB
  Предмет цели и задачи методики преподавания информатики МПИ. Вместе с введением в школу общеобразовательного предмета Основы информатики и вычислительной техники началось формирование новой области педагогической науки...