Поиск оптимального решения

[Uchiha]

Дана задача что студент мол опаздывает на занятия.
Ему даются виды транспорта. И нужно найти оптимальное решение по стоймости и цене чтобы студент успел на учебу. У меня получается найти только наименьшую цену и стоимость. А как сделать так чтобы найти вариант подходящий по обоим критериям пусть и не по минимальным.

[mihali4]

Простите, а программирование тут при чем?
Это же чистая математика, а у нас - форум программистов...
Кстати, вы в одном предложении забыли в конце поставить восклицательный знак...

[Uchiha]

Дело в том, что это нужно реализовать на Delphi.
А насчет восклицательных знаков исправлюсь...=)

[Stilet]

А как ты решаеш эту задачу на бумажке? По шагам распиши.

[Sibedir]

На мой взгляд решающим фактором тут является успеваемость на занятия. Вобщем, надо найти все варианты транспорта, при которых он успевает на учебу, а из них выбрать самый дешевый.

[Квэнди]

Uchiha если до завтра не появятся ваши наработки, будет перенесено в фриланс.

[Uchiha]

Решение на бумаге:
Вводим виды траноспорта введу для примера 5
Вид Время Стоимость
Автобус 30 7
Газелька 15 15
Троллейбус 35 6
Такси 15 60
Личное авто 15 30(типа расход на бензин)

Вооот! По идее на бумаге оптимальный вариант для студента получаецца
что это Газелька быстро и недорого.
На бумаге это легко и выглядело так.

[Sibedir]

В исходных данных не хватает одного значения - Максимально возможное кол-во времени на дорогу. А в остальном все так, как я говорил.

type
  TTrensport = record
    Name: String;
    Time: Real;
    Money: Real;
  end;

...

var
  Variants: array of TTrensport;
  MaxTime: Real;

...

procedure TForm1.Button2Click(Sender: TObject);
var
  i, n: Integer;
begin
  n := -1;
  for i := 0 to Length (Variants) - 1 do begin
    if Variants [i].Time < MaxTime then begin
      if n = -1 then n := i
      else
        if Variants [i].Money < Variants [n].Money then n := i;
    end;
  end;
  if n = -1 then ShowMessage ('Подходящего транспорта нет')
  else ShowMessage ('Оптимальный вид транспорта: ' + Variants [n].Name);
end;

[Stilet]

Как по мне тут просто нужно найти минимальную разницу между стоимостью и временем...

[B_N]

Вообще, если, как говаривал Винни-Пух, "я что-нибудь в чём-нибудь понимаю", это - типичная задача на производную, где ставится условие потратить как можно меньше денег и при этом успеть вовремя. Соостветственно и строится функция, дающая стоимость путешествия, берется по ней производная, приравнивается к нулю, ну и т.д. Можно, конечно, ее решить и своего рода "численным методом" - бездумным перебором вариантов, но уж никак не утверждать, что на самолете быстрее всего. В любом случае, такие штуки сначала хорошо бы делать на бумаге, а уж потом думать, при чем здесь дельфи, так мне кажется.