[Помогите!] Помогите с решение данных Delphi задач.

[Stalkerr]

1. Имеются две переменные "a" и "b" - выдать наибольшее значение не используя: if, case и while.

[angryJC]

ну если задача стоит именно так, то используй функцию max(a,b) из модуля Math. она возвращает максимальное из двух чисел и в коде не будет видно никаких if, case и while

[Рэйзор]

Цитата: Сообщение от angryJC ну если задача стоит именно так, то используй функцию max(a,b) из модуля Math. она возвращает максимальное из двух чисел и в коде не будет видно никаких if, case и while

Функция Max реализована условиями:

function Max(const A, B: Integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end;

Вот мой вариант, вроде бы проще некуда.

var
  max, a, b: integer;

begin
  a:=10;
  b:=1;
  max := a * ord(a > b) + b * ord(a <= b);
end;

выполниться может только одно логическое выражение. Ord(true) = 1 | Ord(false) = 0, соответственно выражение оставляет ту из переменных, для которой выполнено условие.

[Stalkerr]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

var
  max, a, b: integer;

begin
  a:=10;
  b:=1;
  max := a * ord(a > b) + b * ord(a <= b);
  readln;
end;
function max(const a, b: integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end.

Что я не так делаю? Не выполняется условие, да и я добавил задержку "readln;" А то быстро скрывалось...

Добавлено через 2 минуты
Мне нужно, чтоб в интерпретатор(командная строка) выдалось наибольшее значение, из этих переменных..

[InFixion]

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils;

  var a,b,max:integer;

begin

  a:=10;
  b:=1;

   max := a * ord(a > b) + b * ord(a <= b);

   writeln(max);

   readln;

end.

Добавлено через 2 минуты
все работает, только ты забыл написать writeln(max);
а строки

function max(const a, b: integer): Integer;
begin
  if A > B then
    Result := A
  else
    Result := B;
end.

ты вообще можешь убрать, они низачем

[Рэйзор]

Быстро взять учебник по Паскалю и идти учить.

[Stalkerr]

program Project1;

{$APPTYPE CONSOLE}

uses
SysUtils;

var a,b,max:integer;

begin

a:=10;
b:=1;

max := a * ord(a > b) + b * ord(a <= b);

writeln(max);

readln;

end.

А можно это как-то уменьшить, то есть заменить операторы сравнения: >, <, >=, <=

[Рэйзор]

Цитата: Сообщение от Stalkerr program Project1; {$APPTYPE CONSOLE} uses SysUtils; var a,b,max:integer; begin a:=10; b:=1; max := a * ord(a > b) + b * ord(a <= b); writeln(max); readln; end. А можно это как-то уменьшить, то есть заменить операторы сравнения: >, <, >=, <=

Пжлста, можно еще и минимум найти:

max := (a+b+abs(a-b)) div 2;
min := (a+b-abs(b-a)) div 2;