Proceso CLASE_DEL_DÍA_VIERNES
    Definir opc Como Entero
    Escribir "********menú*******"
    Escribir "1)densidad"
    Escribir "2)ecuacion young"
    Escribir "3)vector"
    Escribir "ingrese opcion"
    leer opc
    segun opc hacer
        1:
            //declaracion
            Definir df,di,t,tc,n,inicial,final como real;
            //asignación
            Escribir "densidad inicial";
            leer di;
            Escribir "temperatura critica";
            Leer tc;
            //inicialización
            inicial=8;
            final=28;
            n=0.8;
            t=inicial
            //proceso
            Repetir
                df=di*((1-(t/tc))^2);
                Escribir "densidad final es:",df;
                t=t+2.5;
            Hasta Que t>=final 
        2: 
            Definir pint,ptex,d,radio,inicial,final como real;
            //asignación
            Escribir "presion externa";
            Leer ptex;
            Escribir "densidad";
            leer d;
            //inicialización
            inicial=0.5;
            final= 4;
            radio=inicial;
            //proceso
            Repetir
                pint=ptex+(2*(d/radio));
                Escribir "la presión interna es:",pint;
                radio=radio+0.2;
            Hasta Que radio>=final;
        3:
            //declaración
            definir z,x,c Como Entero;
            definir alpha,x1,x2,x3, inicial,final,rad Como Real;
            //asignación
            Escribir "z";
            Leer z;
            Escribir "x";
            Leer x;
            Escribir "c";
            Leer c;
            //inicialización
            inicial=10;
            final=180;
            alpha<-inicial;
            //proceso
            Repetir
                rad<-(2*pi*alpha)/360;
                x1<-a*(cos(rad));
                x2<-b*(sen(2*rad));
                x3<-c*3*(cos(rad));
                Escribir "A=(",x1,",",x2,",",x3,")",;
                alpha<-alpha+30;
            Hasta Que alpha>=final 
            
    FinSegun
    
    
    
    
FinAlgoritmo