Пятница, 29.03.2024, 17:31
Задачи по информатике
Главная | Регистрация | Вход Приветствую Вас Гость | RSS
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: ignorer, KOT_B_MEIIIKE, PASCAL26, atvrider  
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Проблема с программой
Проблема с программой
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
ява? что делает
Quote
Next y


пишу на с++, delphi, c# (нудные задачи небезвозмедно)
ps Если помог - щелкни +, и вам хорошо и мне приятно
 
Форум » Решение задач по информатике » Задачи по программированию + блок-схемы » Проблема с программой
  • Страница 1 из 1
  • 1
Поиск:

Copyright MyCorp © 2024