Відмінності між версіями «Учнівська вікі-стаття "Оператори розгалуження і циклу"»
(→Результати дослідження) |
(→Результати дослідження) |
||
Рядок 38: | Рядок 38: | ||
ПРИКЛАД 1. Написати програму для обчислення значення функції: | ПРИКЛАД 1. Написати програму для обчислення значення функції: | ||
− | + | ||
− | + | ||
− | + | ||
− | + | ||
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 | ||
==Висновки== | ==Висновки== |
Версія за 16: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