Introducción a la Programación Practica 3
PRODUCTOS DE TIPOS Y SUBPROGRAMAS
Ya dijimos en la teoria que los productos de tipos tenían la palabra reservada "type" bien, esta se pondrá exactamente en el programa igual que cuando queremos declarar variables ponemos "var". Para determinar el interior del producto de tipos se utilizan las palabras "record" y "end;".
type
ejemplotipo = record
punto1:real;
punto2:real;
end;
Asi que en nuestro caso ejemplotipo sería un producto de tipos compuesto por un punto con dos coordenadas (punto1 para el eje x e y para punto2 o cualquier otra cosa que requiera de dos caracteristicas de tipo real).
type
punto = record
abcisa, ordenada: real;
end;
cuadrado = record
p1,p2,p3,p4: punto;
end;
Suponiendo que tenemos la variable "punto1 : punto;" y que de igual modo tenemos un producto de tipos "cuadrado" que utiliza punto1, punto2....
Escribir el valor en la ordenada del punto 1 su propio + 1 -> punto1.ordenada := punto1.ordenada+1;
Añadir al punto3 del cuadrado el valor de la abcisa y la ordenada del punto 2 -> cuadrado.p3 := cuadrado.p2.abcisa + cuadrado.p2.ordenada
ACCIONES Y PARÁMETROS EN PASCAL
Las acciones en pascal se utilizan con la palabra reservada "procedure" estas sirven para escribir un micro-programa que utilizaremos mas adelante en el propio algoritmo central. Como siempre se empieza con "begin" y se termina con "end;". En las acciones SE DEVUELVE UN RESULTADO. Y esa es la importancia maxima en comparacion a las funciones, las acciones no contemplan devolver un resultado desconocido sino que nosotros especificamos cuantos y en que orden.
Si el dato que vamos a usar se pasa tal cual al programa -no se modifica ni tiene que devolverse- se escribe tal cual.
En caso contrario, en el que lo usemos como salida o nos importe que cambio ha hecho, se pone un "var" delante de ellos.
procedure suma(a,b:real; var c:real); //donde c sería la suma resultante que devolvemos.
procedure dibujacuadrado(c: cuadrado); //no devuelve ningun dato pero requiere de un cuadrado.
procedure limpiarpantalla; //no requiere de ningun dato ni devuelve nada en particular.
Ejemplo: Cree las acciones suficiente y necesarias para que haya un cambio binario-decimal de tres numeros cualesquiera (establecido por usted) y otra accion que rote circularmente tres caracteres cualesquiera. Finalmente implementelo en un algoritmo real.
Ejemplo: Dado una cantidad indeterminada de dinero devolver el numero total de billetes de 50, billetes de 10, y los euros sobrantes diseñados enteramente con acciones. Finalmente integrarlo en un algoritmo
Nota: Solo nos interesa una division entera donde nos importa el cociente (numero de billetes máximos de ese valor) y el resto (numero a dividir de nuevo para sacar el cociente y el resto). Donde sabemos que el divisor será dependiente de los billetes que queramos calcular.
FUNCIONES EN PASCAL
Las funciones se parecen a los procedimientos, pero a diferencia de estos, ¡no devuelven un valor de forma física! En el ejemplo anterior ves que hablamos en la funcion de "resto10" y que despues lo usamos libremente. En una funcion lo que importa es el tipod e dato que devuelve y que, lo que pase despues es mas o menos indiferente, por tanto el parentesis no se cierra con punto y coma (pues significa que es un solo argumento) sino que toda la funcion se asigna a un tipo (como si dijeramos que las funciones son variables).
Ejemplo: Escriba una funcion que calcule el maximo de dos numeros e implementelo en un algoritmo final.
