home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / PROCEDIM.ONU < prev    next >
Text File  |  1998-03-02  |  2KB  |  76 lines
  1. ;;                  ┌─────────────────────────────────────┐
  2. ;;                  │    Programa Procedim, basado en     │
  3. ;;                  │     ejemplos de procedimientos,     │
  4. ;;                  │  por Miguel Angel Morano Domínguez  │
  5. ;;                  └─────────────────────────────────────┘
  6.  
  7. ;;***************************** PROCEDIMIENTOS ******************************
  8.  
  9. Procedimiento Centrar (men: cadena)
  10. principio
  11.   posiciona ((80-longitud(men)) dividido 2,12)
  12.   escribe (men)
  13. Finprocedimiento
  14.  
  15. Procedimiento Cuadrado (Ref num: entero)
  16. principio
  17.   num:=num*num
  18.   posiciona (1,5)
  19.   escribe (num)
  20. Finprocedimiento
  21.  
  22. Procedimiento Multiplicar (num: entero)
  23. variables
  24.   i: entero
  25. principio
  26.   posiciona (1,10)
  27.   Para i:=1 hasta 10 hacer
  28.     escribeln (num,' * ',i,' = ',num*i)
  29.   Finpara
  30. Finprocedimiento
  31.  
  32. Procedimiento Cabecera
  33. principio
  34.   Posiciona (27,2)
  35.   Escribeln ('EJEMPLOS DE PROCEDIMIENTOS')
  36.   Escribeln
  37. Finprocedimiento
  38.  
  39. Procedimiento Pulsar
  40. principio
  41.   Posiciona (26,24)
  42.   Escribe ('Pulse una tecla para continuar')
  43.   Aceptatecla
  44.   Limpia
  45.   Cabecera
  46. Finprocedimiento
  47.  
  48. ;;******************************** PROGRAMA *********************************
  49.  
  50. Variables
  51.   mensaje: cadena
  52.   numero: entero
  53.  
  54. Principio
  55.   Limpia
  56.  
  57.   Cabecera
  58.  
  59.   Escribe ('Mensaje a centrar: ')
  60.   AceptaCadena (mensaje,30)
  61.   Centrar (mensaje)
  62.  
  63.   Pulsar
  64.  
  65.   Escribe ('Cuadrado del número: ')
  66.   AceptaEntero (numero,2)
  67.   Cuadrado (numero)
  68.  
  69.   Pulsar
  70.  
  71.   Escribe ('Tabla de multiplicar del número: ')
  72.   AceptaEntero (numero,1)
  73.   Multiplicar (numero)
  74.  
  75.   Pulsar
  76.