Приклад виконання лабораторної роботи

Написати процедуру, яка виконує такі дії:

1. Запишіть у клітинку А1 текст „Аргумент”

2. Запишіть у клітинку В1 текст „Функція”

3. У клітинки з A2 до A12 запишіть цілі випадкові числа з інтервалу

з 1 до 10.

4. У клітинку В2 запишіть формулу для обчислення функції

Y=

5.Скопіюйте формулу з клітинки B2 в діапазон B3:B12.

6.Запишіть у клітинку B13 формулу для обчислення середнього значення функції.

Текст програми

Sub таблиця()

Range("A1").Value = "Аргумент"

Range("B1").Value = "Функція"

Range("A2:A12").Formula = "=Int(Rand()*10)"

Range("B2").Formula="=(1+A2*Exp(-A2))/(2+Sqr(A2^2+Sin(A2)^2))"

Range("B2").Copy Range("B3:B12")

Range("B13").FormulaLocal = "=СРЗНАЧ(B2:B12)"

End Sub

Індивідуальні завдання

Напишіть програму для обчислення функції(завдання а) з попередньої лабораторної роботи та знайти для неї максимальне, мінімальне та середнє значення.

Лабораторна робота № 3.