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  


 

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

9674. Претензионная работа 46 KB
  Претензионная работа В ходе реализации договоров поставки нередко стороны по каким-то объективным или субъективным причинам не выполняют принятых на себя обязательств, нанося торговому партнеру материальный и моральный ущерб. В этих условиях потерпе...
9675. Модулированные сигналы 284 KB
  Модулированные сигналы Содержание Введение. Амплитудная модуляция. Однотональная модуляция. Энергия однотонального АМ-сигнала. Многотональный модулирующий сигнал. Демодуляция АМ-сигналов. Балансная амплитудная модуляция. Однополосная амплитудная ...
9676. Що являє собою технологія DSL 50.5 KB
  Що являє собою технологія DSL хDSL являє собою родину технологій, що дозволяють значно розширити пропускну здатність абонентської лінії місцевої телефонної мережі шляхом використання ефективних лінійних кодів та адаптивних методів корекції перекручу...
9677. Геохимические исследования остатков бронзолитейного производства с Суботовского городища XII-IX вв. до н.э. 125.5 KB
  Геохимические исследования остатков бронзолитейного производства с Суботовского городища XII-IX вв. до н.э. Л.В. Демченко, В.И. Клочко, В.И. Маничев НИИПОИМКИ Украины Введение Геолого-геохимическое изучение археологического объекта включает в себя ...
9678. Гончарные печи XIV-XV вв. на ремесленном посаде Сугдеи 49.5 KB
  Гончарные печи XIV-XV вв. на ремесленном посаде Сугдеи А.В. Джанов Крымский филиал Института археологии НАН Украины Поливная керамика позднего средневековья является наиболее ярким признаком для характеристики материальной культуры того или и...
9679. Информация и управление. Системы управления. Прямая и обратная связь. Замкнутая и разомкнутая система 37.5 KB
  Информация и управление. Системы управления. Прямая и обратная связь. Замкнутая и разомкнутая система. Преобразование, целенаправленная обработка информации - важнейший из информационных процессов. Преобразование информации о состоянии окружающ...
9680. Коаксіальний кабель 47.5 KB
  Коаксіальний кабель Коаксіальний кабель складається із двох циліндричних провідників, співвісно вставлених один в другий. Скоріш всього використовується центральний мідний провідник, покритий пластиковим ізолюючим матеріалом, поверх якого йде інший п...
9681. Кодирование информации. Единицы измерения 38 KB
  Кодирование информации. Единицы измерения. Единицы измерения количества информации. Для количественного выражения любой величины необходимо определить единицу измерения. Так, для измерения длины в качестве единицы выбран метр, для измерения массы..
9682. Класс TList - списки 57 KB
  Класс TList - списки Класс TList позволяет создать набор из произвольного количества элементов и организовать индексный способ доступа к ним, как это делается при работе с массивом. Списки отличаются от массивов двумя важными особенностями...