ПОМОГИТЕ ПОЖАЛУЙСТА МНЕ ЧЕРЕЗ ПАСКАЛЬ: Разработать схему алгоритма для определения...

Question

ПОМОГИТЕ ПОЖАЛУЙСТА МНЕ ЧЕРЕЗ ПАСКАЛЬ:
Разработать схему алгоритма для определения минимума из трёх чисел без использования логических операций. Протестировать алгоритм на следующих исходных данных:
а) 2 5 1
б) 0 -2 8
в) -4 5 10

Comments

Просили без использования логических операций. Выбрали - с испрользованием. 

Answer 1

Решение твоей задачки^^

Comments

По условию логические операции не используются.

---

var a,b,c: real;
begin
  writeln('числа a,b,c через пробел');
  readln(a,b,c);
  writeln('минимальное число:  ',min(a,min(b,c)));
end.

---

Функция min есть только в модуле math

---

А функция ABS - не в модуле Math ?

---

Функция abs - нет. Попробуй найти max на чистом турбопаскале.

Answer 2

{Рабочая программа. Решение основано на определении модуля числа}
var
  a, b, c, d: integer;
begin
  read(a, b, c);
  d := (a + b - abs(a - b)) div 2;
  writeln((d + c - abs(d - c)) div 2);
end.