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  


 

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

14072. Всеволод Нестайко. «Тореадори з Васюківки». Поняття про повість 36.5 KB
  УРОК № 50 Тема.В. Нестайко. Тореадори з Васюківки. Поняття про повість. Мета:ознайомити учнів з новим розділом повісті Тореадори з Васюківки допомогти усвідомити особливості жанру повісті; розвивати навички виразного читання переказу аналізу поведінки та вчин
14073. Урок. І Калинець. «Писанки» 30.5 KB
  УРОК № 52 Тема. І Калинець. Писанки. Мета: ознайомити учнів із життям та творчістю письменника допомогти сприйняти красу й оригінальність його поезій; розвивати навички виразного читання коментування ліричних творів визначення ролі метафори та порівняння у них; р
14074. Поетична вітальня. І. Калинець. Цикл «Дивосвіт»: «Стежечка», «Блискавка», «Веселка» 28 KB
  УРОК № 53 Тема. Поетична вітальня. І. Калинець. Цикл Дивосвіт: Стежечка Блискавка Веселка. Мета: ознайомити учнів з оригінальними неповторними віршами І. Калинця про природу допомогти усвідомити особливості та красу цих творів; розвивати навички виразного...
14075. Стельмах. «Химера лісового озера, або Митькозавр з Юрківки» 35 KB
  УРОК № 55 Тема. Я. Стельмах. Химера лісового озера або Митькозавр з Юрківки. Мета: ознайомити учнів із життям та творчістю письменника викликати цікавість до його пригодницьких книжок; розвивати навички виразного читання переказу аналізу прочитаного; виховувати
14076. Ярослав Стельмах. «Химера лісового озера, або Микитькозавр з Юрківки» 53 KB
  УРОК № 56 Тема. Я. Стельмах. Химера лісового озера або Микитькозавр з Юрківки. Мета:ознайомити учнів із новими розділами повісті спонукати до читання художньої літератури; розвивати навички виразного читання переказу характеристики героїв; виховувати допитливіст
14077. Ярослав Стельмах. «Химера лісового озера, або Микитькозавр з Юрківки». Урок з української літератури 28 KB
  УРОК № 57 Тема.Я. Стельмах Химера лісового озера або Микитькозавр з Юрківки. Мета:ознайомити учнів із новими пригодами двох друзів; прищеплювати інтерес і любов до читання художньої літератури; розвивати навички виразного читання уміння фантазувати передбачати
14078. Ярослав Стельмах. «Химера лісового озера...». Урок з української літератури 30 KB
  УРОК № 58 Тема.Я. Стельмах. Химера лісового озера. Мета:ознайомити учнів із кульмінацією та розвязкою твору; розвивати навички виразного читання переказу виділення найнапруженіших епізодів у творі висловлення власної думки щодо прочитаного; виховувати почуття ...