Отправляет email-рассылки с помощью сервиса Sendsay

Программирование на Visual Basic, VB .NET и VBA

Рассылка закрыта

При закрытии подписчики были переданы в рассылку "Виртуальный офис - дома" на которую и рекомендуем вам подписаться.

Вы можете найти рассылки сходной тематики в Каталоге рассылок.

←   Февраль 2010   →
 1
 2
 3
 4
 5
 6
 7
 8
 9
10
11
12
13
14
15
16
17
18
19
20
21
21.02.2010
14:32:32
15:31:09
22
23
24
25
26
27
28
Автор
BiT

Статистика

0 подписчиков
0 за неделю
←   Все выпуски   →

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


Вычисление определенного интеграла методом прямоугольников
2010-02-21 13:41 Александр
Вычисление определенного интеграла методом прямоугольников Public b As Single Public a As Single Public Function f(d) f = 1 / (1 + d ^ 4) End Function Private Sub Command1_Click() a = 0 'нижний предел b = 4 'верхний предел h = 0.001 ' шаг integral = 0 For d = a To b - h Step h integral = integral + h * f(d) Next d Text1.Text = [...]

Вычисление определенного интеграла методом Симпсона
2010-02-21 13:42 Александр
Вычисление определенного интеграла методом Симпсона Private Sub Command1_Click() A = 0 'нижний предел интегирования B = 1 'верхний предел h = 0.01 'шаг ( в твоей задаче это Е) N = (B - A) / h 'кол-во точек, на которые разбивается диапазон 'вычисление первой суммы (см. формулу) S1 = 0 For i = 1 To N - 1 S1 = S1 + [...]

Вычислить значения медиан треугольника
2010-02-21 13:44 Александр
Вычислить значения медиан треугольника Option Strict On Option Explicit On Imports System.Math Public Class Form1 'Функция ввода координаты точки в Textbox Function vvod(ByVal T As TextBox) As Single Return CSng(Val(T.Text)) End Function 'Процедура вывода результата в TextBox Sub vivod(ByVal Z As Single, ByVal T As TextBox) T.Text = CStr(Z) End Sub 'Функция вычисления длины отрезка по координатам двух точек Public Function rasst(ByVal x1 As Single, ByVal y1 As Single, [...]

В избранное