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  


 

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

71536. Обеспечение радиационной безопасности населения 107 KB
  Одним из главных медико-санитарных мероприятий по обеспечению радиационной безопасности населения является регламентация радиационных воздействий от различных источников ионизирующих излучений. Для всех категорий облучаемых лиц в том числе населения определены следующие классы нормативов...
71537. The History of the English Language 711 KB
  The History of the English Language has been reconstructed on the basis of written records of different periods. The earliest written texts in English are dated in the 7th century. The earliest records in other Germanic languages go back to the 3rd or 4th centuries A.D.
71538. Введение в историю экономики 1.1 MB
  Предмет истории экономики и его эволюция Историко-экономическая наука оформилась как самостоятельная ветвь системы экономических наук в XIX в. Однако на данном этапе под основным назначением истории экономики понималась ее иллюстративная роль.
71540. ПОЭТИКА ЛИТЕРАТУРЫ. ДЕЛЕНИЕ ЛИТЕРАТУРЫ НА РОДЫ 204 KB
  Словесно-художественные произведения издавна принято объединять в три большие группы именуемые литературными родами. В обиходной речи лирические произведения нередко отождествляются с поэзией а эпические с прозой. Каждый из литературных родов включает в себя как поэтические стихотворные так и прозаические нестихотворные произведения.
71541. Уголовно – правовая характеристика убийства, совершенного при превышении пределов необходимой обороны либо при превышении мер 136.5 KB
  Дана розробка має за мету допомогти студентам у вивченні математичних методів програмування, надати їм можливість інтерактивного навчання, створити наглядний посібник з прикладами та покроковим вирішенням. Ця програма повинна стати корисним елементом у підготовці студентів.
71542. Команды ветвления на языке Pascal. Решение задач на использование операторов IF - THEN – ELSE; CASE 52.5 KB
  If — это оператор позволяющий осуществить выбор в программе одной из двух последовательностей команд (ветвей) в зависимости от некоторого условия. Условный оператор имеет две формы:
71543. АППАРАТНОЕ ОБЕСПЕЧЕНИЕ КОМПЬЮТЕРНОЙ ГРАФИКИ 193.5 KB
  По технологии печати принтеры можно разделить на: игольчатые матричные; струйные; лазерные. Достоинства матричных игольчатых принтеров: удовлетворительная скорость печати; универсальность заключающаяся в способности работать с любой бумагой; низкая стоимость печати.
71544. Управління конфліктами та стресами в організації 287 KB
  Спроба визначення конфлікту без категорії мети приводить до надмірно розширеного тлумачення цього типу взаємодії. Будь-які живі істоти, починаючи з найпростіших, так чи інакше, борються за своє існування, у тому числі й один з одним, і, відмовившись від категорії мети