OPERACIONES ARITMÉTICAS

Dos por dos, cuatro

A continuación se explica la forma como funcionan las cuatro operaciones aritméticas básicas, suma, resta, multiplicación, división, partimos de 4 variables de tipo real definidas previamente:

ALMACENA_SUMA,ALMACENA_RESTA, ALMACENA_MULTIPLICACION y ALMACENA_DIVISION.

ALMACENA_SUMA:=7+10;{Aquí se le indica a la computadora que adicione 7 mas 10 y se lo asigne a la variable ALMACENA_SUMA}

ALMACENA_RESTA:=20-3;

ALMACENA_MULTIPLICACION:=3*3;

ALMACENA_DIVISION:=10/3;

 

También podemos realizar combinaciones de operandos como muestro a continuación:

RESPUESTA:=3+(2+6)*4;

 

REGLAS BÁSICAS DE ALMACENAMIENTO

  1. Si vamos a ejecutar una operación de un INTEGER con un REAL, la variable que va a recibir el resultado debe ser declarada de tipo REAL.
  2. Si hacemos la división de 2 INTEGER, la variable que reciba el resultado debe ser de tipo REAL

Para que entiendas mejor las reglas básicas de almacenamiento, ejecuta el programa op_basic.pas

Ver Código Fuente

Ver Ejecutable

FUNCIONES DIV Y MOD

Estos son dos operadores especiales, DIV toma el resultado de la división y MOD el residuo; Ejemplo:

RESULTADO:=12 DIV 7; {RESULTADO toma el valor de 1}

RESIDUO:=12 MOD 7; {RESIDUO toma el valor de 5}

 

Procedimientos INC y DEC

El procedimiento INC incrementa en 1 el contenido de cualquier variable de tipo entero, es lo mismo en un programa teclear:
Variable := Variable + 1; es igual a Inc(Variable);
El procedimiento DEC decrementa en 1 el valor de cualquier variable de tipo entero que se le indique, se usa igual que INC; por ejemplo:
Variable := Variable - 1; es igual a DEC (Variable);

Truncamiento y Redondeo
 
En algunas ocasiones se debe redondear un número de tipo real, par ello Turbo Pascal tiene a la función Round (número), esta redondea un número real al entero más cercano y devuelve el resultado como un número real.
La función Trunc (número) elimina la parte decimal del número real y devuelve el resultado como tipo entero. Ejemplo:

program Uso_de_Trunc_y_Round;

uses crt;

var

numero : real;

numero2: integer;

begin

clrscr;

writeln('Funciones Round y Trunc');

numero:=3.89;

writeln('El valor de numero =',numero:0:2,' redondeado queda ',round(numero));

numero2:=trunc(numero);{Observa como Trunc permite truncar una variable de tipo

REAL y almacenarla en una de tipo INTEGER}

writeln('El valor de numero =',numero:0:2,' truncado queda ',numero2);

readln;

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 real aunque se utilice un número de tipo entero como argumento. Ejemplo:
Program Uso_de_Sqr_y_Sqrt;
Uses crt;
Var
Numero : integer;
Begin
Clrscr;
Numero :=5;
Writeln('Uso de Sqr y sqrt');
Writeln('La raiz cuadrada de ',numero,' es ',sqrt(numero));
Writeln('El cuadrado de ',numero,' es ',sqr(numero));
readln;
end.
 

Las funciones Exp y Ln tratan con logaritmos naturales o neperianos. Exp devuelve la función exponencial ex y Ln devuelve el logaritmo natural de x. El resultado en ambos siempre es del tipo real.

A continuación te muestro una práctica aplicación que permite elevar un número x a una potencia n.

Program Uso_de_Ln_y_Exp;

uses crt;

Var

Base, Exponente : real;

FUNCTION Potencia(x,n:Real):Real;

BEGIN

Potencia := Exp(n *Ln(x))

END;

BEGIN

clrscr;

base:=0;

exponente:=0;

Write('Base : ');

readln(base);

Write('Exponente : ');

readln(exponente);

WriteLn('El resultado de elevar ',base:0:2,' a ',exponente:0:2,' es : ',Potencia(base,exponente):0:5);

readln;

END.

Funciones Aritméticas

Abs

Regresa el valor absoluto de la variable; por ejemplo :

Abs(-10) { Da como resultado 10}

Int

devuelve la parte entera de un valor real, como tipo real.

Frac
Devuelve la parte decimal de un valor real, también como valor real.

Funciones trigonométricas

Las funciones trigonométricas definidas en Turbo Pascal son:

Seno

Para usarla se llama así:

Sin(Valor a Calcular)

Esta es la función Seno

Coseno

Para usarla se llama así:

Cos(Valor a Calcular)

 

Esta es la función Coseno

Arcotangente

Para usarla se llama así:

Arctan(Valor a Calcular)

 

Esta es la función ArcoTangente

 Las demás no las tiene incluidas, pero aquí yo las he definido para que las uses en las diversas aplicaciones que demanden su uso:

Function tangente(x:real):real;

Begin

Tangente:=sin(x)/cos(x);

End;

Function Cotangente(x:real):real;

Begin

Cotangente:=cos(x)/sin(x);

End;

Function secante(x:real):real;

Begin

Secante:=1/cos(x);

End;

Function cosecante(x:real):real;

Begin

Cosecante:=1/sin(x);

End;

Para que entiendas mejor como funcionan estas, he implementado un programa que las gráfica, para ello se debe escoger el tipo de función y de acuerdo a la seleccionada dar el intervalo de graficación.

Ver Código Fuente

 Ver Ejecutable

  Generando números aleatorios

 !!Que caiga el #17 !!

 Un número aleatorio es un número generado al azar, es decir, dentro de un rango determinado de posibilidades no se sabe cual puede ser, por ejemplo : una lotería, tirar una moneda al aire, tirar un par de dados.

Turbo Pascal puede generar números aleatorios con la función RANDOM y el procedimiento RANDOMIZE, el resultado de la función random se asigna a una variable de tipo entero, aunque también se puede desplegar directamente sin ser asignado.

SINTAXIS

RANDOMIZE;

RANDOM(VALOR_MAXIMO);

VALOR_MAXIMO es una variable de tipo entero, la función random genera cualquier número entre 0 y el valor máximo; por ejemplo:

RANDOMIZE;

RANDOM(4);

Producirá un número cualquiera entre 0, 1, 2 o 3

En el siguiente ejemplo, te muestro un programa que mediante el uso de números aleatorios dibuja múltiples círculos de diversos tamaños y rellenos con diferentes colores, el programa se repite hasta que el usuario presiona una tecla.

Ver Código Fuente


Anterior Pulsa aquí para regresar

Siguiente Pulsa aquí para continuar

Indice Presiona aquí para regresar al índice