Funciones útiles

Redondear y truncar

     Round (X); {X:Real, Resultado real (Entero más próximo que hay de X)}
     Y := Round (X);

     Trunc (X); {X:Real, Resultado entero (Saca los decimales de X)}
     Z := Trunc (X);

Ejemplo

Program RyT;
Uses Crt;
Var
     VR1, VR2 : Real;
     EN : Integer;
Begin
     Clrscr;
     VR1 := 123.43;
     VR2 := Round (VR1);
     EN := Trunc (VR2);
End. {Falta mostrar los resultados en pantalla}


Números aleatorios

     Random; ==> Genera números aleatorios entre 0 y 1.
     Random (X); ==> Genera números aleatorios entre 0 y X (X es un número entero).

Ejemplo

Program Ran;
Uses Crt;
Var
     X : Integer;
Begin
     Clrscr;
     Randomize; {Siempre hay que colocarlo cuando usamos Random}
     Write (Random (200));
End.


Incrementar - Decrementar (Muy útil)

     Inc (X); ==> Incrementa el valor de X en 1 unidad (Sustituto de "X := X + 1").
     Dec (X); ==> Decrementa el valor de X en 1 unidad (Sustituto de "X := X - 1").

¿Qué pasa si queremos incrementar o decrementar en dos o más unidades a X?
Sencillo:
             Inc (X,5); {Incrementa en 5 unidades a X}
             Dec (X,10); {Decrementa en 10 unidades a X}

Ejemplo

Program IyD;
Uses Crt;
Var
     X,Y,N : Integer;
Begin
     Clrscr;
     X := 0;
     Y := 25;
     For N := 1 to 5 do
          Begin
               Inc (X,2);
               Dec (Y,5);
          End;
End. {Resultados: X = 10, Y = 0}


Int y Frac

     Int (X); {X:Real, Resultado real (Devuelve la parte entera de X).
     Frac (X); {X:Real, Resultado real (Devuelve la parte decimal de X).

Ejemplo

Program IyF;
Uses Crt;
Var
     R : Real;
Begin
     Clrscr;
     R := Int (236.56); {R = 236.0}
     R := Int (-236.56); {R = -236.0}
     R := Frac (236.56); {R = 0.56}
     R := Frac (-236.56); {R = -0.56}
End.


Otras

     Abs (X); ==> Nos da el valor absoluto de X.
     Sqr (X);  ==> Devuelve el cuadrado de X.
     Sqrt (X); ==> Devuelve la raíz cuadrada de X.
     Exp (X); ==> Devuelve el exponencial de X.
     Ln (X);  ==> Devuelve el logaritmo natural de X.
     Sin (X);  ==> Devuelve el seno de X.
     Cos (X);  ==> Devuelve el coseno de X.
     Arctan (X); ==> Devuelve la cotangente de X.