11557

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

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

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

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

Русский

2013-04-08

40.5 KB

4 чел.

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

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

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

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  


 

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

18999. Вырожденный бозе-газ 309 KB
  Лекция XII 1. Вырожденный бозегаз. Химический потенциал бозегаза определяется из уравнения X.2.5 XII.1.1 При заданной концентрации будем понижать температуру газа. Поскольку по условию левая часть уравнения XII.1.1 не м
19000. Черное излучение 238.5 KB
  Лекция XIII 1. Черное излучение. Черным излучением называется электромагнитное излучение находящееся в равновесии с веществом. Поскольку электромагнитное излучение состоит из фотонов то черное излучение это равновесный идеальный бозегаз: фотоны практически не взаи...
19001. Химическое равновесие 281 KB
  Лекция XIV 1. Химическое равновесие. Уравнение химической реакции общего вида можно представить в форме XIV.1.1 где химические символы реагирующих веществ целые числа отвечающие данной реакции. Например в случае превращения гремучего газа в воду имеем XIV.1.2...
19002. Флуктуации. Теорема Найквиста 329.5 KB
  Лекция XV 1. Флуктуации. До сих пор основное внимание за редкими исключениями было уделено вычислению средних значений различных физических величин. Однако статистическая теория позволяет вычислить и их флуктуации отклонение от средних связанные с самопроизвольны
19003. Описание движения системы материальных точек в нерелятивистской механике. Общая схема механики Ньютона. Основные определения 273 KB
  Лекция 1. Описание движения системы материальных точек в нерелятивистской механике. Общая схема механики Ньютона. Основные определения Основная задача механики нахождение положения тел в любые моменты времени при условии что известны начальные положения и скорос
19004. Принцип наименьшего действия (принцип Гамильтона). Уравнения Лагранжа 1.15 MB
  Лекция 2. Принцип наименьшего действия принцип Гамильтона. Уравнения Лагранжа Самая общая формулировка закона движения системы с степенями свободы дается принципом наименьшего действия или принципом Гамильтона. Согласно этому принципу каждая механическая сист
19005. Принцип относительности Галилея. Функция Лагранжа свободной материальной точки. Функция Лагранжа системы взаимодействующих частиц. Функция Лагранжа в декартовых и обобщённых координатах 275 KB
  Лекция 3. Принцип относительности Галилея. Функция Лагранжа свободной материальной точки. Функция Лагранжа системы взаимодействующих частиц. Функция Лагранжа в декартовых и обобщённых координатах Установим вид функции Лагранжа простейших механических систем и уста...
19006. Примеры нахождения функции Лагранжа, составления уравнений Лагранжа и их использования для описания движения простейших механических систем 1.35 MB
  Лекция 4. Примеры нахождения функции Лагранжа составления уравнений Лагранжа и их использования для описания движения простейших механических систем Рассмотрим применение метода Лагранжа к описанию движения простейших систем. Но сначала повторим основные идеи и р
19007. Интегралы движения. Однородность времени и закон сохранения энергии. Однородность пространства и закон сохранения импульса 328.5 KB
  Лекция 5. Интегралы движения. Однородность времени и закон сохранения энергии. Однородность пространства и закон сохранения импульса. Изотропность пространства и закон сохранения момента импульса Величины и меняются со временем. Однако существуют такие их комбина