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  


 

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

23605. СЕМАНТИЧЕСКИЕ СЕТИ 46.5 KB
  Выразительная сила больше не является решающим аргументом в пользу выбора сетей или линейных форм записи поскольку идеи записанные с помощью одной формы записи могут быть легко переведены в другую. Надписи над дугами означают что собака является агентов гложения кость является объектом гложения а жадность это манера гложения. В этом предложении сообщено что когда предложение €œWhile a dog was eating a bone€ являлось истинным второе предложение €œA cat passed unnoticed€ также является истинным. На рисунке 3 показано что собака...
23606. Теория фреймов 22.5 KB
  Впервые была представлена Минским как попытка построить фреймовую сеть или парадигму с целью достижения большего эффекта понимания . Минский разработал такую схему в которой информация содержится в специальных ячейках называемых фреймами объединенными в сеть называемую системой фреймов . Новый фрейм активизируется с наступлением новой ситуации .
23607. Различные наименования области прикладной лингвистики и их смысловые различия. Универсальные прикладные проблемы 15.5 KB
  Прикладная лингвистика это комплексная научная дисциплина изучающая язык в различных ситуациях его применения и разрабатывающая методы совершенствования языковых систем и языковых процессов. Термин прикладная лингвистика появился в конце 20 гг. За рубежом под ПЛ часто понимают совершенствование методов преподавания языка дидактическая лингвистика. Лингвистика входит в ядро складывающегося в настоящее время комплекса когнитивных наук объединяемых по их интересу к проблемам организации представления обработки и использования знаний.
23608. Понятие уровня в теоретической и прикладной лингвистике 13.5 KB
  Членение на уровни в рамках теоретической лингвистики: фонемный морфемный лексический уровень слова синтаксический уровень предложения Уровнеобразующими свойствами обладают только те единицы языка которые подчиняются правилам уровневой сочетаемости т. Уровень языка следует отличать от уровня анализа языка фаз или этапов рассмотрения языка. В лингвистической практике онтологический уровень языка и процедурный уровень анализа операционный нередко смешиваются хотя между ними нет прямого соответствия. Городецкий К проблеме...
23609. Мысль и язык 1.03 MB
  Потебня излагая взгляды Гумбольдта и его школы на отношение языкознания к психологии и логике выставил ряд своих собственных выводов как по этим общим так и по многим привходящим сюда частным вопросам выводов ставящих задачи русского и вообще славянского языкознания на широкую основу истории мысли. Это особенно может относиться к его Запискам по русской грамматике где рассыпая поражающие меткостью и новизной выводы при анализе отдельных явлений он мало заботится об общей связи между частными своими обобщениями полагая повидимому...
23610. ЯЗЫКОЗНАНИЕ ФОРМЫ СУЩЕСТВОВАНИЯ, ФУНКЦИИ, ИСТОРИЯ ЯЗЫКА 1.82 MB
  В книге специально отражен вопрос о коммуникативной функции языка и его знаковой природе освещены основы психофизиологического механизма речи а также вопросы связанные с особенностями литературного языка и явлениями нормы. Прежде всего авторы поставили своей 5 основной задачей изложить основные сущностные характеристики языка в их целостной и общей совокупности. Понять сущность языка как особого явления это значит уяснить его главную функцию и те многочисленные следствия которые она вызывает понять особенности его внутренней...
23611. ВВЕДЕНИЕ В ЯЗЫКОВЕДЕНИЕ 3.98 MB
  Ушаков обессмертивший свое имя редактированием Толкового словаря русского языка в обиходе именуемого ушаковским был для А. дорожил и гордился своим научным родством но верность учителям никогда не становилась для него основанием чураться нового и в своих лекциях из которых вырос учебник он стремился сочетать классику российского и мирового язковедения с сегодняшним видением основных проблем языка в том числе и со своими собственными представлениями. Он стал легендарным лектором благодаря умению пленять слушателей отточенностью...
23612. Введение в языкознание 1.56 MB
  Общение в широком смысле слова существует не только в человеческом обществе но и в животном мире а в наши дни мы должны также учитывать общение человека с машиной. вопросительные предложения вопросительные слова апеллятивную отлат. метаязыковую ' функцию истолкования языковых фактов например объяснение значения слова непонятного для собеседника эстетическую функцию эстетическоговоздействия. Яркая экспрессия может быть и в побудительном предложении и в вопросе и в формуле приветствия и при констатации факта и при объяснении...
23613. ЯЗЫКОВАЯ РЕФЛЕКСИЯ В ПОСТСОВЕТСКУЮ ЭПОХУ 2.43 MB
  Купина доктор филологических наук профессор Рецензенты: кафедра стилистики и русского языка факультета журналистики Уральского государственного университета им. Книга предназначена для широкого круга лингвистов культурологов социологов и всех кто интересуется проблемами языка общества культуры. Бурные социальнополитические процессы последнего десятилетия XX века коррелируют с активизацией социальной парадигмы языка. Если лингвистика середины XX века отражала соссюрианскую идею языка как самодовлеющей сущности изолированной от...