TAD CUADARADO

Les dejo algunas ideas para que generen el Type para el TAD CUADRADO

cua1Opción 1.
Con la posición de los cuatro vértices en las coordenadas de un plano.
Type
 punto = record
x: real;
y: real;
 end;

 

 

{Definen luego dos puntos, el inferior y el superior}
cuadrado = record
infIzq, infDer, supIzq, supDer: punto
end;

 

cua2Opción 2
Con la posición de un punto y el tamaño del lado.

Type

punto = record
x: real;
y: real;
end;

 

cuadrado = record
origen: punto
lado: real;
end;


Ejemplo hacer una función que calcule el área del cuadrado:
Utilizando la opción 2 podría resolverse:

Function Area(c: cuadrado): real;
Area := c.lado * c.lado
End;

Usando la Opción 1:
Function Area(c: cuadrado): real;
Var
lado: real;
begin
{lado es la distancia entre dos puntos}
lado := (c.infIzq.x – infDer.x);
Area: = (lado*lado);
End;

Apunte recursión

Hola  les dejamos un apunte de Recursión on line como material de estudio para la teoría y la práctica. En el mismo podrán revisar ejemplos de los diferentes tipos de recursión vistos en la teoría.

Observen como se relaciona el principio de “inducción matemática” con la recursión.

Descargar Apunte