Лабораторна робота № 7

.Варіант

Завдання

1

Використовуючи інструкцію For…Next розрахувати:

- в інтервалі 0...π-y=sin(x)

- в інтервалі ъш _ЧіЈy=cos(x)

крок 0.1. результати вивести як таблицю з двох стовпців. У стовпці А значення x у стовпці B-y. Побудувати діаграму y=f(x).

2

Використовуючи інструкцію Do…Loop,синтаксис Do Until…Loop, підрахувати суму елементів строки A1…A30 значення яких по модулю більше за 10. Результат вивести у вікні MsgBox.

3

Використовуючи інструкції If…Then…Else розробити процедуру яка розрахувала б підоходний податок залежно від заробітної платні.

<1min з/п - 0%

1...10min з/п -12%

10...20min з/п - 15%

20...40min з/п - 30%

У вычку А1 сума зароботноъ плати, у вычку В1 - податок

4

Використовуючи інструкцію Do...Loop синтаксис DO...Loop While пірахувати середне арифметичне елементів діапазону А1...А50. Результат у MsgBox.

5

Використовуючи інструкцію Else розробити функцію:

153*sinx при x<2

y= 0,286*x при x>2, та x<5

tg(x) при 5<=x<=6

x/(1+x) при x>6

6

Використовуючи інструкцію For. Each... перебирати вічка діапазону A2...E5 і підводити у квадрат негативні значення.

7

Використовуючи інструкцію Do...Loop Until підрахувати кількість та суму позитивних елементів діапазону А1...АА1. Результат у MSgBox.

8

Використовуючи інструкцію Select... Ease розробити процедуру, яка б виводили кількість населення у населених пунктах України. Занести в список не меньше 15 населених пунктів.

У вічку А1 назва міста, результат у MsgBox. Якщо міста немае у базі використовувати надпис «Невідомо».

9

Використовуючи інструкцію ForEach...Next підрахувати середне арифметичне значень вічок у стовпці «A::A» до першого порожнього вічка. Результат занести у MsgBox.

10

Використовуючи інструкцію ForEach...Next знайти А1...Е10. Результат у вікні MsgBox.

11

Використовуючи інструкцію Do...Loop півдрахувати кількість пустих вічок у діапазоні А1...А50. Результат у MsgBox.

12

Використовуючи інструкцію Select...Case розробити процедуру яка розраховувала б тариф за хвилину телефонних переговорів з деяким містом (занести список не меньше 10 назв міст). У вічках А1...А10 назви міст, у вічках В1...В10 - тариф.

13

Використовуючи інструкцію ForEach...Next перебирати вічка діапазону А1:D20 і обнуляти вічка з абсолютним значенням меньшим за 0.1.

14

Використовуючи інструкцію Do...Loop синтаксис Do While...Loop підрахувати кількість елементів у стовпці А1:A100 які мають юудь яке значення. Результат у вікні MsgBox.

15

Використовуючи інструкцію If...Then...Else розробити процедуру яка розраховуе оцінку залежно від кількості правильних відповідей : у вічку А1. Кількість правильних відповедей, у вічку А2 загальна кількість відповідей, результат у вікні MsgBox.

16

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