ПРАКТИЧНА РОБОТА 3

Date: 2015-10-07; view: 413.

End If

Приклад. Підрахуємо податок залежно від зарплати.

Private Sub Command1_Click()

Dim z, n As Integer

z = Val(Text1.Text)

If z <= 200 Then

n = z * 0.15

ElseIf z >= 200 And z <= 500 Then

n = z * 0.2

Else

n = z * 0.28

End If

Label3.Caption = Str(n)

End Sub

У принципі блоковий запис надає такі ж можливості, як і однорядковий, але якщо в залежності від умови необхідно виконати не просту команду, а групу операторів, варто використовувати блоковий синтаксис. При формуванні більш складних умов блоковий запис зручніший. Використання в цьому випадку блокового синтаксису покращує читабельність програми.

Контрольні запитання.

1. Дія повного умовного оператора?

2. Що таке Блоковий синтаксис ?

3. Коли можна застосовувати скорочену форму умовного оператора?

Завдання для самостійного розв'язку.

1. Введіть три числа, виберіть найбільше;

2. Введіть три числа, виберіть найменше.

3. Обчислити значення функції:

πx² – 7/x² при а < 1,3;

y = ах³ + 7 при а = 1,3;

lg(ax+ ) при a > 1,3.

4. Обчислити площу трикутника з сторонами А, B, С за формулою Герона.

5. Визначити квадрат знаходження точки за заданими координатами.

6. Знайти квадрат найбільшого із трьох чисел A, B, C і куб найменшого з цих чисел.

7. Визначити, чи значення змінних H і M кратні 3. Якщо обидва значення кратні 3, то обчислити їх суму, інакше обчислити їх різницю.

8. Обчислити значення функції:

lg³ a² + / e ^x при x < 3;

y = + 1/x при 3 < x < 7;

a Cos² (аe^х) + a Sin²(ae^x ) при x > 7.

9. Визначити мінімальний елемент із чотирьох Х1, X2, X3, X4 та його номер.

10. Обчислити площі різних геометричних фігур і вивести на друк їх назву.

A B якщо n =1;

A H/2 якщо n =2;

S = (A+B) H/2 якщо n =3;

πR² якщо n =4;

πR² φ/360 якщо n =5.

11. Дано три цілих позитивні числа А, В, С. Обчислити значення функції:

e ^m+A/B при K=0;

y = ln(A+B) при K=1;

при K=2.

12. Обчислити значення функції:

1,5 Cos² x при x < 1;

1,8 ax при x = 1;

S =

(x-2)² + 6 при 1< x <2;

3 tg x при x > 5.

13. Упорядкувати три числа X, Y, Z за збільшенням так, щоб змінній A відповідало найменше число, B - середнє, С - найбільше.

ПРОГРАМУВАННЯ АЛГОРИТМІВ РОЗГАЛУЖЕНИХ ОБЧИСЛЮВАЛЬНИХ ПРОЦЕСІВ З ВИКОРИСТАННЯМ ОПЕРАТОРУ Select Case

1. МЕТА РОБОТИ

Вивчення методики програмування алгоритмів розгалужених обчислювальних процесів з використанням оператору Select Case.

2. ЗАВДАННЯ І ПОРЯДОК ВИКОНАННЯ

2.1. Вивчити теоретичний матеріал.

2.2. Розробити програму і отримати розв'язок задачі.