Integer Functions

 Top 

Example code : IsPrime, LeastFactor, Max, Min, Sign, Sqr, Unsigned32, Clamp

procedure TForm1.W3Button19Click(Sender: TObject);

var n : integer;

res : Float;

status : boolean;

begin

n := 5;

res := Factorial(n);

 

WriteLn('Fatorial de 5 = '+ res.ToString);

WriteLn('5 is No. Prime = '+ n.IsPrime().ToString); // True

WriteLn('LeastFactor de 15 = '+ LeastFactor(n*3).ToString);

WriteLn('Max de 15 e 10 = '+ Max(n*3,n*2).ToString);

WriteLn('Min de 15 e 10 = '+ Min(n*3,n*2).ToString);

WriteLn('Sign de -15 = '+ Sign(-n*3).ToString);

WriteLn('Sqr de 15 = '+ Sqr(n*3).ToString);

WriteLn('Unsigned32 de 1809530879999995 = '+ Unsigned32(n*361906175999999).ToString);

WriteLn('Clamp de 15 e 10 = '+ Clamp(n, n*3,n*2).ToString);

 

n:= inc(n); //n = 6

WriteLn('6 is No. Prime = '+ n.IsPrime().ToString); // False

WriteLn('Max de 18 e 12 = '+ Max(n*3,n*2).ToString);

WriteLn('Min de 18 e 12 = '+ Min(n*3,n*2).ToString);

WriteLn('Sign de 18 = '+ Sign(n*3).ToString);

WriteLn('Sqr de 18 = '+ Sqr(n*3).ToString);

WriteLn('Unsigned32 de 2171437055994 = '+ Unsigned32(n*361906175999).ToString);

WriteLn('Clamp de 24 e 36 = '+ Clamp(n, n*4,n*6).ToString);

 

n:= inc(n);  //n = 7

WriteLn('7 is No. Prime = '+ n.IsPrime().ToString); // True

WriteLn('Max de 21 e 14 = '+ Max(n*3,n*2).ToString);

WriteLn('Min de 21 e 14 = '+ Min(n*3,n*2).ToString);

WriteLn('Sign de -21 = '+ Sign(-n*3).ToString);

WriteLn('Sqr de 21 = '+ Sqr(n*3).ToString);

WriteLn('Unsigned32 de 2533343231993 = '+ Unsigned32(n*361906175999).ToString);

WriteLn('Clamp de 49 e 42 = '+ Clamp(n, n*7,n*6).ToString);

end;

Fatorial de 5 = 120

5 is No. Prime = True

LeastFactor de 15 = 3

Max de 15 e 10 = 15

Min de 15 e 10 = 10

Sign de -15 = -1

Sqr de 15 = 225

Unsigned32 de 1809530879999995 = 1028653051

Clamp de 15 e 10 = 15

 

6 is No. Prime = False

Max de 18 e 12 = 18

Min de 18 e 12 = 12

Sign de 18 = 1

Sqr de 18 = 324

Unsigned32 de 2171437055994 = 2478571514

Clamp de 24 e 36 = 24

 

7 is No. Prime = True

Max de 21 e 14 = 21

Min de 21 e 14 = 14

Sign de -21 = -1

Sqr de 21 = 441

Unsigned32 de 2533343231993 = 3607494649

Clamp de 49 e 42 = 49 

 

mytoggle_plus1JS output

function W3Button19Click(Self, Sender$16) {

      var n$2 = 0;

      var res = 0;

      var status = false;

      n$2 = 5;

      res = Factorial(n$2);

      WriteLn(("Fatorial de 5 = "+FloatToStr$_Float_(res)));

      WriteLn(("5 is No. Prime = "+BoolToStr(IsPrime(n$2))));

      WriteLn(("LeastFactor de 15 = "+(LeastFactor(n$2*3)).toString()));

      WriteLn(("Max de 15 e 10 = "+(Math.max(n$2*3,n$2*2)).toString()));

      WriteLn(("Min de 15 e 10 = "+(Math.min(n$2*3,n$2*2)).toString()));

      WriteLn(("Sign de -15 = "+($Sign((-n$2)*3)).toString()));

      WriteLn(("Sqr de 15 = "+(Math.pow(n$2*3,2)).toString()));

      WriteLn(("Unsigned32 de 1809530879999995 = "+(((n$2*361906175999999)>>>0)).toString()));

      WriteLn(("Clamp de 15 e 10 = "+FloatToStr$_Float_(Clamp(n$2,n$2*3,n$2*2))));

      n$2 = ++n$2;

      WriteLn(("6 is No. Prime = "+BoolToStr(IsPrime(n$2))));

      WriteLn(("Max de 18 e 12 = "+(Math.max(n$2*3,n$2*2)).toString()));

      WriteLn(("Min de 18 e 12 = "+(Math.min(n$2*3,n$2*2)).toString()));

      WriteLn(("Sign de 18 = "+($Sign(n$2*3)).toString()));

      WriteLn(("Sqr de 18 = "+(Math.pow(n$2*3,2)).toString()));

      WriteLn(("Unsigned32 de 2171437055994 = "+(((n$2*361906175999)>>>0)).toString()));

      WriteLn(("Clamp de 24 e 36 = "+FloatToStr$_Float_(Clamp(n$2,n$2*4,n$2*6))));

      n$2 = ++n$2;

      WriteLn(("7 is No. Prime = "+BoolToStr(IsPrime(n$2))));

      WriteLn(("Max de 21 e 14 = "+(Math.max(n$2*3,n$2*2)).toString()));

      WriteLn(("Min de 21 e 14 = "+(Math.min(n$2*3,n$2*2)).toString()));

      WriteLn(("Sign de -21 = "+($Sign((-n$2)*3)).toString()));

      WriteLn(("Sqr de 21 = "+(Math.pow(n$2*3,2)).toString()));

      WriteLn(("Unsigned32 de 2533343231993 = "+(((n$2*361906175999)>>>0)).toString()));

      WriteLn(("Clamp de 49 e 42 = "+FloatToStr$_Float_(Clamp(n$2,n$2*7,n$2*6))));

   }