Desarrolla Algoritmos en Pseudocódigo, utilizando PSeInt:
• Arreglos unidimensionales y bidimensionales.
• Funciones (subrutinas).
Item I: Desarrollo en pseudocódigo
1. Construir un algoritmo que permita obtener el promedio de 3 notas. Éste debe ser aplicado para cada alumno de un curso de 10 alumnos. Las notas están guardadas en una matriz de 10 filas, con 4 columnas, la primera columna se utiliza para guardar el número de la lista del alumno.
( Observaciones: las notas deben ser almacenadas previamente en una matriz denominada NOTAS.)
2. Construir una función que permita mostrar el perímetro de un triángulo cualquiera.
3. Construir una función que permita retornar el área de un triángulo cualquiera.
4. Construir una función que permita retornar si un número es primo o no, el retorno debe ser lógico (Verdadero o Falso)
5. Construir una función que permita retornar si un número es perfecto o no, el retorno debe ser lógico (Verdadero o Falso)
Respuestas
Ejercicio 1
Algoritmo NotasAlumnos
Nota=3
Alumno=10
Dimension NOTAS[Alumno,Nota]
Escribir "***NOTAS***"
Para i<-0 Hasta Alumno-1 Con Paso 1 Hacer
Escribir "Alumno ",(i+1),": " Sin Saltar
Para j<-0 Hasta Nota-1 Con Paso 1 Hacer
num= Aleatorio(1, 10)
NOTAS(i, j)=num
Escribir NOTAS(i,j) , " " Sin Saltar
Fin Para
Escribir ""
Fin Para
Escribir ""
Escribir "***PROMEDIOS***"
Para i<-0 Hasta Alumno-1 Con Paso 1 Hacer
acu=0
Para j<-0 Hasta Nota-1 Con Paso 1 Hacer
acu=NOTAS[i,0]+NOTAS[i,1]+NOTAS[i,2]
prom=acu/3
Fin Para
Escribir "Promedio Del Alumno ",i+1," Es ",prom
Fin Para
FinAlgoritmo
--------------------------------------------------------------------------------------------
Ejercicio 2
Funcion Perimetro <- PTriangulo ( L,L2,L3 )
Perimetro=L+L2+L3
Fin Funcion
Algoritmo PerimetroTriangulo
Escribir "Ingrese El Lado 1"
Leer L
Escribir "Ingrese El Lado 2"
Leer L2
Escribir "Ingrese El Lado 3"
Leer L3
Escribir "Perimetro Del Triangulo: ",PTriangulo(L,L2,L3)
FinAlgoritmo
--------------------------------------------------------------------------------------------
Ejercicio 3
Funcion Area <- ATriangulo ( Base,Altura)
Area=(Base*Altura)/2
Fin Funcion
Algoritmo AreaTriangulo
Escribir "Ingrese La Base"
Leer Base
Escribir "Ingrese La Altura"
Leer Altura
Escribir "Area Del Triangulo: ",ATriangulo(Base,Altura)
FinAlgoritmo
--------------------------------------------------------------------------------------------
Ejercicio4
Funcion Num <- EsNumeroPrimo (n1)
cont=0
Para i<-1 Hasta n1 Hacer
Si n1%i==0 Entonces
cont=cont+1
FinSi
Fin Para
Si cont==2 Entonces
Escribir Verdadero
SiNo
Escribir Falso
FinSi
Fin Funcion
Algoritmo FuncionesEjemplos
Escribir "Ingrese Un Numero"
Leer n1
Escribir EsNumeroPrimo(n1)
FinAlgoritmo
--------------------------------------------------------------------------------------------
Ejercicio5
Funcion Num <- EsNumeroPerfecto (n)
sum=0
Para i<-1 Hasta n-1 Hacer
Si n%i==0 Entonces
sum=sum+i
FinSi
Fin Para
Si sum==n Entonces
Escribir Verdadero
SiNo
Escribir Falso
FinSi
Fin Funcion
Algoritmo NumeroPerfecto
Escribir "Ingrese Un Numero"
Leer n
Escribir EsNumeroPerfecto(n)
FinAlgoritmo
