Ejercicios de PSEINT

Algoritmos.psc

EJERCICIO 1
// algoritmo que me permite cambiar una hora dada en formato
// de 24 a 12
// Luis Cobian 
// 5 de Octubre 
Algoritmo NumeroFormato24 
	
	Escribir "Dame una hora:"
	leer h
	
	si h = 0 Entonces
		Escribir "12 AM"
	FinSi
	
	si h > 0 Y h < 12 Entonces
		Escribir h," AM"
	FinSi
	
	si h = 12 Entonces
		Escribir "12 PM"
	FinSi
	
	si h > 12 Y h <= 23 Entonces
		h = h-12 
		Escribir h, " PM"
	FinSi
	
	si h<0 Y h>24 Entonces 
		Escribir "Invalido"
	FinSi
	
FinAlgoritmo
EJERCICIO 2
// numeros pares de 0 a 500 
// Luis Cobian 
// 5 de Octubre 
Algoritmo EjemploPara 	
	var1 = 0
	Mientras var1<=20 
		Escribir "Valor es ", var1 
		var1 = var1 + 3 
	FinMientras
FinAlgoritmo

EJERCICIO 3
// Hacer un algortimo que pida un numero
// y muestre un menu ( 1) Edad  2) Paridad 3) Salir 
//  Cuando se de él 1, validara que arriba de 
//16 mayor edad(Adulto) y edad menor (niño) 
// La opcion 2 es dependiendo el numero dira 
// si es par o no 
// Luis Cobian
// 5 Octubre 
Algoritmo MenuParYEdad 
	opc = 0 
	Mientras opc<>3
		Escribir "1) Edad 2) Paridad 3)Salir "
		Leer opc 
		Segun opc hacer
			1:
				Escribir "Dame un edad:"
				Leer edad 
				Si edad>=0 Y edad<16 Entonces
					Escribir "Niño"
				SiNo
					Si edad >= 16 Y edad<=120 Entonces
						Escribir "Adulto"
					SiNo
						Escribir "Invalido"
					FinSi
				FinSi
			2:
				Escribir "Dame un numero:"
				Leer num 
				si num mod 2 = 0 Entonces
					Escribir "Numero par"
				SiNo
					Escribir "Numero impar"
				FinSi
			3:
				Escribir "Salir"
			De Otro Modo:
				Escribir "Incorrecto"
		FinSegun
	FinMientras
	
FinAlgoritmo