MiAngelito: Pseudocodigos con Buckles

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

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 = 4047m² 1 hectárea = 10000m²

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

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

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: