Відмінності між версіями «Учнівська вікі-стаття "Оператори розгалуження і циклу"»

Матеріал з Iteach WIKI
Перейти до: Навігація, пошук
(Результати дослідження)
(Результати дослідження)
Рядок 38: Рядок 38:
  
 
ПРИКЛАД 1. Написати програму для обчислення значення функції:
 
ПРИКЛАД 1. Написати програму для обчислення значення функції:
        cos(x-2), якщо x<3
+
       
y=     
+
        x2+3, якщо x >=3
+
 
+
 
Sub Програма
 
Sub Програма
  
Рядок 99: Рядок 96:
  
 
End If
 
End If
 +
 +
ПРИКЛАД 2. Скласти програму обчислення значення функції.
 +
 
 +
                                                                         
 +
 +
Sub Макрос1()
 +
 +
Dim x As Single
 +
 +
х=InputBox (“x=”)
 +
 +
If x > 0 Then
 +
 +
Y = x^3+9: Cells(5,1) = x: Cells(5,2) = y
 +
 +
Else: Cells(4,3) = “x<=0”
 +
 +
End If
 +
 +
End Sub
  
 
Обчислювальний процес називається циклічним, якщо багаторазово повторюється виконання заданої послідовності операторів. Використання циклів дозволяє в повній мірі реалізувати швидкодію комп’ютерів (інакше, для однієї секунди роботи машини потрібно б було писати десятки тисяч рядків лінійних програм). Існують два основних типи циклів:
 
Обчислювальний процес називається циклічним, якщо багаторазово повторюється виконання заданої послідовності операторів. Використання циклів дозволяє в повній мірі реалізувати швидкодію комп’ютерів (інакше, для однієї секунди роботи машини потрібно б було писати десятки тисяч рядків лінійних програм). Існують два основних типи циклів:
Рядок 112: Рядок 129:
  
 
Next [ім’я ]
 
Next [ім’я ]
 +
 +
ПРИКЛАД 3.Скласти програму обчислення добутку Р=3*7*11*... *100.
 +
 +
Sub Макрос2()
 +
 +
Dim x As Byte
 +
 +
P=1
 +
 +
For x =3 To 100 Step 4
 +
 +
P = P*x
 +
 +
Next x
 +
 +
MsgBox “P=” & P
 +
 +
End Sub
 +
П
 +
РИКЛАД 4 . Створити макрос для обчислення значення функції
 +
        cos(x-2), якщо x < 3
 +
y=                                      , якщо х змінюється від 1 до 11 з кроком 2.
 +
            x2+3, якщо x > = 3
 +
 +
Щоб вивести на екран всі значення x  і y, краще скористатися робочим листом Excel. Для цього в програму необхідно ввести лічильник  - і – номер рядка таблиці.
 +
 +
Sub
 +
 +
Dim x As Single
 +
 +
і = 2
 +
 +
For x = 1 To 11 Step 2
 +
 +
If x >=3 Then y = x^2+3 Else y = cos(x-2)
 +
 +
Cells(i,1).Value = x
 +
 +
Cells(i,2).Value = y
 +
 +
і = i+1
 +
 +
Next x
 +
 +
End Sub
  
 
==Висновки==
 
==Висновки==

Версія за 17:34, 6 січня 2013


Назва проекту

"Оператори розгалуження і циклу"

Автори проекту

ІІ група в складі 5 студентів

Тема дослідження

Використання операторів розгалуження і циклу при розв'язуванні прикладних задач.

Проблема дослідження

Як оператори розгалуження і циклу допомагають нам швидко розв'язати поставлену задачу.

Гіпотеза дослідження

Програмування - це мистецтво чи наука?

Мета дослідження

Зрозуміти призначення операторів розгралуження та циклу і навчитися правильно їх використовувати.

Результати дослідження

При розв’язуванні задач в більшості випадків доводиться, в залежності від умови, вибирати виконувані дії, або декілька разів виконувати певну послідовність дій.

