MyTopic

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;