Ejercicios de algoritmos para PSeint

Recuerden la tarea para el martes 16 de abril.

Elaborar en hojas blancas y con lapicero de color azul o negro los diagramas  de los siguientes 12 ejercicios trabajados en clases.

1) Escribir en PSeInt un programita que muestre el siguiente texto: “¡Hola mundo!”.

Algoritmo hola_mundo
	Escribir "Hola mundo"
FinAlgoritmo

2) Escribir un programa que a partir de un número ingresado diga si es mayor, menor o igual a 9.

Algoritmo MayoresIgualesMenoresA9
	N<-0
	Escribir "Escribir el numero"
	Leer N
	Si N Es Igual A 9 Entonces
		Escribir "El numero es igual a 9"
	Sino
		Si N Es Mayor Que 9 Entonces
			Escribir "El numero es mayor a 9"
		Sino
			Escribir "El numero es menor a 9"
		Fin Si
	Fin Si
FinAlgoritmo

3) Crear un programa que a partir de un número ingresado diga si el mismo es par o impar.

Algoritmo ParidadNumeros
	Leer nro
	Si (nro mod 2) = 0 entonces
		Escribir "es par"
	Sino
		Escribir "es impar"
	Fin Si
FinAlgoritmo

4) Realizar un programa que permita ingresar dos números y devuelva el resultado de la suma entre ambos.

Algoritmo SumaDosNumeros
	Algoritmo sumadedosnumeros
	Num1<-0
	Num2<-0
		Escribir "Escribir el numero 1"
			Leer Num1
		Escribir "Escribir el numero 2"
			Leer Num2
		Rta<-Num1+Num2
		Escribir "El resultado es:" Rta
FinAlgoritmo

5)  Escribir un programa que sume todos los números pares entre 2 y 100.

Algoritmo SumaDePares
	suma <- 0
	nro <- 2
	Mientras nro<=100 hacer
		si nro mod 2 = 0 Entonces
			suma= suma+nro			
		FinSi
		nro=nro+1
	FinMientras
	Escribir "la suma de los pares entre 2 y 100 es " suma
FinAlgoritmo

6) Escribir un programa que permita ingresar un número y muestre en pantalla todos los divisores del mismo.

Algoritmo divisores_de_numero
	Escribir "Ingrese Numero"
	Leer Num
	div<-1
	Mientras Div<=Num Hacer
		Si Num MOD div = 0 
			Escribir div
		Fin Si
		div<-div+1
	Fin Mientras
FinAlgoritmo

7) Determinar si un alumno aprueba o reprueba un curso, sabiendo que aprobará si su promedio de tres calificaciones es mayor o igual a 70; reprueba en caso contrario. Deberá permitir ingresar las tres calificaciones y luego calcular su promedio.

Algoritmo aprueba_reprueba
	Escribir "Ingrese calificacion 1"
		Leer Cal1
	Escribir "Ingrese calificacion 2"
		Leer Cal2
	Escribir "Ingrese calificacion 3"
		Leer Cal3
	Prom<-(Cal1+Cal2+Cal3)/3 	                           
        Si Prom>=70 Entonces
		Escribir "Aprueba"
	Sino
		Escribir "Reprueba"
	Fin Si
	Escribir Prom
FinAlgoritmo

8) Crear un programa que permita ingresar un nombre y una cantidad numérica para que así después el programa escriba este nombre tantas veces como su cantidad ingresada. Utilizar la función MIENTRAS.

Algoritmo Cantidad_nombre
	Escribir "Ingresar Nombre"
	Leer nombre
	Escribir "Ingresar Cantidad"
	Leer num
	Mientras Num>0 Hacer
		Escribir nombre
	Num<-Num - 1
	Fin Mientras
FinAlgoritmo

9) Escribir un programa que permita sumar todos los números naturales comprendidos entre 1 y 50 utilizando la función REPETIR.

Algoritmo suma_numerosnaturales_1y50 
	Num<-1
	Resul<-0
	Repetir
	    Resul<-Resul+Num
	    Num<-Num+1 	                           
        Hasta Que Num>50
	Escribir Resul
Fin algoritmo

10) Diseñar un algoritmo que pida por teclado tres números; si el primero es negativo, debe imprimir la multiplicación de los tres y si no lo es, imprimirá la suma.

Algoritmo tresnumeros
	Escribir "Ingrese numero 1"
		Leer Num1
	Escribir "Ingrese numero 2"
		Leer Num2
	Escribir "Ingrese numero 3"
		Leer Num3
	Si Num1<0 Entonces
		Resul<-Num1 * Num2 * Num3
	Sino
		Resul<-Num1+Num2+Num3
	Fin Si
	Escribir Resul
FinAlgoritmo

11) Definir un programa que determine si un número ingresado es primo o no. (Un número es primo si es divisible únicamente por 1 y por sí mismo).

Algoritmo NumerosPrimos
	Escribir "Ingrese un número: "
	Leer nro
	div <- 2
	band <- Verdadero 	         
        Si nro=1 Entonces 		            
             Escribir "Es primo" 	         
        Sino 		             
             Mientras band=Verdadero y nro>div Hacer
		Si nro MOD div = 0 Entonces
		    band <- Falso
		FinSi
		    div <- div +1
	     FinMientras
	     si band= Verdadero Entonces
		Escribir "Es primo"
	     Sino
		Escribir "No es primo"
	     FinSi
	FinSi
FinAlgoritmo

12) Crear un programa que efectúe la suma de los dígitos de un número ingresado. Ejemplo: Si se ingresa 123, debería devolver 6.

Algoritmo SumaDigitos
	Escribir "Ingrese un nro: "
	Leer nro
	resul <- 0
	Mientras nro <> 0 Hacer
		resul <- resul + nro MOD 10
		nro <- trunc(nro/10)
	FinMientras
	Escribir "El resultado es: " resul
FinAlgoritmo