MiAngelito: Pseudocodigos con Buckles

Ejercicios en Pseint

MiAngelito: Pseudocodigos con Buckles

Ejercicios de Pseudocodigos

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

               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 = 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

                               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

EJERCICIOS BASICOS de Pseint

1. Calcule y escriba el cuadrado de un número

Algoritmo CuadradoDeunNumero

Var

                Entero:Num,C

Inicio

                Escribir”ingrese un  numero”

                Leer  Num

                C<-Num^2

                Escribir”El cuadrado del numero es:”, C

Fin

2. Convertir una temperatura dada en grados Celsius a grados Farenheit (F=(9/5)C+32)

Algoritmo  ConvertirdeCelsiusaFarnheit

Var

                Entero: C, F

Inicio

                Escribir “Ingrese valor en  grado Celsius”

                Leer  C

                F<-(9.0/5.0)*C+32   

Escribir  C,“En grado Farenheit es:”, F

Fin

3. Determinar la hipotenusa de un triángulo rectángulo conocidas las longitudes de los catetos.

Algoritmo LaHipotenusadelTriangulo

Var

                Entero: a, b,

                Real: h

Inicio

                Escribir “ingrese los valores de lo catetos”

                Leer   a,b

                h<-Raiz2(a^2+b^2)

                Escribir “la hipotenusa del triangulo es:”, h

Fin

4. Calcular el área de un triángulo en función de las longitudes de sus lados. Area=raizcuadrada(p(p-a)(p-b)(p-c)), donde p = (a+b+c)/2 semiperímetro

Algoritmo AreaTriangiularsegunLados

Var

                Entero:a,b,c,

Real:p,A

Inicio

                Escribir “ingresar la longitud de sus lados”

                Leer a,b,c

                p<-(a+b+c)/2

                A<- Raiz2 (P*(p-a)*(p-b)*(p-c))

                Escribir “El area del triangulo es:”, A

Fin

5. Calcular el área de un triángulo en función de la base y la altura.

Algoritmo AreaTriangular

Var

                Entero:b,h,A

Inicio

                Escribir “Ingresar  los valores de la base y altura del triangulo”

Leer  b, h

A <-(b*h)/2

Escribir “El área del triangulo es:”, A

Fin

6. Calcular el salario de un trabajador conociendo la cantidad de días trabajados y el monto por día.

Algoritmo Salario

Var

                Real:CdT, Md, S

Inicio

                Escribir “ingresar los días trabajados y el monto por día”

                Leer  CdT, Md

                S<-CdT*Md

                Escribir “El salario del empleado es:”, S

Fin

1.       Escribe un pseudocódigo que permita calcular el dia siguiente a una fecha ingresada.

Algoritmo DiaNext

Var

               Entero:Dia,Mes,Anho

Inicio

               Escribir "Ingrese Fecha en el formato DD/MM/AAAA"

               Escribir "Ingrese Dia"

               Leer Dia

Escribir "Ingrese Mes"

Leer Mes

Escribir "Ingrese Anho"

Leer Anho

Segun Mes Hacer

                               Caso 1,3,5,7,8,10:

                                               Si Dia=31 Entonces

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:1/",Mes+1,"/",Anho

                                              Sino

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:" ,Dia+1,"/",Mes,"/",Anho

                                               FinSi

Caso 4,6,9,11:

                                               Si Dia=30 Entonces

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:1/",Mes+1,"/",Anho

                                               Sino

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:" ,Dia+1,"/",Mes,"/",Anho

                                               Finsi

Caso 2:

                                               Si Anho/4=0 Entonces

                                                              Si Dia=28 Entonces

Escribir "Si la Fecha ingresada es: ",Dia, "/", Mes ,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:1/",Mes+1,"/",Anho

                                                              Sino

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:" ,Dia+1,"/",Mes,"/",Anho

                                                              Finsi

                                               Sino

                                                               Si Dia=29 Entonces

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:1/",Mes+1,"/",Anho

                                                               Sino

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:" ,Dia+1,"/",Mes,"/",Anho

                                                               FinSi

                                               FinSi

Caso 12:

                                               Si Dia=31 Entonces

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:1/",1,"/",Anho+1

                                               Sino

Escribir "Si la Fecha ingresada es:",Dia,"/",Mes,"/",Anho

Escribir "El dia siguiente a la fecha ingresada sera:" ,Dia+1,"/",Mes,"/",Anho

                                               FinSi

FinSegun

Fin

2.       Elabore el pseudocódigo que dado como datos 2 variables de tipo entero (NUM,V) obtenga el resultado de la siguiente función:

NUM=1à100V

NUM=2à100^V

NUM=3à100/V

Para cualquier otro valor de NUMà0

Algoritmo

Var

               Entero:NUM,V

               Real:Rpta

Inicio

