Programa para salarios

Algoritmos

Programa 9

{programa que calcula el salario de de un trabajador}

{cadena: mat[8],c[8], alumno[50],b[50], a, valida enteros: i, prom, opc, error, aprovado=0, dic=0, mar=0, may=0}

Repetir mientras opc==1  

         repetir mientras valida==0

             hacer valida=1

              escribir “ingrese la matricula del alumno:”

              leer mat

              hacer a= mat

                  repetir desde i=0 hasta a

                  {

                   Si mat[i]<'0'

                           hacer valida=0

                           si mat[i]>'9'

                                 hacer  valida=0

                {fin condicional}

        {fin condicional}

         hacer i=i+1

           {fin del ciclo}

    Repetir  mientras valida==1

         hacer  valida=1;

          imprimir “ingrese el nombre del alumno: "

          leer alumno

           hacer a=alumno

                  repetir desde i=0 hasta a

                           si alumno[i]<'0'

                                  hacer  valida=0

                                   si alumno[i]>'9'

                                           hacer valida=0

                        {fin condicional}

                {fin condicional}

          hacer i=i+1

       {fin del ciclo}                  

   Repetir mientras prom>10

           Repetir mientras prom<0

mientras error==0

                                Hacer error=0

                        Imprimir "ingrese el promedio del alumno en una escala de 0 a 10”

                Leer prom

                Error =prom

                       Si error==0

                               Imprimir " ingrese valor numerico entero”

{fin del ciclo}

        {fin del ciclo}

{fin del ciclo}

    Si may

                           Hacer may=prom

                            Hacer b=alumno

                            Hacer c= mat

   {fin del ciclo}

     Si prom>=7

                  Hacer aprovado= aprovado+1

      sino

                          si prom>=4 && prom<7

                                  hacer dic=dic+1

                          sino

                                  si prom<4

                                          hacer mar=mar+1;

                        {fin condicional}

                {fin condicional}

       {fin condicional}

       Imprimir "teclee 1 si desea ingresar otro alumno"

       Leer opc

{fin del ciclo}

Imprimir "el numero de alumnos aprovados es de: "

imprimir “el numero de alumnos que rinden en diciembre son:"

imprimir "el numero de alumnos que rinden en marzo son:"

imprimir "el alumno con mejor promedio es: "

imprimir "la matricula del almuno es: "

programa 10

{programa que calcula los socios de un club}

{cadena: soc[' '],nombre[' '], a,valida; Enteros: i, edad, error, opc, c1=0, c2=0,c3=0, c4=0, c5=0, te=0, ru=0, vo=0, hoc=0, fut=0}

Repetir mientras opc!=1

          Repetir mientras valida==0

                    Hacer valida=1

                    Imprimir "introdusca el numero del socio: "

                    Leer soc

                    Hacer a= soc

                    Repetir desde i=0 hasta a

                                    Si soc[i]<'0'

                                            Hacer valida=0

                      {fin condicional}

                                    Si soc[i]>'9'

                                            Hacer valida=0

                                   {fin  condicional

        I=i+1

        {fin del ciclo}

          Repetir mientras valida==1

                  Hacer valida=1

                  Imprimir "introdusca el apellido y el nombre del socio: "

                  Leer "nombre

                  Hacer a=nombre

                  Repetir desde i=0 hasta a

                           Si nombre[i]<'0'

                                   Hacer valida=0

                {fin condicional}

                           Si nombre[i]>'9'

                                   Hacer valida=0

                {fin condicional}

          Hacer i=i+1

  {fin del ciclo}

          Repetir mientras edad<=0

                   Hacer error=0;

                          Mientras error==0

                                       Imprimir "ingrese la edad del socio"

                                       Leer edad

                        Hace error = edad

...