лб1

Лаборатория работа №1

Задание №1

Вычислить:

x=0,7; a=0,5 ; b=2,3;

Решение задачи :

Sub Макрос(1)

Dim y As Single, a As Single, b As Single

x=0,7; a=0,5 ; 9xb=2,3;

y=Sqr(4*b^2+log(x)^2)/log(10)- Sin(3*a)(4,5*Exp(3*x)+6* Sin(x))

MsgBox y

End Sub

Ответ:1,982849

Aлгоритм решения:

x=0,7

a=0,5

b=2,3

Начало

конец

Y

Задание №2

Вычислить:

Решение задачи:

Sub Макрос(2)

Dim y As Single, x As Single, s As Single

s=Input Box(x)

x=Val(s)

if Then

Y=0

Else if1 Then

Y=x²

Else

Y=x⁴

End If

MsgBox y

End Sub

Ответ:

x	-0,5	0,5	2
y	0	0,0625	4

Алгоритм решения:

Начало

x

X>1

Y=x²

Y=x⁴

Y=0

да нет

да нет

конец

y

Лаборатория работа №2

Задание №1 Вычислить:

где -50 x150; =50; а- задается с клавиатуры.

Найти max значение функции yна заданном интервале.

Решение задачи:

Sub Макрос (1)

Dim x As Single , s As Single

Max=-10^20

S=Input Box(a)

a=Val(s)

For x=-50 Tо 150 Step50

If x<0 Then y=a*x-17

If x>0 Then y=Sqr(x)*x^2

If x=0 Then y=13*a^3

Msg Box y

if y>Max Then Max=y

Next x

Msg Box Max

End Sub

Ответ: при а=1, y=-67

13

1767

100000

275567 Маx=27

Алгоритм решение:

Начало

а

Max=-10²⁰

-

X=-50-150-50

max

X<0

конец

X>0

y=

y=13a³

y=ax-17

y

y >max

да нет

Max=y

=x

Задание №2

Вычислить:

Sub Макрос (1)

Dim: As Integer, s As Single

S=0

P=1

For i=2 To 10

P=P*i

S=S+(P/(2*i)^2)

Next

Msg Box S

End Sub Ответ: 10382,08

Алгоритм решение:

Начало

конец

S=0

P=1

I=2;10

S

P=Pi

конец

S=S+

Лаборатория работа №3

Задание №1

Вычислить:

Дано натуральное число n, действительные числа a₁,a₂,….,a_n

a₁-a₂+a₃-a₄+….(-1)ⁿ⁺¹a_n .

Решение задачи :

Sub Макрос (1)

Dim (a) Аs Single

X=Input Box (n=1)

n=Val(x)

Re Dim a (n)

S=0

For i=1 To n

Cells(i,1)=Int (10*Rnd(1))

a(i)=cells(I,1)

S=S+(-1)^(i+1)*a(i)

Next I

Msg Box S

End Sub

Ответ: при n=5, значение=7,8,7,0,4, S=5

Алгоритм решения:

Начало

n

S=0

I=1,n

S

a_i

конец

a_i

S=s+(-1ⁱ⁺¹*a_i)

Задание №2

Вычислить:

Получить последовательность b₁,b₂…b_n , где

Решение задачи :

Sub Макрос (2)

Dim (a) Аs Single

X=Input Box (n)

n=Val(x)

S=0

p=1

Re Dim b (n)

For i=1 To n

p=p*1

a=1/p

s=s+a

b(i)=s

Cells(i,1)= b(i)

Next i

End Sub

Ответ: при n=6, i=1

1,5

1,6666667

1,708333

1,716667

1,728050

Алгоритм решения:

Начало

n

S=0

p=1

I=1,n

конец

P=p*i

A=1/p

S=s+a

b_i=s

b_i

Задание №3

Вычислить:

Получить сумму и количество тех чисел последовательности, которые кратны 5 и не кратны 4 .

Решение задачи :

Sub Макрос (3)

Dim (a) Аs Single

X=Input Box (n)

S=0

p=1

Re Dim a (n)

Cells.Clear

For i=1 To n

a(i)=Int(10*Rnd(1))+1

Cells(i,1)= a(i)

If (a(i)Mod5=0) And (a(i) Mod4< >0) Then

S=s+a(i): K=k+1

Next I

Msg Box S

Msg Box K

End Sub

Ответ: при n=15, S=15, K=2.

Алгоритм решения:

Начало Начало

n

S=0

K=0

I=1,n

A(i)

S,k

конец

A(i)

A(i)Mod

5=0

да

A(i)Mod

5=0

S=s+a(i)

K=k+1

14