Programa para salarios
Enviado por Alexander94 • 15 de Agosto de 2015 • Tarea • 4.906 Palabras (20 Páginas) • 117 Visitas
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
...