Pseint
EJERCICIOS RESUELTOS EN PSEINT
1- ) Calcular el promedio de un alumno que tiene 7 calificaciones en la materia informática.
Proceso Promedio
Escribir 'Ingrese su nombre: ';
Leer nombre;
materia<-1;
total<-0;
Repetir
Escribir 'Ingrese la nota de la ',materia, ' materia: ';
Leer nota;
Total<-total+nota;
Materia<-materia+1;
Hasta Que materia>7
promedio<-total/7;
Escribir 'El promedio del alumno ',nombre, ' es: ',promedio;
FinProceso
2- ) Leer 3 números diferente e imprimir el mayor d los 3.
Proceso Mayor
Mayor<-0;
Para i<-1 Hasta 3 Con Paso 1 Hacer
Escribir 'Ingrese el ',i,' numero: ';
Leer Numero;
Si (Numero>Mayor) Entonces
Mayor<-Numero;
FinSi
FinPara
Escribir 'El mayor es: ',Mayor;
FinProceso
3-) Realizar un algoritmo que lea los números en forma desendente.
Proceso Ordenar
Dimension numero[3];
Para indice<-1 Hasta 3 Hacer
Escribir 'Ingrese el elemento numero ',indice,' : ';
Leer numero[indice];
FinPara //Fin de repeticion
Para indice<-1 Hasta 2 Hacer
para subindice<-2 Hasta 3 Hacer
si (numero[indice]<numero[subindice]) Entonces
aux<-numero[indice];
numero[indice]<-numero[subindice];
numero[subindice]<-aux;
FinSi
FinPara
FinPara
Escribir '------Ordenados-------'
Para indice<-1 Hasta 3 Hacer
Escribir 'Elemento numero ',indice,' : ',numero[indice];
FinPara
4-) Crear un algoritmo que escriba "Hola" cinco veces.
Proceso Resuelto04
Para x <- 1 Hasta 5 Hacer
Escribir "Hola";
FinPara
FinProceso
5-) Crear un algoritmo que pida al usuario un número y le diga si es positivo, negativo o cero.
Proceso Resuelto05
Escribir "Dime un numero";
Leer x;
Si x > 0 Entonces
Escribir "Es positivo";
Sino
Si x < 0 Entonces
Escribir "Es negativo";
Sino
Escribir "Es cero";
FinSi
FinSi
FinProceso
Proceso Resuelto06
Dimension dato[5]
Para x <- 1 Hasta 5 Hacer
Escribir "Dime un dato";
Leer dato[x];
FinPara
suma <- 0
Para x <- 1 Hasta 5 Hacer
suma <- suma + dato[x];
FinPara
Escribir "Su suma es ", suma;
FinProceso
7-) Crear un algoritmo que calcule la raíz cuadrada del número que introduzca el usuario.
Proceso Resuelto07
Repetir
Escribir "Dime un numero";
Leer x;
Si x < 0 Entonces
Escribir "No puede ser negativo";
FinSi
Hasta Que x >= 0
Escribir "Su raiz es ", rc(x);
FinProceso