نقل قول نوشته شده توسط DelphiArea
از بین دو عدد A و B کوچکترین و بزرگترین عدد را بدون استفاده از هرگونه مقایسه ضمنی یا عینی تعیین کنید.
این هم یک روش :
البته برای زمانی که دادهها از نوع Longint باشد :lol: (و بدون متغییر کمکی :lol: :lol: :lol: )


program minmaxd2;

{$APPTYPE CONSOLE}

uses

  SysUtils;

var

 a,b:longint;

begin

 readln(a,b);

   writeln('max=',(2*a-((a-b) shr 31)*2*(a-b)) shr 1);

   writeln('min=',(2*b+((a-b) shr 31)*2*(a-b)) shr 1);

 readln;

end.

اگر به این برنامه خوب دقت کنید از روش جناب v_shalchian استفاده شده + یک کم تغییرات برای abs

//***************************
:!: البته دوست دارم دیگر دوستان در این باره نظر بدهند
و راه حل های دیگری ارائه بدهند
و هیچ کس از اینکه درباره جوابش نظر بدهیم ناراحت نشود

موفق باشید