Algoritmos-funciones

Diseñar una función que permita determinar
la suma de los n primeros números enteros
ingresados.

funcion fsuma(n:entero):entero
   i=0 
   sn=0 
   para i=1,n
       sn=sn+i   
   fin de para       
   retornar sn
fin de funcion

Algoritmo 
1.-inicio
2.-n1=0,sn1=0
3.-leer n1
4.-sn1=fsuma(n1)
5.-escribir sn1
6.-fin

Diseñar una función que permita determinar
el factorial de un número ingresado.

rfuncion ffactorial(n:entero):entero
   i=0
   f=1
   mientras i< n
      i=i+1
      f=f*i
   fin de mientras   
   retornar f
fin de funcion

Algoritmo
1.-inicio
2.-factorial=0,n1=0
3.-leer n1
4.-factorial=ffactorial(n1)
5.-escribir factorial
6.-fin

Diseñar las funciones que permita determinar
el promedio y la condición
(aprobado ó desaprobado) de un alumno, 
mediante tres notas ingresadas.

funcion fpromedio(ant1:real,ant2:real,ant3:real):real
   p:real
   p=(ant1+ant2+ant3)/3
   return p      
fin de funcion

funcion fcondicion(ap:real):cadena
   m:cadena
   si  ap>=10.5 entonces
       m='Aprobado'
   sino  
       m='Desaprobado'
   fin de si
  return m
fin de funcion

Algoritmo
1.- inicio
2.- p=0.0,c='',nt1=0.0,nt2=0.0,nt3=0.0
3.-leer nt1,nt2,nt3
4.-p=fpromedio(nt1,nt2,nt3) 
    c=fcondicion(p) 
5.-escribir p,c
6.-fin

Crear una función que lea un número entero entre 1 y 10, y nos muestre por pantalla el
número en letra.

**Funcion
funcion fmensaje(n:entero):cadena
       segun sea 
  caso 1: m='A'
  caso 2: m='B'
         caso 3: m='C'   
  caso 4: m='D'
  caso 5: m='E'
  caso 6: m='F'
  caso 7: m='G'
  caso 8: m='H'
  caso 9: m='I'
  caso 10: m='J'
         otro caso:
   m='Numero fuera del rango 1-10!!!!!!!'
      fin de segun 
      retornar(m) 
fin de funcion

**Analisis de datos
E:n1(numero)
S:letra(numero en letra)

**Algoritmo
1.-inicio
2.-n1=0,letra=''
3.-leer n1
4.-letra=fmensaje(n1)
5.-escribir letra
6.-fin

**Prueba de escritorio
n1=5
letra='E'