Якщо певні дії виконуються в залежності від виконання умов, то говорять про застосування операторів розгалуження. Обчислювальний процес називається розгалуженим, якщо для здобуття кінцевого результату передбачається вибір одного з кількох можливих напрямів обчислень (гілок) залежно від результату перевірки деякої умови. Розгалужений процес передбачає можливість вибору з декількох варіантів, для кожного з яких в залежності від певної умови виконується своя послідовність операторів. Розгалужений обчислювальний процес, що складається з двох гілок, називається простим, а з більшої кількості гілок — складним. Напрям обчислень вибирається перевіркою, внаслідок якої можливі два виходи: «Так» — умову виконано; «Ні» — умову не виконано. Умова вказується всередині символу «Розв'язування».

В мові VB існують дві форми синтаксису цього оператора: одно- та багаторядкова.

Конструкція однорядкового оператора розгалуження має вид:

If умова Then оператор 1 [Else оператор 2 ]

Наприклад, при знаходженні максимального числа із двох заданих, маємо:

If x>y Then max = x Else max = y.

ПРИКЛАД 1. Написати програму для обчислення значення функції:

Sub Програма

Dim x As Single

X=InputBox (“Введіть х”)

If x >=3 Then y=x^2+3 Else y=cos(x-2)

MsgBox “y=” & y

End_Sub

Якщо виникає необхідність перевірити відразу декілька умов, то використовують багаторазове повторення вищевказаних операторів. Логіка роботи цих операторів така:

If головний умовний вираз Then

послідовність операторів А

ElseIf умовний вираз1 Then

послідовність операторів 1

ElseIf умовний вираз2 Then

послідовність операторів 2

ElseIf умовний вираз3 Then

послідовність операторів 3

             ...

ElseIf умовний вираз N Then

послідовність операторів N

[Else послідовність операторів В Then]

End If

Розглянуті оператори дають змогу перейти до додаткової умови тільки тоді, коли основна умова має хибне значення.

Якщо треба перевірити яку-небудь додаткову умову за умови, що основна умова істина, то використовують вкладені оператори If. Синтаксис цього оператора такий:

If умова 1 Then

  If умова 2 Then 
  
  Оператори А
  
  Else
  
  Оператори В
  
   End If

End If

ПРИКЛАД 2. Скласти програму обчислення значення функції.


Sub Макрос1()

Dim x As Single

х=InputBox (“x=”)

If x > 0 Then

Y = x^3+9: Cells(5,1) = x: Cells(5,2) = y

Else: Cells(4,3) = “x<=0”

End If

End Sub

Обчислювальний процес називається циклічним, якщо багаторазово повторюється виконання заданої послідовності операторів. Використання циклів дозволяє в повній мірі реалізувати швидкодію комп’ютерів (інакше, для однієї секунди роботи машини потрібно б було писати десятки тисяч рядків лінійних програм). Існують два основних типи циклів:

▪ Цикл з передумовою.

▪ Цикл з післяумовою.

В першому випадку перевіряється спочатку умова і, якщо вона справджується, то вказана дія черговий раз повторюється, якщо ж ні, то повторення дії припиняється. Конструкція оператора циклу має вид:

For ім’я = значення1 Тo значення 2 [Step значення 3 ]

Next [ім’я ]

ПРИКЛАД 3.Скласти програму обчислення добутку Р=3*7*11*... *100.

Sub Макрос2()

Dim x As Byte

P=1

For x =3 To 100 Step 4

P = P*x

Next x

MsgBox “P=” & P

End Sub П РИКЛАД 4 . Створити макрос для обчислення значення функції

        cos(x-2), якщо x < 3

y= , якщо х змінюється від 1 до 11 з кроком 2.

            x2+3, якщо x > = 3

Щоб вивести на екран всі значення x і y, краще скористатися робочим листом Excel. Для цього в програму необхідно ввести лічильник - і – номер рядка таблиці.

Sub

Dim x As Single

і = 2

For x = 1 To 11 Step 2

If x >=3 Then y = x^2+3 Else y = cos(x-2)

Cells(i,1).Value = x

Cells(i,2).Value = y

і = i+1

Next x

End Sub

Висновки

Корисні ресурси