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  


 

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

8782. SIP (Session Initiation Protocol) - ориентированный на операторов глобальной сети Internet протокол IEFT для IP-телефонии 54 KB
  SIP SIP(Session Initiation Protocol)- ориентированный на операторов глобальной сети Internet протокол IEFT для IP-телефонии. IEFT (Internet Engineering Task Force) - тактическая группа проектирования Interne...
8783. Файловая система UNIX 57.5 KB
  Файловая система UNIX. Одними из базовых принципов UNIX являются: представление всех объектов, включая устройства, как файлов взаимодействие с файловыми системами разных типов, в том числе NFS. Сетевая файловая система NF...
8784. Меж сетевой экран (МСЭ) или firewall 59 KB
  МСЭ Другим популярным методом защиты сетей является использование МежСетевого Экрана (МСЭ) илиfirewall. МСЭ или брандмауэр (перевод на немецкий язык англ. Firewall) осуществляет фильтрацию IP пакетов для защиты внутренней информационной среды ...
8785. Протоколы SLIP и PPP 62 KB
  Протоколы SLIP и PPP. В качестве протоколов канального уровня для удалённого доступа используются протоколы SLIP и РРР. Протокол SLIP (SerialLineIP) один из старейших (1984 г.) протоколов стека TCP/IP, используемый для соединения с компь...
8786. Задачи курса. Классификация компьютерных сетей 68 KB
  Задачи курса. Классификация компьютерных сетей Под термином сеть будем понимать систему связи со многими источниками и/или получателями сообщений. Места, где пути распространения сигналов в сети разветвляются или оканчиваются, называются узлами сети...
8787. Безопасность компьютерных сетей 64.5 KB
  Безопасность компьютерных сетей. Безопасность компьютерных сетей (информационных систем) - комплексная проблема, решаемая системными методами. Это означает, что никакие, даже самые продвинутые методы защиты, не могут гарантировать безопасност...
8788. IP-Security (IPSec) 66 KB
  IPSec IP-Security (IPSec) - набор протоколов сетевого уровня для защищенного обмена данными в TCP/IP сетях. Актуальная версия датируется осенью 1998 г. Допустимы два режима работы - транспортный и туннельный. Первый режим х...
8789. Методы доступа 73.5 KB
  Методы доступа Важным аспектом сетевых структур являются методы доступа к сетевой среде, т.е. принципы, используемые компьютерами для обращения к ресурсам сети. Основные методы доступа к сетевой среде основаны на логической топологии сети. Метод опр...
8790. Технологии для проводных телефонных каналов 80 KB
  Технологии для проводных телефонных каналов. Проводные каналы общественных телефонных сетей принято делить на выделенные (2-х или 4-х проводные), физическое соединение по которым действует постоянно и не разрушается по завершению сеанса, и коммутиру...