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  


 

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

37778. Исследование генераторного оборудования и системы синхронизации аппаратуры ИКМ-30 3.7 MB
  Цель работы. Изучение и исследование работы генераторного оборудования и режимов работы системы синхронизации аппаратуры ИКМ30. Исследование работы генераторного оборудования Для разрядного делителя fT Р1 Р2 Р8 Для канального делителя Для делителя циклов Исследование работы ДК Р2 упр. Т1 РС2 КИ1 КИ2 Исследование режимов работы приемника цикловой синхронизации Помеха 0 Г2 Г3 Г4Г8 Помеха 1 Г2 Г3 Г4 Г5 Г6Г8 Г9 Помеха 2 Г2 Г3 Г4 Г5 Г6 Г7Г8 Г9 Помеха 3 Г2 Г3 Г4 Г5 Г6 Г7 Г8 Г9 Помеха 4 Г2 Г3 Г4 Г5 Г6 Г7 Г8 Г9.
37779. Расчет перевозки коммерческого груза одним рейсом 45 KB
  Время необходимое для перевозки груза одним рейсом определяется по формулам: а наземным транспортом T = LА Tвсп Tпр [ч] V где LА дальность перевозки груза автомобильным транспортом; V скорость движения автомобильного транспорта; Tвсп вспомогательное время; Tпр суммарное время затрачиваемое на привалы. Вспомогательное...
37780. Одновимірний масив 17.4 KB
  Висновок: навчилися працювати з одновимірним масивом...
37781. Организация радиомониторинга объекта защиты 962.5 KB
  Для выполнения этих работ необходимо предварительно ознакомиться с основными сведениями по построению закладных устройств Распределению частот согласно международному регистру радиосвязи Распределению частот связи в диапазонах ОВЧ и УВЧ для Москвы и Таблицей âРаспределение частот между радиослужбами Российской Федерации в диапазоне частот от 3 кГц до 400 ГГцâ а также рекомендациями по выделению полос частот для новых видов и систем связи для сетей беспроводного доступа бесшнуровых телефонных аппаратов для сетей сухопутной...
37782. Ознайомлення з інструментальним середовищем програмування Delphi. Робота з простими візуальними об’єктами 1.5 MB
  Розробити проект, в якому на формі розмістити необхідні компоненти для введення координат вершин трикутника (TEdit, TLabel). Для виконання обчислень і завершення роботи програми використати компоненти TButton. Для вибору необхідного варіанту обчислень застосувати компонент RadioButton або TCheckBox. Результати обчислень виводити в компонент TLabel