Practica 7

Problema 1.

1.-Inicio

categoria,sac,sau,nau,nac INT

nau=0

nac=0

sigue='s',nombre[30] CHAR

while(sigue=='s'||sigue=='S'){clrscr()

PRINT “Nombre empleado: "   READ nombre

PRINT “Categoria: " READ categoria

PRINT “sueldo: “ READ sac

do{switch(categoria){case 1: sau=sac*1.15+1 break

case 2:sau=sac*1.10 break

case 3: sau=sac*1.08 break

case 4: sau=sac*1.07 break

case 5: sau=sac*1.06 break

default: {PRINT “error de categoría”

 PRINT “Introduzca nuevamente  categoria: " READ  categoria} }}

 while(categoria<1||categoria>5)

nau=nau+sau

nac=nac+sac

clrscr()

PRINT “nomre del empleado: ",nombre

PRINT “Sueldo actual: ",sac

PRINT “Sueldo aumentado: ",sau

PRINT “\ndesea registrar otro empleado?(s/n) : "  READ sigue

}PRINT “Total nomina actual: ",nac

PRINT “total nomina aumentada: ",nau

2.- Fin-                

Problema 2.

1.-Inico

clave=0,minutos,sigue=0 INT
costo REAL
continuar='s' CHAR
while(continuar=='s'||continuar=='S'){
PRINT "Clave   Zona\t\t   Precio\n5 \tAmerica del Norte  2\n7 \tAmerica Central\
    2.5\n18\tAmerica del Sur    4.0\n20\tEuropa\t\t   6.5\n22\tAsia\t\t   7"
PRINT "Introdusca la clave de la zona geografica a la que desea hablar: "
READ clave
PRINT "Introdusca el tiempo que desea hablar: "   READ minutos
do{sigue=0    switch(clave){case 5: costo=minutos*2 break
case 7: costo=minutos*2.5 break  case 18: costo=minutos*4.0 break
case 20: costo=minutos*6.5 break  case 22: costo=minutos*7 break
default:{PRINT "error en escribir la zona geografica, \
escribirla nuevamente: "READ clave    sigue=1}}}
while(sigue!=0)
PRINT "\nEl costo de la llamada sera de: ",costo
PRINT "\nDeasea hacer otra evaluacion? (s/n): " READ continuar}
2.-Fin

Problema 3.

1.-Inicio

int edad=0,enfermedad=0,dias=0;
float costo=0;
char n='s';
while(n=='s'||n=='S'){PRINT "edad del paciente: "  READ edad
PRINT"tipo de enfermedad: "  READ enfermedad
PRINT"dias internado: "  READ dias
if(edad>=14&&edad<=22){switch(enfermedad){
case 1: costo=25*dias*1.1 break
case 2: costo=15*dias*1.1 break
case 3: costo=20*dias*1.1 break
case 4: costo=35*dias*1.1 break
case 5: costo=48*dias*1.1 break
default: {PRINT "error en tipo de enfermedad";}}}
else {switch(enfermedad){
case 1: costo=25*dias break
case 2: costo=15*dias break
case 3: costo=20*dias break
case 4: costo=35*dias break
case 5: costo=48*dias break
default: {PRINT"error en tipo de enfermedad";}}}
PRINT"costo: ",costo
PRINT "\nDesea hacer otro promedio de costo? (s/n): "  READ n
}

2.-Fin

Problema 4.

m,n,l INT
o='s' CHAR
while(o=='s'||o=='S'){m=1  n=0  l=3
PRINT "\ncuantos valores desea: "  READ n
while(m<n){
PRINT l,"+"   l=l+3  m=m+1}
PRINT l   PRINT "Desea hacer otras evaluacion? (s/n): "  READ o}

2.-Fin

Problema 5.

1.-Inicio

c1,c2,c3,c4,m,N INT
n='s',nombre[30] CHAR
p=0,pt=0 REAL
PRINT "Numero de Alumnos: "  READ N
while(m<N){p=0  cin.ignore()
PRINT "nombre del alumno: "  cin.getline(nombre,30,'\n')
m=m+1  PRINT "Calificacion 1: "  READ c1
PRINT "Calificacion 2: "  READ c2
PRINT "Calificacion 3: "  READ c3
PRINT "Calificacion 4: "  READ c4
p=(c1+c2+c3+c4)/4
PRINT nombre," promedio: ",p
pt=pt+p
}PRINT "Promedio general del grupo: ",(pt/N)

2.-Fin