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

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

Задать свой вопрос
Елена
Просили без использования логических операций. Выбрали - с испрользованием. 
2 ответа
Рабочая программка. Решение основано на определении модуля числа
var
  a, b, c, d: integer;
begin
  read(a, b, c);
  d := (a + b - абс(a - b)) div 2;
  writeln((d + c - abs(d - c)) div 2);
end.
Решение твоей задачи^^

Кандинова Варвара
По условию логические операции не употребляются.
Юрий
var a,b,c: real;begin  writeln('числа a,b,c через пробел');  readln(a,b,c);  writeln('минимальное число:  ',min(a,min(b,c)));end.
Витя Уяздовский
Функция min есть только в модуле math
Санек Конвисар
А функция Абс - не в модуле Math ?
Арсений Кичкильдеев
Функция abs - нет. Пробуй отыскать max на чистом турбопаскале.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт