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  


 

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

27064. Учет расчетов по недостачам 15.83 KB
  Учет расчетов по суммам выявленных недостач и хищений денежных средств и ценностей сумм потерь от порчи материальных ценностей и других сумм подлежащих удержанию и списанию в установленном порядке осуществляют на счете 020900000 Расчеты по недостачам . Учет расчетов по недостачам хищениям ведется в соответствии с КОСГУ на следующих счетах: 020971000 Расчеты по ущербу основным средствам ; 020972000 Расчеты по ущербу нематериальным активам ; 020973000 Расчеты по ущербу непроизведенным активам ; 020974000 Расчеты по ущербу материальных...
27065. Учет удержаний из заработной платы 16.39 KB
  Учет удержаний из заработной платы Счет 30403 Расчеты по удержаниям из выплат по оплате труда Счет предназначен для учета расчетов по удержаниям из заработной платы и денежного довольствия стипендий; безналичным перечислениям на счета во вклады сотрудников учреждения; взносам по договорам добровольного страхования; взносам на пенсионное страхование; суммам членских профсоюзных взносов; исполнительным листам и другим документам. Удержания производятся на основании соответствующих документов: письменных заявлений работников договоров...
27066. Учет расчетов с поставщиками и подрядчиками 12.95 KB
  Учет расчетов с поставщиками и подрядчиками Учет расчетов учреждения с поставщиками за поставленные материальные ценности и оказанные услуги с подрядчиками за выполненные работы осуществляют на счете 030200000 Расчеты с поставщиками и подрядчиками . Аналитический учет расчетов с поставщиками за поставленные материальные ценности оказанные услуги выполненные работы ведется в Карточке учета средств и расчетов либо в Журнале операций по расчетам с поставщиками и подрядчиками в разрезе кредиторов поставщиков продавцов подрядчиков...
27067. Учет бюджетных ассигнований и лимитов бюджетных обязательств 15.06 KB
  учет бюджетных ассигнований и лимитов бюджетных обязательств Счета предназначены для ведения учета учреждениями финансовыми органами показателей бюджетных ассигнований лимитов бюджетных обязательств сумм утвержденных сметой доходов и расходов по приносящей доход деятельности показателей по доходам поступлениям и расходам выплатам принятых учреждениями обязательств. По завершении текущего финансового года показатели остатки по счетам учета бюджетных ассигнований лимитов бюджетных обязательств текущего финансового года на следующий...
27068. Виды и формы бюджетной отчетности 16.13 KB
  Бюджетная отчетность предоставляется на бумажных носителях и или в виде электронного документа с представлением на электронных носителях или путем передачи по телекоммуникационным каналам связи в порядке установленном главным распорядителем бюджетных средств главным администратором доходов бюджета главным администратором источников финансирования дефицита бюджета финансовым органом органом казначейства и органом осуществляющим кассовое обслуживание с обязательным обеспечением защиты информации в соответствии с законодательством...
27069. Синтетический учет материальных запасов 16.14 KB
  Приобретение материальных запасов по фактической сформированной стоимости отражается по дебету соответствующих счетов аналитического учета счета 010500000 Материальные запасы 010531340 010536340 и кредиту счетов 030234730 Уменьшение кредиторской задолженности по приобретению материальных запасов 020834660 Уменьшение дебиторской задолженности подотчетных лиц по приобретению материальных запасов . Безвозмездное получение материальных запасов в том числе по централизованному снабжению распоряжению извещению отражается по дебету...
27070. Документальное оформление, порядок ведения и отражения в учете кассовых операций 16.09 KB
  Для учета кассовых операций применяются приходный кассовый ордер – форма № КО1 расходный кассовый ордер – форма КО2 журнал регистрации приходных и расходных кассовых документов форма КО3 кассовая книга форма КО4 книга учета принятых и выданных кассиром денежных средств форма КО5. Все операции по поступлению и расходованию денежных средств кассир записывает в кассовую книгу которая должна быть пронумерована прошнурована и опечатана сургучной печатью. В дебет его записывают поступление денежных средств в кассу а в кредит выбытие...
27071. Инвентаризация материальных запасов 15.97 KB
  Инвентаризация материальных запасов Методические указания по инвентаризации имущества и финансовых обязательств от 13 июня 1995 г . Инвентаризационной комиссией в описях заполняются данные о фактическом наличии товарноматериальных ценностей. Результаты проведенной инвентаризации материальных запасов отражают в инвентаризационной описи сличительной ведомости по объектам нефинансовых активов ф. При хранении материальных запасов в разных изолированных помещениях у одного материально ответственного лица инвентаризация проводится...
27072. Учет прочих доходов и расходов. Назначение счета «Прочие доходы и расходы» и его структура. Организация аналитического учета для формирования отчета «О прибылях и убытках» 23.5 KB
  Назначение счета Прочие доходы и расходы и его структура. Доходы и расходы организации формирующие финансовый результат ее деятельности В соответствии с Положением по бухгалтерскому учету Доходы организации ПБУ 9 99 введено в действие с 1 января 2000 г. Прочие поступления зачисляются на счет 91 Прочие доходы и расходы Прочими доходами признаются в учете: штрафы пени неустойки за нарушения условий договоров возмещения причиненных организации убытков – в отчетном периоде в котором судом вынесено решение об их взыскании или они...