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  


 

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

9005. Ранняя греческая философия. Древнегреческая философия 40.5 KB
  Ранняя греческая философия Древнегреческая философия представляет собой совокупность учений, развившихся с VI в. до н.э. по VI в. н.э. (от формирования архаических полисов на ионийском и италийском побережьях до расцвета демократических Афин и после...
9006. Философия Платона. Теория идей, познание, человек и государство у Платона 42.5 KB
  Философия Платона. Теория идей, познание, человек и государство у Платона После казни Сократа один из его лучших учеников Аристокл, получивший за свои широкие плечи прозвище Платон («широкоплечий»), надолго покинул Афины. Тяжело переживая смерть учи...
9007. Философия Аристотеля. Бытие, сущность, причинность, душа, материя и форма 44 KB
  Философия Аристотеля. Бытие, сущность, причинность, душа, материя и форма Аристотель (384 – 322 гг. до н. э.) - древнегреческий философ, энциклопедист, основоположник науки логики и ряда отраслей специального знания. Образование Аристотель...
9008. Античные школы стоиков, скептиков и эпикурейцев 28.5 KB
  Античные школы стоиков, скептиков и эпикурейцев Философия в период эллинизма частично изменила содержание и свои основные цели. Эти изменения были обусловлены социально-экономическими и политическими процессами в развивавшемся эллинистическом общест...
9009. Идеи рационализма в учениях Р. Декарта, Б. Спинозы и Г. В. Лейбница 50 KB
  Идеи рационализма в учениях Р. Декарта, Б. Спинозы и Г. В. Лейбница Идеи мыслителей эпохи Возрождения были развиты философией Нового времени. Прогресс опытного знания, науки требовал замены схоластического метода мышления новым методом познания, обр...
9010. Периоды, представители и проблемы философии Средневековья и Возрождения 44 KB
  Периоды, представители и проблемы философии Средневековья и Возрождения Средневековая европейская философия - важный этап в истории философии, связанный прежде всего с христианством. Хронологически этот период охватывает V –XV вв. Специфик...
9011. Британская философия XVII – XVIII вв. (Ф. Бэкон, Т. Гоббс, Дж. Локк, Дж. Беркли, Д. Юм) 53 KB
  Британская философия XVII – XVIII вв. (Ф. Бэкон, Т. Гоббс, Дж. Локк, Дж. Беркли, Д. Юм) Эмпиризм - учение в теории познания, считающее чувственный опыт единственным источником знаний, утверждающее, будто все знание обосновывается в опыте и...
9012. Французский материализм XVIII в 42.5 KB
  Французский материализм XVIII в. Вторая половина XVIII в. явилась эпохой резкого обострения кризиса феодализма во Франции, вылившегося в буржуазную революцию важнейшую роль в ее идеологической подготовке сыграли философы-материалисты Ламетри, Гольб...
9013. Основные идеи философии И. Канта 42 KB
  Основные идеи философии И. Канта Иммануил Кант (1724 - 1804 гг.) - немецкий философ и ученый, родоначальник немецкой классической философии. Прожил всю жизнь в Кёнигсберге, где окончил университет и был в 1755 - 1770 гг. доцентом, а в...