12724

Циклы с заданным числом повторений

Лабораторная работа

Информатика, кибернетика и программирование

Лабораторная работа № 16 Тема: Циклы с заданным числом повторений Общие сведения Циклом с заданным числом повторений называется процедура в которой вычислительные операции выполняются многократно заданное число раз. Циклы этого типа называются циклами типа ДО...

Русский

2013-05-03

54.5 KB

42 чел.

Лабораторная работа № 16

Тема: Циклы с заданным числом повторений

Общие сведения

Циклом с заданным числом повторений называется процедура, в которой вычислительные операции выполняются многократно заданное число раз. Циклы этого  типа называются циклами типа “ДО”. Циклы могут быть организованы как  циклы с предусловием, так и как циклы с постусловием. В циклах с предусловием вначале проверяется условие окончания цикла и, если условие окончания цикла не выполняется, то выполняется тело цикла. В таких циклах значение переменной, проверяемой в теле цикла, должно быть вычислено заранее или ей должно быть присвоено некоторое значение, заведомо большее условия окончания цикла, до входа в цикл. В циклах с постусловием условие окончания цикла проверяется в конце цикла. По смыслу решаемых задач циклы типа ДО организуются как циклы с постусловием.

Структура цикла с использованием оператора  FOR/NEXT:

           FOR  i = a  TO b  [STEP  h]

                       <тело цикла>

           NEXT  i 

Задание.

1. Изучите описание лабораторной работы.

2. Вычислите сумму членов натурального ряда чисел от 1 до 100 с шагом 5.

3. Выполните табулирование функции y=f(x) согласно варианту задания на отрезке [a,b] с шагом h=0.2.

4. Изобразите схему алгоритма для п. 3 задания.

Варианты заданий

f(x)

Отрезок

1

[0;6]

2

[1;4]

3

[1;4]

4

[-3;3]

5

[0;4]

6

[-1;5]

7

[1;8]

8

[0;3]

9

[-3;3]

10

[2;4]

11

[1;3]

12

[-1;2]

Пример выполнения задания

Пример 1.Вычислить значение выражения  b=(1+1/2+1/22+...+1/2n)  при N=10.

Rem вычисление суммы с использованием оператора FOR/NEXT

N=Val(InputBox(“введите значение N”))

B=1

For  i=1 To  N

B=B+1/(2^i)

Next i

Print “B=”B

B=1.999

Пример 2. Выполнить табулирование функции y=Sin(x) на отрезке [0, ] с шагом  5 градусов.

Option Explicit

Dim a As Single, b As Single, h As Single, hr As Single

Dim N As Integer, x As Single, y As Single, i As Integer

--------------------------------------------------------------------------------

Private Sub Form_Click()

Rem табулирование функции

Cls

Const Pi = 3.141592

a = Val(InputBox("Введите границу а отрезка табулирования а"))

b = Val(InputBox("Введите границу а отрезка табулирования b"))

h = Val(InputBox("Введите шаг табулирования h в градусах"))

'шаг табулирования задан в градусах, переведем его в радианы

hr = h / 180 * Pi    'hr - шаг в радианах

' определим число шагов

N = Int((b - a) / hr) + 1

x = a

For i = 0 To N

      y = Sin(x)

      Print "x="; x, "y="; y

       x = x + hr

Next i

End Sub

Контрольные вопросы

1. Дайте определение  цикла?

2. Изобразите схему алгоритма вычисления суммы конечного ряда чисел.

3. Приведите синтаксис оператора For/Next.


 

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

30174. Российское законодательство в области защиты прав потребителей 443.5 KB
  В гражданском обороте основанном на рыночных отношениях защита прав потребителей в сфере оказания услуг занимает особое место. В данной работе анализируется обязательство по оказанию услуг потребителю и проблемы защиты прав потребителя при его нарушении. Вместе с тем в науке гражданского права специальных работ монографического характера посвященных исследованию проблемным вопросам защиты прав потребителя при оказании услуг не так много большинство существующих современных работ носят скорее информативный характер а не научный. Объектом...
30177. Модернизировать координатную ось динамической подвижной лазерной головки. Разработанная координатная ось должна минимизировать общее время обработки 6.29 MB
  В результате выполнения работы была модернизирована координатная ось, для уменьшения перемещения лазерной головки и получены минимальные затраты материала. Областью практического применения разработанной координатной системы станка обеспечивает динамическое перемещение оптической оси лазерного излучения, а также положением фокуса луча над поверхностью раскройного стола с разрешением в тысячные доли миллиметра.
30178. Разработка рекомендаций по совершенствованию аэронавигационного обеспечения полетов авиакомпании "Волга-Днепр" в связи с внедрением европейской схемы торговли квотами на эмиссию парниковых газов 2.22 MB
  Выявлена проблема определения оптимального маршрута с точки зрения учета квот на эмиссию парниковых газов и представлены результаты расчетов эффективности эмиссии и определения оптимального маршрута путем ее сравнения. Методы уменьшения эмиссии парниковых газов 59 4. Повышение спроса на воздушные перевозки привело к увеличению общего объема авиационной эмиссии темпы которого превысили темпы уменьшения удельной эмиссии обеспечиваемой за счет постоянного совершенствования техники и эксплуатационных процедур. Основными компонентами авиационной...
30180. Анализ земляники садовой выращеной на базе плодового питомника ООО «Полисад» в городе Горки Могилевской области 1.13 MB
  Первые крупноплодные сорта земляники появились в 1840 году. Через 20 лет эти сорта были завезены в Казань на ферму земледельческого училища. Растения преимущественно двудомные встречаются сорта с обоеполыми цветками. В диком состоянии этот вид не встречается к нему принадлежат все сорта крупноплодной садовой земляники которые ныне культивируются.
30182. Установление специфики юридической ответственности органов местного самоуправления 428.5 KB
  Ответственность органов местного самоуправления выступает важным элементом их правового статуса гарантией качественной работы и добросовестного осуществления своих полномочий. Предназначение конституционноправовой ответственности заключается в охране конституционного строя основных прав и свобод граждан в обеспечении нормального порядка осуществления публичной власти в следовании органов местного самоуправления предписаниям действующего законодательства в предупреждении превенции посягательств на порядок осуществления...