|
Введите х и нажмите Enter
|
|
2
|
Задание 2
Цель работы: создать
приложение, в котором можно вычислить значение суммы функций.
Эскиз формы
|
Form 1
|
|
Пуск
|
|
|
|
S=
|
|
|
|
|
|
|
|
Завершение
|
|
|
|
|
|
|
|
Таблица свойств
объекта
|
№
|
Объект
|
Name
|
Caption
|
|
1
|
Form
|
Form 1
|
Form 1
|
|
2
|
Text 1
|
txtx
|
|
|
3
|
Command 1
|
Command 1
|
Пуск
|
|
4
|
Command 2
|
Command 2
|
Завершение
|
|
5
|
OLE 1
|
OLE 2
|
|
|
6
|
Picturebox
|
Picture 1
|
|
Список идентификаторов
|
Переменная
|
Тип
|
Идентификатор
|
|
х
|
Single
|
х
|
Непосредственные коды
процедур
Private Sub Command1_Click()
Sum = 0 'начальное значение суммы
sump = 0 'начальная сумма положительных
значений функции
sumo = 0 'начальная сумма отрицательных
значений функции
X = Val(Textx.Text) 'преобразование функцией Val свойства Текст в числовое значение
For k = 1 To
10
y = Sin(X * k)
+ Cos(k / X)
If y > 0
Then
sump = sump +
y
Else
sumo = sumo +
y
End If
Next k
Sum = sump +
sumo
Picture1.Print
"сумма положительных значений функции"; sump
Picture1.Print "сумма отрицательных значений функции"; sumo
Picture1.Print "сумма значений функции"; Sum
Private Sub
Command2_Click()
End
End Sub
Результаты вычислений
и выводы
|
Form 1
|
|
2,3
|
|
S=
|
|
|
|
|
|
|
Сумма положительных значений функции 2,87637274384731
Сумма отрицательных значений функции -5,74964601205689
Сумма отрицательных значений функции -2,87327326820958
|
|