Escribir “Ingrese valor para V”

Leer V

Escribir “Opciones para elegir”

Escribir “(1) para efectuar 100 por V”

Escribir “(2) para efectuar 100 elevado a la V”

Escribir “(3) para efectuar 100 entre V”

Leer  NUM

Segunsea NUM hacer

Caso 1:

                Rptaß100*V

                Escribir “El resultado es:”,Rpta

Caso 2:

                Rptaß100^V

                Escribir “El resultado es:”,Rpta

Caso 3:

                Si V<>0 entonces

                Rptaß100/V

                Escribir “El resultado es:”,Rpta

                Sino

                               Escribir “Division entre Cero (No Valida)”

                Finsi

De_Otro_Modo:

                Escribir “0”

Fin_Segun

                Fin

3.       Crear un pseudocódigo que permite calcular y practicas calificadas y mostrar el promedio de un alumno en base a sus 4 practica calofocadas y 3 examenes parciales obtenidas en el curso a lo largo del semestre. Asumiendo que el promedio de practicas calificadas equivale al 40% del promedio final y el promedio de exámenes parciales equivale al 60% del promedio final.Ademas mostrar si aprobó o no el curso.

Algoritmo

Var

Inicio

               Acum1<-0

               Escribir “Ingrese Notas de las practicas calificadas”

               Para iß1 hasta 4 hacer

               Escribir “Ingrese ”,i,” Nota”

               Leer NotaP

               Acum1ßAcum1+NotaP

               FinPara

               Acum2ß0

               Escribir “Ingrese Notas de los Examenes Parciales”

               Para iß1 hasta 3 hacer

               Escribir “Ingrese ”,i,” Nota”

               Leer NotaE

               Acum2ß Acum2+ NotaE

               FinPara

               Escribir “Promedio de las Practica Calificadas =”,Acum1/4

               Escribir “Promedio de las Examenes Parciales =”,Acum2/3

               PromF<-0.6* Acum2/3+0.4* Acum1/4

                               Si PromF>=10.5 entonces

                                               Escribir “Su Promedio Final es:”,PromF

                                               Escribir “Por lo tanto usted esta Aprobado”

                               Sino

                                               Escribir “Su Promedio Final es:”,PromF

                                               Escribir “Por lo tanto usted esta Desaprobado”

                               Finsi

Fin

4.       Escribir un pseudocódigo que permita dado como dato el sueldo de un trabajador, aplicarle un aumento del 17% si su sueldo es inferior a 1000 soles, y si no solo aplicarle el 5%, además dependiendo de su estado civil si es soltero o viudo se aplica el descuento del 5% y si es casado o  divorciado se aplica un descuento de 2%. Mostrar el sueldo, el aumento, el descuento y su saldo final.

Algoritmo

Var

               Entero:EC

               Real:Sueldo,SaldoF

Inicio

               Escribir “Cuanto Gana UD”

               Leer Sueldo

               Escribir “Opciones de Estado Civil”

               Escribir “(1) para Soltero o Viudo”

               Escribir “(2)  para Casado o Divorciado”

               Leer EC

               Segun_sea EC hacer

               Caso 1:

                               Si Sueldo <1000 entonces

                                               SaldoFßSueldo+0.17*Sueldo-0.05*Sueldo

                                               Escribir “Su sueldo Inicial es:”,Sueldo

                                               Escribir “Aumento del 17% =”,0.17*Sueldo

                                               Escribir “Descuento del 5% =”,0.05*Sueldo

                                               Escribir “Su sueldo Final sera:”,SaldoF

                               Sino

                                               SaldoFßSueldo+0.05*Sueldo-0.05*Sueldo

                                               Escribir “Su sueldo Inicial es:”,Sueldo

                                               Escribir “Aumento del 5% =”,0.05*Sueldo

                                               Escribir “Descuento del 5% =”,0.05*Sueldo

                                               Escribir “Su sueldo Final sera:”,SaldoF

                               Finsi

               Caso 2:

                               Si Sueldo <1000 entonces

                                               SaldoFßSueldo+0.17*Sueldo-0.02*Sueldo

                                               Escribir “Su sueldo Inicial es:”,Sueldo

                                               Escribir “Aumento del 17% =”,0.17*Sueldo

                                               Escribir “Descuento del 2% =”,0.02*Sueldo

                                               Escribir “Su sueldo Final sera:”,SaldoF

                               Sino

                                               SaldoFßSueldo+0.05*Sueldo-0.05*Sueldo

                                               Escribir “Su sueldo Inicial es:”,Sueldo

                                               Escribir “Aumento del 5% =”,0.05*Sueldo

                                               Escribir “Descuento del 2% =”,0.02*Sueldo

                                               Escribir “Su sueldo Final sera:”,SaldoF

                               Fin_si

               Fin_Segun

Fin