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  


 

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

13383. Створення публікацій за допомогою програми Publisher 800.5 KB
  Лабораторна робота № 17 Тема: Створення публікацій за допомогою програми Publisher Мета: Сформувати практичні вміння та навички роботи в програмі Publisher Засвоїти поняття: сценарій публікація рамка текстова рамка шаблон цвіто...
13384. Основи роботи з векторною графікою. Середовище CorelDraw 13.44 MB
  Лабораторна робота № 1 Тема: Основи роботи з векторною графікою. Середовище CorelDraw Мета: Освоїти основні прийоми роботи в середовищі CorelDraw. Навчитися користуватися головним меню програми панелями інструментів та атрибутів. Навчитися будувати основі фігури трансформ...
13385. РОЛЬ МАРКЕТИНГОВЫХ ИССЛЕДОВАНИЙ В РЕАЛИЗАЦИИ СТРАТЕГИЧЕСКИХ НАПРАВЛЕНИЙ РАЗВИТИЯ ПРЕДПРИЯТИЯ 876 KB
  Маркетинг представляет собой нечто большее, чем просто продвижение товаров и услуг на рынок. Заставить покупателя купить то, что может предложить компания задача сбыта. С помощью маркетинга заставляют предприятие делать то, что необходимо потребителю
13386. ДИФФЕРЕНЦИАЛЬНАЯ ДИАГНОСТИКА И ЛЕЧЕНИЕ ПРИ СИНДРОМЕ АРТЕРИАЛЬНОЙ ГИПЕРТЕНЗИИ 168 KB
  Алгоритм дифференциальной диагностики заболеваний, сопровождающихся синдромом артериальной гипертензии. Этиологию, патогенез, клинику и диагностику заболеваний и состояний, сопровождающихся синдромом артериальной гипертензии.
13387. CORELDRAW. ПОСТРОЕНИЕ СЛОЖНЫХ ОБЪЕКТОВ 307.38 KB
  Лабораторная работа N 3 CORELDRAW. ПОСТРОЕНИЕ СЛОЖНЫХ ОБЪЕКТОВ Дополнительные приемы работы с объектами Программа CorelDraw предоставляет большие возможности по созданию и редактированию сложных объектов. Команды позволяющие выполнять различные операции над объектами с...
13388. CORELDRAW. ИНТЕРАКТИВНОЕ ПЕРЕТЕКАНИЕ. ИМИТАЦИЯ ОБЪЕМА 345.39 KB
  Лабораторная работа N 4 CORELDRAW. ИНТЕРАКТИВНОЕ ПЕРЕТЕКАНИЕ. ИМИТАЦИЯ ОБЪЕМА Эффект Интерактивное перетекание Инструмент Интерактивное перетекание относится к категории интерактивных инструментов находящихся на панели инструментов. При помощи данного инстр
13389. CORELDRAW. POWERCLIP. ОБРАБОТКА РАСТРОВЫХ ИЗОБРАЖЕНИЙ 267.4 KB
  Лабораторная работа N 5 CORELDRAW. POWERCLIP. ОБРАБОТКА РАСТРОВЫХ ИЗОБРАЖЕНИЙ Совокупность команд PowerClip Фигурная обрезка Команды находятся в меню Эффекты. Данное подменю содержит четыре команды: Place Inside Container Поместить в контейнер Extract Contents Извлечь содержимое Edit Contents Р...
13390. CORELDRAW. ИНТЕРАКТИВНЫЙ ОБЪЕМ 361.88 KB
  Лабораторная работа N 6 CORELDRAW. ИНТЕРАКТИВНЫЙ ОБЪЕМ Инструмент Интерактивный объем Данный инструмент позволяет создавать иллюзию объема для плоских объектов. Иллюзия возникает изза того что за объектом или перед ним достраивается дополнительная плоскость той же ...
13391. CORELDRAW. ИНТЕРАКТИВНОЕ ИСКАЖЕНИЕ. ИМИТАЦИЯ ОБЪЕМА 309.26 KB
  Лабораторная работа N 7 CORELDRAW. ИНТЕРАКТИВНОЕ ИСКАЖЕНИЕ. ИМИТАЦИЯ ОБЪЕМА Эффект Интерактивное искажение Инструмент Интерактивное искажение является инструментом категории интерактивных инструментов и предназначен для деформации формы объекта к которому он при