home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / TABLAS.ONU < prev    next >
Text File  |  1998-03-02  |  2KB  |  73 lines
  1. ;;               ┌─────────────────────────────────────────┐
  2. ;;               │ Programa Tablas, basado en dos ejemplos │
  3. ;;               │    del uso de las tablas, el primero    │
  4. ;;               │    compara números introducidos y el    │
  5. ;;               │   segundo muestra el día de la semana   │
  6. ;;               │       a partir de un número,  por       │
  7. ;;               │      Miguel Angel Morano Domínguez      │
  8. ;;               └─────────────────────────────────────────┘
  9.  
  10. Constantes
  11.   dias: tabla [1..7] de cadena = ('lunes','martes','miercoles','jueves','viernes','sabado','domingo')
  12.  
  13. Variables
  14.   i,num:entero
  15.   numeros: tabla [1..10] de entero
  16.   dia: entero
  17.   mayor,menor: entero
  18.  
  19. Principio
  20.   Limpia
  21.   Color (blanco,negro)
  22.   Posiciona (31,3)
  23.   Escribeln ('USO DE LAS TABLAS')
  24.   Posiciona (30,4)
  25.   Escribeln ('▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀')
  26.   Posiciona (5,7)
  27.   Escribeln ('Ejemplo nº 1')
  28.   Color (blanco,azul)
  29.   Para i:=1 hasta 10 hacer
  30.     Marco ('─',10,9,25,11)
  31.     Posiciona (12,10)
  32.     Escribe ('Número: ')
  33.     AceptaEntero (num,2)
  34.     numeros [i]:=num
  35.   Finpara
  36.   mayor:=0
  37.   menor:=9999
  38.   Para i:=1 hasta 10 hacer
  39.     Si numeros[i]>mayor entonces
  40.       mayor:=numeros[i]
  41.     Finsi
  42.     Si numeros[i]<menor entonces
  43.       menor:=numeros[i]
  44.     Finsi
  45.   Finpara
  46.   Color (blanco,rojo)
  47.   Marco ('═',40,8,75,11)
  48.   Posiciona (42,9)
  49.   Escribe ('Mayor número introducido...',mayor)
  50.   Posiciona (42,10)
  51.   Escribe ('Menor número introducido...',menor)
  52.   Color (blanco,negro)
  53.   Posiciona (25,14)
  54.   Escribe ('Pulse una tecla para continuar')
  55.   Aceptatecla
  56.   Posiciona (5,16)
  57.   Escribeln ('Ejemplo nº 2')
  58.   Mientras (dia>=8) o (dia<=0) hacer
  59.     Color (negro,celeste)
  60.     Marco ('─',8,18,40,20)
  61.     Posiciona (10,19)
  62.     Escribe ('Número de día de la semana: ')
  63.     AceptaEntero (dia,1)
  64.   Finmientras
  65.   Color (negro,blanco)
  66.   Marco ('═',49,18,70,20)
  67.   Posiciona (51,19)
  68.   Escribeln ('Hoy es...',dias[dia])
  69.   Color (blanco+parpadeo,negro)
  70.   Posiciona (25,23)
  71.   Escribe ('Pulse una tecla para finalizar')
  72.   Aceptatecla
  73.