VPF::Циклы в VB2005 - Форум программистов

sated

Дата 14.6.2007, 20:01 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 7.6.2007

Репутация: нет
Всего: нет

B=40
D=27=2*A*B/(A+B)
как вычислить "А"? (должно получится 20)

В Excel есть такая штука, как подбор параметра. Вот, что мне нужно!
Я так монимаю, что в VB2005 это можно сделать с помощью оператора Do While...Loop ?
Хотя раньше я делал через If...Then....ElseIf (сказали, что это неверно), но код получается очешь большой, потому, что я перечисляю практически все варианты (около 80)
Подскажите, как правильно.
Заранее спасибо.

tol05

Дата 14.6.2007, 21:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1632
Регистрация: 21.12.2006
Где: Харьков

Репутация: 1
Всего: 170

Если обязательно через do...while, то

Код


int result = -1;
int A = 0;
int B = 40;
int D = 27;
do
{
   if ((2 * A * B) / (A + B) >= D)
   {
       result = A - 1;
       break;
   }
   else
   {
       A++;
   }
}
while (true);

но я бы посоветовал через стaрый добрый for

Код


int result = -1;
int B = 40;
int D = 27;
for(int A = 0; ; A++)
{
   if((2*A*B)/(A+B)>=D)
   {
      result = A - 1;
      break;
   }
}

извиняюсь, что написал на шарпе - я лексику бейсика практически не понимаю smile

Думаю, переделать можно без труда, код простой.

З.Ы. Чуть не забыл: в самом конце нужно A=result; smile

Это сообщение отредактировал(а) tol05 - 14.6.2007, 21:21

--------------------

На хорошей работе и сны хорошие снятся.

Naum

Дата 15.6.2007, 10:11 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 743
Регистрация: 7.9.2005
Где: Саратов, ул. Поса дского, 298

Репутация: 2
Всего: 15

tol05, чего-то я не понял

Цитата(tol05 @ 14.6.2007, 22:18

)

(2 * A * B) / (A + B) >= D

почему именно ">=". В данном конкретном случае это конечно сработает, потому как f(A) = (2 * A * B) / (A + B) - функция возрастающая, а вообще-то это же не generic способ. Что-то мне подсказывает, что нужно вспоминать численные методы. Я, к сожалению, их напрочь забыл.:(
Могу только подсказать, что значит с помощью цикла Do While .... Loop.

Код


Dim B As Integer = 40
Dim D As Integer = 27
Dim Epsilon As System.Double = .01 'Допустимая погрешность 0.01 это только для примера. (И забыл как в бейсике короче написать System.Double  :crazy )
Dim A As Integer = D 'Вообще-то с помощью численных методов нужно вычислить первоначальное значение А.
Do While Math.Abs(((2 * A * B) / (A + B)) - D) > Epsilon
   EvaluateNext() 'Тут надо как-то посчитать следующее значение A :). Ответ на этот вопрос, по-моему уже быстрее найти в подфоруме по алгоритмам.
Loop

--------------------

У нас всего два праздника Новый год и ТЯПница.

Exception

Дата 16.6.2007, 14:34 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 4525
Регистрация: 26.12.2004

Репутация: 18
Всего: 186

Double, он и есть System.Double.

1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »