Как ПРАВИЛЬНО сравнить 3 числа на Pascal?

Question

[2chu]

begin
  if m > e then
   begin
   if m < f then memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок') else
    if m = f then memo1.Lines.Add('Самый популярные МИФИТ и ФИЛФАК ' + inttostr(f) + ' заявок') else
    memo1.Lines.Add('Самый популярный МИФИТ ' + inttostr(m) + ' заявок')
   end
  else
    if m < e then
       begin
       if e > f then memo1.Lines.Add('Самый популярный ЕНО ' + inttostr(e) + ' заявок') else
        if e = f then memo1.Lines.Add('Самый популярные ЕНО и ФИЛФАК ' + inttostr(e) + ' заявок') else
        memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок')
       end
    else
     if m > f then memo1.Lines.Add('Самый популярные МИФИТ и ЕНО ' + inttostr(m) + ' заявок') else
      begin
       if f > m then memo1.Lines.Add('Самый популярный ФИЛФАК ' + inttostr(f) + ' заявок') else
        memo1.Lines.Add('Все факультеты одиннаково популярны ' + inttostr(m) + ' заявок');
      end;
end;

Суть в том, что если ввести 2 МИФИТА, 2 ЕНО и 1 ФИЛФАК он выводит (Самый популярный МИФИТ). Т.е даже при ложном условии M > E (это не так, они равны) - он приступает к выполнению этого условия. Т.к внутри всё ложно он использует

else
    memo1.Lines.Add('Самый популярный МИФИТ ' + inttostr(m) + ' заявок')

Переменные m,e,f - первые буквы слов МИФИТ, ЕНО и ФИЛФАК. Если кто не поймёт

Comments

[zed]

Не правда. Ваш код при приведенных входных данные выводит: "Самый популярные МИФИТ и ЕНО 2 заявок". Т.е. всё работает как надо и в ветку M > E оно не переходит (что было бы крайне удивительно).

Answer 1

[Рональд Макдональд]

А почему бы не взять и не отсортировать массив?

Comments

[2chu]

Можно подробнее?

[Рональд Макдональд]

2chu, два варианта:
1. Загоняем m, e и f в массив и сортируем его по убыванию, например. Первый элемент будет самым большим, второй - средний, а третий - самый маленький;
2. Загоняем в массив и ищем максимум. Это и будет самый популярный что-у-вас-там.

[2chu]

Спасибо, попробую