Avn | Дата: Четверг, 28.06.2012, 13:08 | Сообщение # 1 |
Рядовой
Группа: Новичок
Сообщений: 1
[ 0 ]
Статус: Offline
| Private Sub CommandButton1_Click() Dim R1 As Single Dim R2 As Single
Dim ymax As Single Dim ymin As Single Dim y As Single
Dim xmin As Single Dim xmax As Single Dim x1 As Single Dim x2 As Single
Dim Ft As Single Dim Fr As Single
R1 = Val(TextBox1.Text) R2 = Val(TextBox2.Text) xmin = Val(TextBox3.Text) xmax = Val(TextBox4.Text)
ymax = R1 ymin = Sqr(R2 ^ 2 - xmax ^ 2)
For y = ymin To ymax x1 = Sqr(R1 ^ 2 - y ^ 2) x2 = Sqr(R2 ^ 2 - y ^ 2)
Ft = (R1 ^ 2 + R2 ^ 2 - Abs(R1 ^ 2 - 2 * x1 ^ 2 - 2 * y ^ 2 + R2 ^ 2)) + (xmax - xmin - Abs(-2 * x1)) + Abs((R1 ^ 2 + R2 ^ 2 - Abs(R1 ^ 2 - 2 * x1 ^ 2 - 2 * y ^ 2 + R2 ^ 2)) - (xmax - xmin - Abs(-2 * x1))) Fr = (R1 ^ 2 + R2 ^ 2 - Abs(R1 ^ 2 - 2 * x2 ^ 2 - 2 * y ^ 2 + R2 ^ 2)) + (xmax - xmin - Abs(-2 * x2)) + Abs((R1 ^ 2 + R2 ^ 2 - Abs(R1 ^ 2 - 2 * x2 ^ 2 - 2 * y ^ 2 + R2 ^ 2)) - (xmax - xmin - Abs(-2 * x1)))
Next y
End Sub "в приведенном листинге значение Y у меня почему-то выше Ymin не могу понять по каким причинам и что делать и выдает ошибку при расчете функции X2"
|
|
| |
PASCAL26 | Дата: Среда, 15.08.2012, 22:56 | Сообщение # 2 |
Генералиссимус
Группа: Модераторы
Сообщений: 215
[ 23 ]
Статус: Offline
| ява? что делает
пишу на с++, delphi, c# (нудные задачи небезвозмедно) ps Если помог - щелкни +, и вам хорошо и мне приятно
|
|
| |