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

Practica 6

Problema 1.

1.- Inicio.
n,m INT
while(m!=0){
clrscr()
PRINT " introduce el valor entero =   "
READ n
if(n%2==0)
{PRINT " es un numero par "}
 else
 {PRINT " es un numero impar"}
PRINT "\nDesea hacer otra evaluacion? (1)si (0)no: "
READ m}
2.- Fin

Problema 2.

n1,n2,m INT
while(m!=0){clrscr()
PRINT " introduce el valor entero =   "
READ n1
PRINT " introduce el valor entero =   "
READ n2
if(n1>n2)
{ PRINT  "el primer valor es mayor   "}
else
{if(n1==n2)
{ PRINT  " los dos valores son iguales  "}
else
{ PRINT  " el primer valor es menor   "}}
2.- Fin

Problema 3.

1.- Inicio
n1,n2,n3,n4,x REAL
nombre[15] CHAR
while(m!=0){clrscr()
PRINT " introducir nombre del alumno "
cin.getline(nombre,15,'\n')
PRINT " introducir calificacion 1  "
READ n1
PRINT "introducir calificacion 2   "
READ n2
PRINT "introducir calificacion 3   "
READ n3
PRINT "introducir calificacion 4   "
READ n4
    x=(n1+n2+n3+n4)/4
    if( x<70)
    {
     PRINT  nombre<<" ",x," reprobado   "}
    else
    {PRINT nombre<<" ",x," aprobado    "}
PRINT "\nDesea hacer otra evaluacion? si(1) no(0) " READ m}
2.-Fin

Problema 4.

1.- Inicio
n1=600,n2,m INT
while(m!=0){clrscr()
PRINT " voltaje minimo que requiere el cable " READ n1
PRINT " Introducir el voltaje de prueba " READ n2
if(n1>n2){PRINT "  voltaje no aprobado "}
{if(n1<n2){PRINT " Voltaje aprobado "}}
PRINT "Desea hacer otra prueba? (1)si (0)no: " READ m}
2.- Fin

Problema 5.

1.- Inicio
C,R1,R2,p1,p2,barato,m2=0,m INT
while(m!=0){clrscr()
PRINT "Introducir datos del terreno cuadrado\nLado: "  READ  C
PRINT "Precio por metrocuadrado= " READ m2
p1=C*C*m2
PRINT "\nIntroducir datos del terreno rectangular\nBase: "  READ  R1
PRINT "Altura: "  READ  R2, PRINT "Precio por metrocuadrado= "  READ  m2
p2=R1*R2*m2
if(p1==p2)
{PRINT "\El terreno cuadrado y el rectangular tienen el mismo precio"}
else{
if(p1<p2){ PRINT  "\nPrecio del terreno cuadrado es " p1
   PRINT  "\nPrecio del terreno rectangular es " p2
    PRINT  "\nEl terreno cuadrado es mas barato que\
 el rectangular"}
  else{ PRINT  "\nPrecio del terreno cuadrado es " p1
   PRINT  "\nPrecio del terreno rectangular es " p2
    PRINT  "\nEl terreno rectangular es mas barato que el cuadrado"}}
 "\n desea hacer otro calculo? si(1) no(0) " RAD m }
2.- Fin

Problema 6.

1.- Inicio
a,b,c,m INT
while(m!=0){clrscr()
PRINT "introducir primer numero: ";cin>>a
PRINT "introducir segundo numero: ";cin>>b
PRINT "introducir tercer numero: ";cin>>c
if(a<b&&b<c)
{ PRINT  "los numeros estan en forma ascendente"}
else{
if(c<b&&b<a){ PRINT  "los numeros estan en forma descentende"}
   else{ PRINT  "los numeros no estan en ningun orden"}}
PRINT "desea hacer otro calculo? (1)si (0)no: "
READ m}
2.- Fin

Problema 7.

Problema 7

1.- Inicio

a,b,m INT

while(m!=0){clrscr()

PRINT "Introducir hora en notacion de 24 horas: " READ a

 gotoxy(44,1) PRINT ":"  READ b

 if(a==24){a=a-12, PRINT "la hora en notacion de 12 horas es: ",a,":",b," am"}

 else{if(a==12){ PRINT  "la hora en notacion de 12 horas es: ",a,":",b," pm"}

  else{if(a>=13){a=a-12, PRINT "la hora en notacion de 12 horas es: ",a,":",b," pm"}

else{ PRINT  "la hora en notacion de 12 horas es: ",a,":",b," am"}}}

PRINT "\nDesea hacer otra convercion? (1)si (0)no: " READ m}

2.- Fin

Problema 8.

1.- Inicio

int a,b

char mes[10]

while(m!=0){clrscr()

PRINT "Introducir fecha: " READ a  gotoxy(22,1) READ mes gotoxy(33,1) READ b

if(strcmp(mes,"enero")==0){ PRINT  "fecha: ",a,"/1/",b}

else{if(strcmp(mes,"febrerp")==0){ PRINT  "fecha: ",a,"/2/"<<b}

else{if(strcmp(mes,"marzo")==0){ PRINT  "fecha: ",a,"/3/"<<b}

else{if(strcmp(mes,"abril")==0){ PRINT  "fecha: ",a,"/4/"<<b}

else{if(strcmp(mes,"mayo")==0){ PRINT  "fecha: ",a,"/5/"<<b}

else{if(strcmp(mes,"junio")==0){ PRINT  "fecha: ",a,"/6/"<<b}

else{if(strcmp(mes,"julio")==0){ PRINT  "fecha: ",a,"/7/"<<b}

else{if(strcmp(mes,"agosto")==0){ PRINT  "fecha: ",a,"/8/"<<b}

else{if(strcmp(mes,"septiembre")==0){ PRINT  "fecha: ",a,"/9/"<<b}

else{if(strcmp(mes,"octubre")==0){ PRINT  "fecha: ",a,"/10/"<<b}

else{if(strcmp(mes,"noviembre")==0){ PRINT  "fecha: ",a,"/11/"<<b}

else{if(strcmp(mes,"diciembre")==0){PRINT "fecha: ",a,"/12/",b}}}}}}}}}}}}

2.- Fin

Problema 9.

1.-Inicio
gasto,gastototal=0,c=0,m INT
PRINT "Introdusca todos los gastos del ultimo viaje"
while(m!=0){c=c+1   PRINT "Gasto",c,": " READ gasto
gastototal=gastototal+gasto
PRINT "\ndesea introducir otro gasto? si(1) no(0) :" READ m}
PRINT "Gasto total: "gastototal
2.-Fin

Problema 10.

1.- Inicio

N=1,M,X,suma1=0,suma2=0 INT
PRINT "Cantidad de numeros: " READ X
while(N<=X){N=N+1
PRINT "introducir numero entero: " READ M
if(M<0){suma1=suma1+M}
else{suma2=suma2+M}}
PRINT "la suma de los numeros positivos es: ",suma2
PRINT "la suma de los numeros negativos es: ",suma1
2.-FIN

Problema 11.

1.-Inicio

N=1,X,suma1=0,suma2=0,a=0,b=0,proa,prob,M INT

PRINT "Cantidad de numeros: " READ X

while(N<=X){N=N+1

PRINT "introducir numero entero: " READ M

if(M<0){a=a+1  suma1=suma1+M}

else{b=b+1  suma2=suma2+M}}

prob=suma1/a

proa=suma2/b

PRINT "el promedio de los numeros positivos es: ",proa

PRINT "el promedio de los numeros negativos es: ",prob

2.-Fin

\

Problema 12.

1.-Inicio

n,x=1,y,mayor=0,menor=9999 INT

PRINT "Introdusca el cantidad de numeros: " READ n

while(x<=n){x=x+1

PRINT "Introducir numero entero: " READ y

if(y>mayor){mayor=y}else{if(y<menor){menor=y}}}

PRINT "el numero mayor es: ",mayor

PRINT "el numero menor es: ",menor

2.-Fin

Problema 13.

1.-Inicio

x,n,m=1,a=0,b=0,c=0 INT
PRINT "Cuantas ventas se ha hecho: "  READ n
while(m<=n){PRINT "venta numero ",m,": "   READ x  m=m+1
if(x<=200){a=a+1}
else{if(x<400){b=b+1}else{if(x>=400){c=c+1}}}}
PRINT "Las ventas menores o iguales a 200 son: ",a
PRINT "Las ventas menores a 400 pero mayores a 200 son: ",b
PRINT "Las ventas mayors o iguales a 400 son: ",c

2.-Fin

Problema 14.

1.-Inicio

x  INT
m='s'  CHAR
while(m=='s'||m=='S'){
PRINT "Introdusca un numero entero positivo: "  READ x
while(x!=1){if(x%2==0){x=x/2  PRINT ",",x}
else{x=(x*3)+1  PRINT ",",x}}
PRINT "\ndesea hacer otra conjetura ULAM? (s/n): "  READ m}

2.-Fin

Practica 5

Problema 1.

1.- Inicio

n INT
PRINT " introduce el valor entero =   "
READ n
if(n%2==0)
{PRINT " es un numero par "}
 else
 {PRINT " es un numero impar"}
2.- Fin

Problema 2.

1.- Inicio

n1,n2 INT
PRINT " introduce el valor entero =   "
READ n1
PRINT " introduce el valor entero =   "
READ n2
if(n1>n2)
{ PRINT  "el primer valor es mayor   "}
else
{if(n1==n2)
{ PRINT  " los dos valores son iguales  "}
else
{ PRINT  " el primer valor es menor   "}}
2.- Fin

Problema 3.

1.- Inicio

n1,n2,n3,n4,x REAL
nombre[15] CHAR
PRINT " introducir nombre del alumno "
cin.getline(nombre,15,'\n')
PRINT " introducir calificacion 1  "
READ n1
PRINT "introducir calificacion 2   "
READ n2
PRINT "introducir calificacion 3   "
READ n3
PRINT "introducir calificacion 4   "
READ n4
    x=(n1+n2+n3+n4)/4
    if( x<70)
    {
     PRINT  nombre<<" ",x," reprobado   "
    }
    else
    {
    PRINT nombre<<" ",x," aprobado    "
    }

2.-Fin

Problema 4

1.- Inicio

n1=600,n2 INT
PRINT " voltaje minimo que requiere el cable " READ n1
PRINT " Introducir el voltaje de prueba " READ n2
if(n1>n2){PRINT "  voltaje no aprobado "}
{if(n1<n2){PRINT " Voltaje aprobado "}}
2.- Fin

Problema 5

1.- Inicio

C,R1,R2,p1,p2,barato,m2=0 INT
PRINT "Introducir datos del terreno cuadrado\nLado: "  READ  C
PRINT "Precio por metrocuadrado= " READ m2
p1=C*C*m2
PRINT "\nIntroducir datos del terreno rectangular\nBase: "  READ  R1
PRINT "Altura: "  READ  R2, PRINT "Precio por metrocuadrado= "  READ  m2
p2=R1*R2*m2
if(p1==p2)
{PRINT "\El terreno cuadrado y el rectangular tienen el mismo precio"}
else{
if(p1<p2){ PRINT  "\nPrecio del terreno cuadrado es " p1
   PRINT  "\nPrecio del terreno rectangular es " p2
    PRINT  "\nEl terreno cuadrado es mas barato que\
 el rectangular"}
  else{ PRINT  "\nPrecio del terreno cuadrado es " p1
   PRINT  "\nPrecio del terreno rectangular es " p2
    PRINT  "\nEl terreno rectangular es mas barato que el cuadrado"}}

2.- Fin

Problema 6

1.- Inicio
a,b,c INT

PRINT "introducir primer numero: ";cin>>a
PRINT "introducir segundo numero: ";cin>>b
PRINT "introducir tercer numero: ";cin>>c
if(a<b&&b<c)
{ PRINT  "los numeros estan en forma ascendente"}
else{
if(c<b&&b<a){ PRINT  "los numeros estan en forma descentende"}
   else{ PRINT  "los numeros no estan en ningun orden"}}

2.- Fin

Problema 7 

1.- Inicio

int a,b;

char mes[10];

PRINT "Introducir fecha: " READ a  gotoxy(22,1) READ mes gotoxy(33,1) READ b

if(strcmp(mes,"enero")==0){ PRINT  "fecha: ",a,"/1/",b}

else{if(strcmp(mes,"febrerp")==0){ PRINT  "fecha: ",a,"/2/"<<b}

else{if(strcmp(mes,"marzo")==0){ PRINT  "fecha: ",a,"/3/"<<b}

else{if(strcmp(mes,"abril")==0){ PRINT  "fecha: ",a,"/4/"<<b}

else{if(strcmp(mes,"mayo")==0){ PRINT  "fecha: ",a,"/5/"<<b}

else{if(strcmp(mes,"junio")==0){ PRINT  "fecha: ",a,"/6/"<<b}

else{if(strcmp(mes,"julio")==0){ PRINT  "fecha: ",a,"/7/"<<b}

else{if(strcmp(mes,"agosto")==0){ PRINT  "fecha: ",a,"/8/"<<b}

else{if(strcmp(mes,"septiembre")==0){ PRINT  "fecha: ",a,"/9/"<<b}

else{if(strcmp(mes,"octubre")==0){ PRINT  "fecha: ",a,"/10/"<<b}

else{if(strcmp(mes,"noviembre")==0){ PRINT  "fecha: ",a,"/11/"<<b}

else{if(strcmp(mes,"diciembre")==0){PRINT "fecha: ",a,"/12/",b}}}}}}}}}}}}

2.- Fin