Студопедия

КАТЕГОРИИ:


Архитектура-(3434)Астрономия-(809)Биология-(7483)Биотехнологии-(1457)Военное дело-(14632)Высокие технологии-(1363)География-(913)Геология-(1438)Государство-(451)Демография-(1065)Дом-(47672)Журналистика и СМИ-(912)Изобретательство-(14524)Иностранные языки-(4268)Информатика-(17799)Искусство-(1338)История-(13644)Компьютеры-(11121)Косметика-(55)Кулинария-(373)Культура-(8427)Лингвистика-(374)Литература-(1642)Маркетинг-(23702)Математика-(16968)Машиностроение-(1700)Медицина-(12668)Менеджмент-(24684)Механика-(15423)Науковедение-(506)Образование-(11852)Охрана труда-(3308)Педагогика-(5571)Полиграфия-(1312)Политика-(7869)Право-(5454)Приборостроение-(1369)Программирование-(2801)Производство-(97182)Промышленность-(8706)Психология-(18388)Религия-(3217)Связь-(10668)Сельское хозяйство-(299)Социология-(6455)Спорт-(42831)Строительство-(4793)Торговля-(5050)Транспорт-(2929)Туризм-(1568)Физика-(3942)Философия-(17015)Финансы-(26596)Химия-(22929)Экология-(12095)Экономика-(9961)Электроника-(8441)Электротехника-(4623)Энергетика-(12629)Юриспруденция-(1492)Ядерная техника-(1748)

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




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. Обчислити значення функції:

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

 

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

 

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

 

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

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

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

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

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

 
 


lg3 a2 + / e x при x < 3;

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

a Cos2 (аeх) + a Sin2(aex) при x > 7.

 

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

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

A B якщо n =1;

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

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

πR2 якщо n =4;

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

 

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

 
 


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

 

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

 

при K=2.

 

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

 
 


1,5 Cos2 x при x < 1;

1,8 ax при x = 1;

S =

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

3 tg x при x > 5.

 

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

 




Поделиться с друзьями:


Дата добавления: 2014-12-24; Просмотров: 334; Нарушение авторских прав?; Мы поможем в написании вашей работы!


Нам важно ваше мнение! Был ли полезен опубликованный материал? Да | Нет



studopedia.su - Студопедия (2013 - 2024) год. Все материалы представленные на сайте исключительно с целью ознакомления читателями и не преследуют коммерческих целей или нарушение авторских прав! Последнее добавление




Генерация страницы за: 0.008 сек.