home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / FUNCIONE.ONU < prev    next >
Text File  |  1998-03-02  |  2KB  |  71 lines
  1. ;;                  ┌─────────────────────────────────────┐
  2. ;;                  │    Programa Funcione, basado en     │
  3. ;;                  │       ejemplos de funciones,        │
  4. ;;                  │  por Miguel Angel Morano Domínguez  │
  5. ;;                  └─────────────────────────────────────┘
  6.  
  7. ;;******************************** FUNCIONES ********************************
  8.  
  9. Funcion Cabecera: cadena
  10. principio
  11.   Limpia
  12.   Posiciona (30,2)
  13.   Cabecera:='EJEMPLOS DE FUNCIONES'
  14. Finfuncion
  15.  
  16. Funcion Cubo (num: entero): entero
  17. principio
  18.   Cubo:=num*num*num
  19. Finfuncion
  20.  
  21. Funcion OtroSN: logico
  22. variables
  23.   res: caracter
  24. principio
  25.   Escribe ('¿Desea otro más S/N?')
  26.   AceptaCaracter(res)
  27.   Si (res='s') o (res='S') entonces
  28.     OtroSN:=Verdadero
  29.   Sino
  30.     OtroSN:=Falso
  31.   Finsi
  32.   Escribeln
  33. Finfuncion
  34.  
  35. Funcion Derecha (men: cadena): cadena
  36. variables
  37.   i: entero
  38. principio
  39.   Para i:=1 hasta (80-longitud(men)) hacer
  40.     men:=' '+men
  41.   Finpara
  42.   Derecha:=men
  43. Finfuncion
  44.  
  45. ;;******************************** PROGRAMA *********************************
  46.  
  47. Variables
  48.   numero: entero
  49.   mensaje: cadena
  50.  
  51. Principio
  52.   Escribeln (Cabecera)
  53.  
  54.   Escribe ('Número a elevar al cubo: ')
  55.   AceptaEntero (numero,1)
  56.   Escribeln (Cubo (numero))
  57.  
  58.   Mientras OtroSN hacer
  59.     Escribe ('Número a elevar al cubo: ')
  60.     AceptaEntero (numero,1)
  61.     Escribeln (Cubo (numero))
  62.   Finmientras
  63.  
  64.   Escribeln (Cabecera)
  65.  
  66.   Escribe ('Mensaje: ')
  67.   AceptaCadena (mensaje,15)
  68.   Escribeln (Derecha(mensaje))
  69.  
  70.   Aceptatecla
  71.