11557

Изучить синтаксис операторов цикла и получить навыки их использования в программах

Лабораторная работа

Информатика, кибернетика и программирование

Операторы циклов Цель работы: Изучить синтаксис операторов цикла и получить навыки их использования в программах. Содержание работы. 1 Дана произвольной длины последовательность целых чисел. Найти сумму неотрицательных чисел наибольшее из таких чисел и номер этог

Русский

2013-04-08

40.5 KB

2 чел.

Операторы циклов

Цель работы: Изучить синтаксис операторов цикла и получить навыки их использования в программах.

Содержание работы.

1) Дана произвольной длины последовательность целых чисел. Найти сумму неотрицательных чисел, наибольшее из таких чисел, и номер этого числа в последовательности.

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

priznak = False

Do

Do

N = InputBox("Введите кол-во чисел в последовательности")

Loop Until IsNumeric(N)

Loop Until N = CInt(N)

For i = 1 To N Step 1

Do

Do

x = InputBox("Введите целое число № " & i)

Loop Until IsNumeric(x)

Loop Until x = CInt(x)

If Not x < 0 Then

If priznak = False Then

s = x

maxX = x

priznak = True

t1 = i

Else: s = s + x

If x >= maxX Then

maxX = x

t1 = i

End If

End If

End If

Next i

If priznak = True Then

MsgBox ("сумма неотрицательных чисел  =" & s & "максимальное =" & maxX & " номер его в последовательности =" & t1)

Else

MsgBox "Нужных чисел нет"

End If

End Sub



Вывод: Мы изучили  синтаксис операторов цикла и получили навыки их использования в программах.


Начало

priznak=False

N-число

N-целое

i = 1, N, 1

х

X-число

X-целое

Not x < 0

Priznak=False

S = x

max x = x

priznak = true

t1 = i

max x > x

S = S + x

x = max x

t1 = i

priznak = true

Решений нет

S, max x, t1

конец

Введите кол-во чисел в последовательности

4

Введите целое число №1

-2

Введите целое число №2

3

Введите целое число №3

5

Введите целое число №4

-3

сумма неотрицательных чисел =8 максимальное = 5 номер его в последовательности =3  


 

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

81864. Трубопроводный транспорт 25.29 KB
  Трубопроводный транспорт – узкоспециализированный вид. В последние годы создан и универсальный трубопроводный транспорт. Развитие нефтепроводного транспорта тесно связано с ростом добычи и переработки нефти.
81865. Комплексное развитие различных видов транспорта 24.1 KB
  Выбор вида транспорта или варианта перевозок сочетание двух или более видов транспорта в осуществлении транспортировки определённого рода груза по единому транспортному документу базируется с учётом тех условий при которых каждый из видов оказывается наиболее целесообразным.
81866. Промышленный транспорт 27.13 KB
  Промышленный транспорт выполняет технологические перевозки т. перемещение топлива и сырья в локальных границах предприятий внутренние технологические перевозки и ввоз вывоз грузов на другие виды транспорта внешние перевозки. Ведущую роль промышленный транспорт играет в работе предприятий черной металлургии угольной химической строительной лесной дерево и нефтеперерабатывающей и других отраслей.
81867. Основные показатели перевозочной работы транспорта 24.32 KB
  В качестве основного установлен показатель р объем перевозок грузовт обычно за год утверждаемый для сети железных дорог правительством. К основным экономическим показателям работы транспорта относятся производительность труда себестоимость перевозок а также прибыль. Производительность труда определяется объемом выполненной продукции в приведенных тоннокилометрах пассажирокилометрах или тоннокилометрах приходящимся на одного работника эксплуатационного штата а себестоимость перевозок отношением эксплуатационных расходов по...
81868. Новые виды транспорта 27.99 KB
  В общем чтобы питать двигатель мощностью в 20 киловатт в течение часа требовался свинцовый аккумулятор массой в 1 тонну. Беспилотные летательные аппараты массой до 5 кг класс микро могут взлетать с любой самой маленькой площадки и даже с руки поднимаются на высоту 12 километра и находятся в воздухе не более часа. Беспилотники класса микро массой всего 300500 граммов образно говоря могут заглянуть в окно поэтому их удобно использовать в городских условиях. За микро идут беспилотные летательные аппараты класса мини массой до 150 кг.
81869. Основные документы, регламентирующие взаимоотношения, права, обязанности и ответственность сторон 25.39 KB
  Отправительская маркировка должна предусматривать наименование грузоотправителя и грузополучателя станций отправления и назначения порядковые номера грузовых мест массу груза. В ней содержатся сведения об отправителе и получателе скорости перевозки наименование количество мест и масса груза объявленная отправителем ценность груза и другие сведения. В накладной указывается время приемки груза к перевозке.
81870. Оптимизация режимов работы пунктов взаимодействия 39.59 KB
  Случайный характер прибытия транспортных потоков к пунктам взаимодействия местам погрузки выгрузки перевалки и стохастическое распределение времени грузовых операций приводят к возникновению очередей у канала обслуживания что требует решения сложной техникоэкономической задачи выбора такого режима работы пункта взаимодействия который обеспечивает минимальные расходы связанные с простоем погрузочноразгрузочных машин и транспортных потоков. определить оптимальный уровень загрузки канала взаимодействия. Если интервалы в потоке и...