If условие Then       Если условие выполнено

           Команды 1       То выполняются Команды 1

    End if                        Иначе (условие не выполнено)

Выполняется оператор, следующий за оператором End if .

Задача 8 «CikL4»

Площадь между кривой и осью х

Заданными считаются: xn, xk, n,. y=9-x² . Площадь вычисляется как сумма

                                                             площадей трапеций.

Программа вычислений

Private Sub Command1_Click()

1 xn = -3: xk = 3: n = 10:    

2 dx = (xk - xn) / n:                                          

  k = 1: x = xn + dx / 2: s = 0:                            9

3 y = 9 - x ^ 2: s = s + dx * y:

  k = k + 1: x = x + dx:  

5 If k <= n Then GoTo 3:  

Text 1 = s

End Sub                                                                               f

 

Вычисляемая фигура –квадратная парабола.

 Ветви её направлены вниз

а вся она приподнята над осью Х.

                                                                      -3                        +3

Площадь квадратной параболы такого

вида легко вычисляется по формуле                             6

               

При n=10 y = 36.18; при n=20 y = 36.045.При увеличении числа участков разбиения точность вычислений ворастает.

 

Работа на ПК: 1.Создаёте кнопку Command1 2.Создаёте два окна для Х и для Y 3.Дважды щёлкаете на Command1 4.Формируете программу (можно скопировать из документа Word) 5. Щёлкаете на чёрном треугольнике 6. Щёлкаете на Command1 7. Щёлкаете на чёрном квадрате 8. Изменяете значение Х 9. Переходите к п. 5

5.7.ФУНКЦИЯ ПОЛЬЗОВАТЕЛЯ

Задача 9 «Fx»                                                                                           

Требуется организовать

 вычисления функции

Private Sub Command1_Click()   

X = 3                                         

Y = F(X)                                    

Text1 = X                        

Text2 = Y                        

End Sub                                   

Function F(X)                          

F = X ^ 3                                   

End Function                     

                                                       

Функция пользователя может состоять из нескольких строк

 

ИСПОЛЬЗОВАНИЕ МАССИВОВ

Задача 10 «mas1»

Вычислим сумму и произведение элементов одномерного мерного массива

 

Private Sub Command1_Click()

Dim a(3)

a(1) = 10: a(2) = 20: a(3) = 30

s1 = a(1) + a(2)

Text1 = s1

p = 1: For i = 1 To 3

p = p * a(i): Next i

Text2 = p

End Sub

 

Задача 11 «mas2»

Сформируем матрицу коэфициентов и свободных членов системы двух

уравнений и выведем её на экран

 

Private Sub Command1_Click()

Dim a(5, 5), b(5)

a(1, 1) = 10: a(1, 2) = 5: b(1) = 10

a(2, 1) = -5: a(2, 2) = 10: b(2) = 20

Text1 = a(1, 1): Text2 = a(1, 2):              Text3 = b(1)

Text4 = a(2, 1): Text5 = a(2, 2):      Text6 = b(2)

End Sub

 

Второй вариант программы с выводом в отдельное окно Project1

Private Sub Command1_Click()

Dim a(5, 5), b(5)

a(1, 1) = 10: a(1, 2) = 5: b(1) = 10

a(2, 1) = -5: a(2, 2) = 10: b(2) = 20

MsgBox (Str(a(1, 1)) + " " + Str(a(1, 2)) + " " + Str(b(1)))

MsgBox (Str(a(2, 1)) + " " + Str(a(2, 2)) + " " + Str(b(2)))

End Sub

 

После нажатия кнопки Command1 появится первая строка 10 5 10.

Затем после нажатия ОК  появится вторая строка             -5 10 20

 

Задача 12 «mas3»

Продолжим задачу 10: решим систему двух уравнений с двумя неизвестными

по формулам Крамера

 

Private Sub Command1_Click()

a(1, 1) = 10: a(1, 2) = 5:     b(1) = 200

a(2, 1) = 5:     a(2, 2) = 10: b(2) = 250

Text1 = a(1, 1):      Text2 = a(1, 2):      Text3 = b(1)

Text4 = a(2, 1):      Text5 = a(2, 2):      Text6 = b(2)

D = a(1, 1) * a(2, 2) - a(2, 1) * a(1, 2)

D1 = b(1) * a(2, 2) - b(2) * a(1, 2)

D2 = a(1, 1) * b(2) - a(2, 1) * b(1)

X1 = D1 / D: X2 = D2 / D

Text7 = X1:   Text8 = X2:

End Sub

 

Задача 13 «Случай»

Требуется сформировать последовательность случайных чисел на интервале

от 0 до 1. Для этого можно использовать функцию RND (random случайный; произвольный; беспорядочный). Текст программы имеет вид

 

Private Sub Command1_Click()

Text1 = Rnd

End Sub

После запуска программы повторяйте нажатие кнопки пуска Command1

и читайте последовательность чисел (число знаков здесь уменьшено):

0.705     0.533     0.575     0.290    

0.302     0.775     1.102*10^-2 0.761 и так далее.

 

Такая последовательность более точно называется псевдослучайной, так как

формируется по специальному алгоритму и при внимательном наблюдении можно обнаружить закономерность.

Задача 14 «Nol»

Здесь реализован алгоритм, описанный в п.7.2.3 в Примере 2.