Funciones Predefinidas en Turbo Pascal

8/17/2019 Funciones Predefinidas en Turbo Pascal

1/3

Unidad 7: Funciones Incorporadas en Turbo Pascal

Ing. Nahiby Castillo 1

Unidad 7: Funciones Predefinidas en Turbo Pascal

TRUNCAMIENTO Y REDONDEO

La función Round (número) redondea un número real al entero más cercano y devuelve elresultado como un número real.

La función Trunc (número) elimina la parte decimal del número real y devuelve el resultadocomo tipo entero. Ejemplo:

PROGRAM Redondeo;VAREntero : Integer;ValorReal1, ValorReal2 : Real;

BEGINValorReal1 := 123.435;ValorReal2 := Round(ValorReal1);Entero := Trunc (ValorReal1);WriteLn('El resultado de la función Round sobre el valor');WriteLn(ValorReal1, ' es: ','ValorReal2, ' (Número real)');WriteLn('El resultado de la función Trunc sobre el valor');WriteLn(ValorReal1, ' es: ', Entero, ' (Número entero)');END.

FUNCIONES EXPONENCIALES Y LOGARÍTMICAS

La función Sqr devuelve el cuadrado del valor utilizado como parámetro.Sqrt regresa la raíz cuadrada del valor dado como parámetro, el resultado siempre es realaunque se utilice un número de tipo entero como argumento.Ejemplo:

PROGRAM Exponentes;VARDato, Cuadrado : Integer;Raiz : Real;

BEGINDato := 45;Cuadrado := Sqr(Dato);Raiz := Sqrt(Dato);WriteLn(' El cuadrado de ',Dato, ' es: ',Cuadrado);WriteLn('La raíz cuadrada de ',Dato,' es: ',Raiz);END.

Las funciones Exp y Ln tratan con logaritmos naturales o neperianos. Exp devuelve lafunción exponencial e^x y Ln devuelve el logaritmo natural de x. El resultado en ambossiempre es del tipo real.


2/3



Es posible crear una función con base en estas dos para calcular el resultado de un númerox elevado a una potencia n, la cual nos quedaría así:

FUNCTION Potencia(x,n:Real):Real;BEGINPotencia := Exp(n *Ln(x))END;

El uso de esta función en un programa podría ser:

PROGRAM Potenciacion;FUNCTION Potencia(x, n : Real) : Real;BEGINPotencia := Exp(n * Ln(x))

END;BEGINWriteLn('El resultado de 5 elevado a 3 es: ',Potencia(5,3));END.

FUNCIONES ARITMÉTICAS

Abs regresa el valor absoluto del identificador que se le pase como parámetro. El valor quedevuelve será del mismo tipo que el argumento. Abs(-24) {Regresa el valor 24} La funciónInt devuelve la parte entera de un valor real, como tipo real.

La función Frac regresa la parte decimal de un valor real, también como valor real.

FUNCIONES TRIGONOMÉTRICAS

Las funciones trigonométricas definidas en Turbo Pascal son: Sin(valor), Cos(valor) yArctan(valor), todas las demás pueden definirse desde estas:

Tan(x) Sin(x) / Cos(x)

Cot(x) Cos(x) / Sin(x)

Sec(x) 1 / Cos(x)

Csc(x) 1 / Sin(x)

Las funciones para utilizarlas son:

FUNCTION Tan(x : Real) : Real;BEGINTan := Sin(x) / Cos(x)END;


3/3



FUNCTION Cot(x : Real) : Real;BEGINCot := Cos(x) / Sin(x)END;

FUNCTION Sec(x : Real) : Real;BEGINSec := 1 / Cos(x)END;

FUNCTION Csc(x : Real) : Real;BEGINCsc := 1 / Sin(x)END;

GENERACIÓN DE NÚMEROS ALEATORIOS

Para generar números aleatorios Turbo Pascal cuenta con la función Random y elprocedimiento Randomize.

La función Random genera un número aleatorio de tipo real comprendido entre 0 y 1, encambio la función Random (x) genera un entero aleatorio entre 0 y x.

Sin embargo el uso de la función Random es en ocasiones insuficiente por si sola para lageneración de valores aleatorios ya que los números son realmente pseudoaleatorios, y cadavez que se ejecute el programa se obtendrían los mismos valores. Para evitar esto debemosutilizar en todo programa que utilice valores aleatorios el procedimiento Randomize, queinicializa el generador de números aleatorios, en otras palabras, asegura que los númerosque obtendrá serán diferentes cada vez que se ejecute el programa.

Es recomendable usar este procedimiento antes de cada función random del programa.

Ejemplo de un programa generador de números aleatorios:

PROGRAM Nums_Aleatorios;VARx : Integer;

BEGINRandomizeWriteLn('Lista de números aleatorios');For x := 1 to 20 doWriteLn(Random);END.

Funciones Predefinidas en Turbo Pascal

Documents

Transcript of Funciones Predefinidas en Turbo Pascal