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  


 

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

8711. Спряження вимірювальних перетворювачів з цифровими пристроями 121 KB
  Спряження вимірювальних перетворювачів з цифровими пристроями План. Введення аналогових сигналів в комп’ютер. Мультиплексори Дискретизація сигналів Класифікація сигналів Аналогова фільтрація. Цифро-аналогові пе...
8712. Виконавчі пристрої 63.5 KB
  Виконавчі пристрої План 4.1. Пристрої комутації на оптопарах 4.2. Пристрої комутації на транзисторах 4.3. Пристрої керування світлодіодами 4.4. Твердотільні реле 4.5. Крокові двигуни Виконавчий пристрій чи механізм (actuator) перетворює електричну е...
8713. Спряження комп’ютера з нестандартними зовнішніми пристроями через паралельний порт 133.5 KB
  Спряження комп’ютера з нестандартними зовнішніми пристроями через паралельний порт План. Порядок обміну даними через порт принтера (інтерфейсу Centronics). Протоколи та типи паралельного порта. Фізичний і електричний інтерфейс
8714. Розробка та програмування пристроїв спряження для послідовного інтерфейсу 225 KB
  Розробка та програмування пристроїв спряження для послідовного інтерфейсу План. Послідовна передача даних. Сигнали та розєми порту. Програмна модель послідовного порта. Електричний інтерфейс RS-232C. Способи кер...
8715. Спряження зовнішніх пристроїв з комп’ютером за допомогою шин ISA та PCI 87 KB
  Спряження зовнішніх пристроїв з компютером за допомогою шин ISAта PCI План 7.1. Будова шини ISA 7.2. Сигнали шини ISA 7.3. Цикли шини 7.1. Будова шини ISA Шина ISA (Industrial Standart Arhitecture) є фактично стандартною шиною для персон...
8716. Архітектура і програмування шини USB 177.5 KB
  Архітектура і програмування шини USB План Виникнення USB. Архітектура шини USB. Апаратне забезпечення USB. Внутрішня будова шини. Логічні рівні обміну. Внутрішня організація пристроїв. Апаратне забезпечення USB. В...
8717. Исторические персоналии 365 KB
  Исторические персоналии Аристотель (384-322 гг. до н. э.) - древнегреческий философ, ученый-экономист, ученик Платона. Он впервые в истории человечества исследовал экономические явления и процессы, пытаясь выявить общие закономерности, ввел в у...
8718. Понятие общества несколько вариантов 35.5 KB
  Понятие общества Вариант-1 Существует несколько понятий общество. В узком смысле общество: 1) группа людей, объединившихся для общения и совместного выполнения какой-либо деятельности 2) конкретный этап в историческом развитии народа или страны...
8719. Человек, индивид, личность 37 KB
  Человек, индивид, личность. Вариант 1 Индивид - это единичный конкретный человек, рассматриваемый в качестве биосоциального существа. Человек - это лицо, принадлежащее к человеческому роду, а также обладающее вс...