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