Wwwww

TAD GEOMETRICOS
(Cuadrado, Triangulo)

ACI 600 Alg. Estructura de Datos
Profesor: Jorge del Campo
Sección: 10346
Universidad de las Américas

TAD CUADRADO C1
{
Enterolado;
Entero Perimetro {TAD cuadrado C1}
{
Entero Perimetro ;TAD cuadrado C2;
Perimetro= 0;
Perimetro = C1.lado * 4;
C2.lado= Perimetro;
Retorno C2;
}
Entero Superficie (TADCuadradrado C1)
{
Entero Superficie ; TAD Cuadrado C2;
Superficie =0;
Superficie = C1.lado *C1.lado;
C2.lado= Superficie;
Retorno C2 ;
}
Entero Volumen (TAD Cuadradrado C1)
{Entero Volumen ; TAD Cuadrado C2;
Volumen =0;
Volumen = C1.lado *C1.lado*C1.lado;
C2.lado=Volumen;
Retorno C2 ;
}
Entero tamaño (TAD Cuadradrado C1)
{
Entero Tamaño; TADCuadrado C2;
Tamaño = C1.lado ;
C2.lado= Tamaño;
Retorno C2 ;
}

Texto lee (TAD CUADRADO C1)
{
Entero lado; TAD CUADRADO C2;
Imprime (“Ingrese lado :”);
C1.lado.read ();C2.lado=c1.lado;
Retorno C2;
}

Main()
{
TAD Cuadrado C3;
C3.lado=C3.lee();
C3.Perimetro(C3);
C3.superficie(C3.);
C3.volumen(C3);
C3.tamaño(C3);
}
}
TAD TRIANGULO T1
{
Enterolado1;
Entero lado2;
Entero lado3;

Entero Equilatero {TAD cuadrado T1}
{
Si (T1.lado1= T1.lado2) y (T1.lado1= T1.lado3)
Retorno 1;
}
Entero LadoMayor {TAD Triangulo T1}
{
Si(T1.lado1 > T1.lado2) y (T1.lado1 > T1.lado3)
Retorno 1;
}

Entero tamaño (TAD Triangulo T1)
{
TAD Triangulo T2;
T2.lado1= T1.lado1 ;
T2.lado2= T1.lado2;
T2.lado3=T1.lado3;
Retorno T2 ;
}

Texto lee (TAD TRIANGULO T2)
{
Entero lado; TAD TRIANGULO T2;
Imprime (“Ingrese lado1 :”);
T2.lado1.read ();
Imprime (“Ingrese lado2 :”);
T2.lado2.read();
Imprime (“Ingrese lado3 :”);
T2.lado3.read ();

Retorno T2 ;
}

Main()
{
TAD TRIANGULO T3;
T3=T3.lee();
C3.Equilatero(C3);
C3.LadoMayor(C3);
C3.tamaño(C3);
}
}