نقل قول نوشته شده توسط (امید)
علیرضا جان تابع ord رو می تونی سورسش رو تو خود دلفی ببینی.
راه حل خیلی قشنگیه ولی تابع integer هم IF داره ( بالای 30 تا :) )
:?: می شود بگویید داخل چه فایلی است؟ :cry:
//************************************
به پاسکال زبان کنترل دقیق دادهها لقب داده اند و مانند زبانهای نسل Basic نمی توان یک متغییر Boolean را به یک Integer نسبت داد
که من برای قالب ریزی یک Boolean بهInteger از توابع Ord یاIntegerاستفاده کردم
/*******************
ولی خوب برای این کار به صورت دستی!






program minmax123;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var

  a,b :integer;

  ab,ba:^byte;

  Bolab,bolba:boolean;

begin

   readln(a,b);

   bolab:=a>b;

   bolba:=b>a;

   ab:=@bolab;

   ba:=@bolba;

   writeln(ab^*a+ba^*b);

   readln;

end.



ولی اگر

نقل قول نوشته شده توسط DelphiArea
حتی در کد زیر:

B: Boolean;



B := X > Y;

هم انشعاب وجود داره.
با این روش: :lol: 


Program minmax2;



{$APPTYPE CONSOLE}



uses

  SysUtils;



var

  a,b,c,t :integer;



   d:^byte;

begin

   readln(a,b);

   d:=@c;



   c:=b-a ;

   d^:=d^ shr 7;

   t:=d^*a;



   c:=a-b ;

   d^:=d^ shr 7;



   t:=t+d^*b;

   writeln(t);

   readln;

end.

موفق باشید