1. 1. Calcular el promedio de un alumno en base a sus 5 calificaciones obtenidas en el curso a lo largo del semestre.
Algoritmo Promedio
Var
Entero:S,N,i
Inicio
S<-0
Para i<-1 hasta 5 hacer
Escribir “Ingrese nota”
Leer N
S<-S+N
Fin_para
Escribir “El promedio es:”,S/5
Fin
2. Dado el peso y la longitud de un objeto expresado en libras y pies respectivamente, escriba su peso en Kg y su longitud expresada en metros.
Algoritmo Conversion
Var
Real:Libras,Pies,Kg,Metros
Inicio
Escribir “De un objeto se necesita lo siguiente”
Escribir “Ingresar:”
Escribir “Peso expresado en libras”
Leer Libras
Escribir “Longitud expresado en pies”
Leer Pies
Kg<-Libras/2.2045855379
Metros<-Pies/3.280839895
Escribir “El objeto pesa:”,Kg,”Kilogramos y mide:”,Metros,”metros”
Fin
3. Intercambiar el valor de tres variables de tal manera que sean las variables A, B y C, el valor de B se almacene en A, B obtenga el valor de C y C el valor de A.
Algoritmo Intercambio
Var
Entero:A,B,C
Inicio
Escribir “Ingrese valor para A”
Leer A
Escribir “Ingrese valor para B”
Leer B
Escribir “Ingrese valor para C”
Leer C
Aux<-A
A<-B
B<-C
C<-Aux
Escribir “El valor de A es:”,A
Escribir “El valor de B es:”,B
Escribir “El valor de C es:”,C
Fin
4. Ingresar un número de 3 cifras, se obtenga como resultado el numero ingresado y el inverso del número.
Algoritmo Numero
Var
Entero:N
Inicio
Escribir “Ingrese un numero de tres cifras”
Leer Num
Mientras Num>99 AND Num<1000
Escribir “Ingrese un numero de tres cifras”
Leer Num
D1<-Num Div 100
D2<-Num Mod 100
D3<-D2 Mod 10
D4<-D2 Div 10
NI<-(D2*100)+(D4*10)+D1
FinMientras
Escribir “El numero ingresa es:”,Num,” su inverso es:”,NI
Fin
Dado el radio y la altura de un cilindro. Calcule e imprima el área y volumen.
Algoritmo Cilindro
Const
PI
Var
Real:Radio,Altura,V,A
Inicio
Escribir “Ingrese radio del cilindro”
Leer Radio
Escribir “Ingrese altura del cilindro”
Leer Altura
V<-PI*(Radio^2)*Altura
A<-2*PI*Radio*Altura
Escribir “ El volumen del cilindro es:”,V
Escribir “El area del cilindro es:”,A
Fin
5. Una persona compro una estancia en un país sudamericano. La extensión de la estancia está especificada en acres. Construir un algoritmo, tal que dado como dato la extensión del campo en acres, calcule e imprima la extensión en hectáreas.
1 acre = 4047m2 1 hectárea = 10000m2
Algoritmo Estancia
Var
Real:Acre,Hectarea
Inicio
Escribir “Ingrese extension de la estancia en acres”
Leer Acre
Hectarea<-4047*Acre/10000
Escribir Acre,“acres es igual a ”,Hectarea,” hectareas”
Fin
6. Dado como dato el sueldo de un trabajador, aplíquele un aumento del 17% si su sueldo es inferior a 1000 soles. Imprima en este caso, el nuevo sueldo del trabajador.
Algoritmo Sueldo
Var
Inicio
Escribir “Ingrese sueldo”
Leer Sueldo
Si Sueldo<1000 entonces
Sdo<-0.17*Sueldo+Sueldo
Escribir “Su sueldo inicial era de:”,Sueldo,” soles”
Escribir “Como es menor de 1000 soles =)Mas el aumento del 17% igual a:”,0.17*Sueldo
Escribir “Su sueldo Final sera de :”,Sdo,” soles”
Sino
Escribir “Su sueldo es de :”,Sueldo,” soles”
Finsi
Fin
7. Dado como dato el tiempo de servicio de un trabajador, considere un aumento del 15% si la categoría es A, un 12% si la categoría es B, 10% si la categoría es C y para la categoría D solo se aumentará 50 soles. Imprima el sueldo con el aumento incorporado.
Categoría | Años | Si Aumento |
A | 20 – 30 | 15% |
B | 15 – 20 | 12% |
C | 10 – 15 | 10% |
D | 0 – 10 | 50soles |
Algoritmo Categoria
Var
Entero:Anhos
Real:Sueldo,S
Inicio
Escribir "De cuanto es su sueldo"
Leer Sueldo
Escribir "Ingrese anhos de tener trabajando"
Leer Anhos
Si Anhos>=0 y Anhos<=30 entonces
Si Anhos<=30 y Anhos>=20 entonces
S<-0.15*Sueldo+Sueldo
Escribir Anhos," anhos de trabajo le incluyen en la categoria A"
Escribir "Entonces como su sueldo inicial es de :",Sueldo,"soles"
Escribir "Mas el aumento del 15%, equivalente a:",0.15*Sueldo," soles"
Escribir "Finalmente usted ganara:",S," soles"
Finsi
Si Anhos<20 y Anhos>=15 entonces
S<-0.12*Sueldo+Sueldo
Escribir Anhos," anhos de trabajo le incluyen en la categoria B"
Escribir "Entonces como su sueldo inicial es de :",Sueldo,"soles"
Escribir "Mas el aumento del 12%, equivalente a:",0.12*Sueldo," soles"
Escribir "Finalmente usted ganara:",S," soles"
Finsi
Si Anhos<15 y Anhos>=10 entonces
S<-0.10*Sueldo+Sueldo
Escribir Anhos," anhos de trabajo le incluyen en la categoria C"
Escribir "Entonces como su sueldo inicial es de :",Sueldo,"soles"
Escribir "Mas el aumento del 10%, equivalente a:",0.10*Sueldo," soles"
Escribir "Finalmente usted ganara:",S," soles"
Finsi
Si Sueldo<=0 entonces
Escribir "Datos mal ingresados"
Sino
Si Anhos<10 y Anhos>=0 entonces
S<-50+Sueldo
Escribir Anhos," anhos de trabajo le incluyen en la categoria D"
Escribir "Entonces como su sueldo inicial es de :",Sueldo,"soles"
Escribir "Mas 50 soles"
Escribir "Finalmente usted ganara:",S," soles"
Finsi
Finsi
Sino
Escribir "Solo se clasificaran anhos desde 0 hasta 30"
Finsi
Fin
8. Introducir por teclado 3 letras y responder si existe al menos dos letras iguales.
Algoritmo Letras
Var
Inicio
Escribir "Ingrese primera letra"
Leer L1
Escribir "Ingrese segunda letra"
Leer L2
Escribir "Ingrese tercera letra"
Leer L3
Si L1=L2 y L2=L3 y L1=L3 entonces
Escribir "Las tres letras son iguales"
Sino
Si L1=L2 entonces
Escribir "La primera letra es igual a la segunda letra"
Finsi
Si L2=L3 entonces
Escribir "La segunda letra es igual a la tercera letra"
Finsi
Si L1=L3 entonces
Escribir "La primera letra es igual a la tercera letra"
Finsi
Si L1=L2 y L2=L3 y L1=L3 entonces
Escribir "Las tres letras son iguales"
Finsi
Finsi
Si L1<>L2 y L2<>L3 y L1<>L3 entonces
Escribir "Las tres letras son diferentes"
Finsi
Fin
9. Ingresar una fecha en formato DD/MM/AAAA, reporte la fecha como “Es DD de mes del año AAAA”, suponer que la fecha es válida. (Ejemplo: 12/02/2010 = Es 12 de Febrero del año 2010”
Algoritmo Fecha
Var
Entero:Dia,Mes,Anho
Inicio
Escribir "Porfavor ingrese una fecha"
Escribir "Ingrese el dia(DD)"
Leer Dia
Escribir "Ingrese mes(MM)"
Leer Mes
Escribir "Ingrese anho(AAAA)"
Leer Anho
Si Dia>0 entonces
Segun Mes hacer
caso 1:
Escribir Dia," de Enero del ",Anho
caso 2 :
Escribir Dia," de Enero del ",Anho
caso 3:
Escribir Dia," de Enero del ",Anho
caso 4:
Escribir Dia," de Enero del ",Anho
Caso 5:
Escribir Dia," de Enero del ",Anho
Caso 6:
Escribir Dia," de Enero del ",Anho
Caso 7:
Escribir Dia," de Enero del ",Anho
Caso 8:
Escribir Dia," de Enero del ",Anho
Caso 9:
Escribir Dia," de Enero del ",Anho
Caso 10:
Escribir Dia," de Enero del ",Anho
Caso 11:
Escribir Dia," de Enero del ",Anho
Caso 12:
Escribir Dia," de Enero del ",Anho
De Otro Modo:
Escribir "Los datos fueron mal ingresados"
Sino
Escribir “Error al ingresar datos”
Finsegun
Finsi
Fin
10. Dado como datos A, B y C que representan números enteros diferentes construir un pseudocódigo que muestre estos números en forma descendente.
Algoritmo Ordenar
Var
Entero:N1,N2,N3
Inicio
Escribir “Ingrese un numero”
Leer N1
Escribir “Ingrese un numero”
Leer N2
Escribir “Ingrese un numero”
Leer N3
Si N3<N2 y N2<N1 entonces
Escribir “En forma descendente el orden sera:primero ”,N1,”,después “,N2,” y finalmente ”,N3
Finsi
Si N1<N3 y N3<N2 entonces
Escribir “En forma descendente el orden sera:primero ”,N2,”,después “,N3,” y finalmente ”,N3
Finsi
Si N2<N1 y N1<N3 entonces
Escribir “En forma descendente el orden sera:primero ”,N3,”,después “,N1,” y finalmente ”,N2
Finsi
Si N2<N3 y N3<N1 entonces
Escribir “En forma descendente el orden sera:primero ”,N1,”,después “,N3,” y finalmente ”,N2
Finsi
Si N1<N2 y N2<N3 entonces
Escribir “En forma descendente el orden sera:primero ”,N3,”,después “,N2,” y finalmente ”,N1
Finsi
Si N3<N1 y N1<N2 entonces
Escribir “En forma descendente el orden sera:primero ”,N2,”,después “,N1,” y finalmente ”,N3
Finsi
Fin
