home *** CD-ROM | disk | FTP | other *** search
/ Hot Shareware 35 / hot35.iso / ficheros / DTOOL / ONUPRO10.ZIP / EJEMPLOS.ON_ / ALUMNOS.ONU next >
Text File  |  1998-03-02  |  4KB  |  166 lines
  1. ;;               ┌─────────────────────────────────────────┐
  2. ;;               │  Programa Alumnos, basado en una ficha  │
  3. ;;               │   de alumno con sus correspondientes    │
  4. ;;               │   calificaciones por cada asignatura,   │
  5. ;;               │    por Miguel Angel Morano Domínguez    │
  6. ;;               └─────────────────────────────────────────┘
  7.  
  8. Variables
  9.  
  10.   res: caracter
  11.   nom,dir,tel,fec: cadena
  12.   k,c,mat,hum,len,ing,fra,fis: entero
  13.  
  14. Principio
  15.  
  16.   res:='1'
  17.  
  18.   mientras (res='1') hacer
  19.     k:=0
  20.     c:=0
  21.     color (blanco,marron)
  22.     borra
  23.     posiciona (30,2); escribeln ('FICHA DE ALUMNOS 97/98')
  24.     posiciona (30,3); escribeln ('▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀▀')
  25.     color (negro,negro)
  26.     marco (' ',10,6,72,12)
  27.     color(blanco,azul)
  28.     marco ('═',8,5,70,11)
  29.     posiciona (10,6); escribeln ('Nombre y apellidos: ')
  30.     posiciona (10,8); escribeln ('Dirección: ')
  31.     posiciona (10,10); escribeln ('Telefono: ')
  32.     posiciona (35,10); escribeln ('Fecha de nacimiento: ')
  33.     posiciona (31,6)
  34.     posiciona (31,6);AceptaCadena (nom,38)
  35.     posiciona (22,8);AceptaCadena (dir,47)
  36.     posiciona (21,10);AceptaCadena (tel,6)
  37.     posiciona (57,10);AceptaCadena (fec,8)
  38.     color (negro,negro)
  39.     marco (' ',7,15,75,24)
  40.     color (negro,gris)
  41.     marco('─',5,14,73,23)
  42.     posiciona (32,14);escribeln ('CALIFICACIONES')
  43.     posiciona (22,15);escribeln ('0    1    2    3    4    5    6    7    8    9   10')
  44.     posiciona (22,16);escribeln ('├────┼────┼────┼────┼────┼────┼────┼────┼────┼────┤')
  45.     posiciona (7,17);escribe('Matemáticas..')
  46.     posiciona (7,18);escribe('Humanística..')
  47.     posiciona (7,19);escribe('Lengua.......')
  48.     posiciona (7,20);escribe('Inglés.......')
  49.     posiciona (7,21);escribe('Francés......')
  50.     posiciona (7,22);escribe('E. Física....')
  51.     posiciona (20,17)
  52.  
  53.     posiciona (20,17);AceptaEntero (mat,2)
  54.  
  55.     mientras (mat>10) o (mat<0) hacer
  56.       sonido (200)
  57.       espera (1000)
  58.       finsonido
  59.       posiciona (20,17);AceptaEntero (mat,2)
  60.     finmientras
  61.  
  62.     mientras (c<>mat) hacer
  63.       posiciona (23+k,17);escribe('═════')
  64.       c:=c+1
  65.       k:=k+5
  66.     finmientras
  67.  
  68.     posiciona (20,18);AceptaEntero(hum,2)
  69.  
  70.     mientras (hum>10) o (hum<0) hacer
  71.       sonido(200)
  72.       espera(1000)
  73.       finsonido
  74.       posiciona (20,18);AceptaEntero(hum,2)
  75.     finmientras
  76.  
  77.     c:=0;k:=0
  78.  
  79.     mientras (c<>hum) hacer
  80.       posiciona(23+k,18);escribe('═════')
  81.       c:=c+1
  82.       k:=k+5
  83.     finmientras
  84.  
  85.     posiciona (20,19);AceptaEntero(len,2)
  86.  
  87.     mientras (len>10) o (len<0) hacer
  88.       sonido(200)
  89.       espera(1000)
  90.       finsonido
  91.       posiciona (20,19);AceptaEntero(len,2)
  92.     finmientras
  93.  
  94.     c:=0; k:=0
  95.  
  96.     mientras (c<>len) hacer
  97.       posiciona(23+k,19);escribe('═════')
  98.       c:=c+1
  99.       k:=k+5
  100.     finmientras
  101.  
  102.     posiciona (20,20);AceptaEntero(ing,2)
  103.  
  104.     mientras (ing>10) o (ing<0) hacer
  105.       sonido(200)
  106.       espera(1000)
  107.       finsonido
  108.       posiciona (20,20);AceptaEntero(ing,2)
  109.     finmientras
  110.  
  111.    c:=0;k:=0
  112.  
  113.     mientras (c<>ing) hacer
  114.       posiciona (23+k,20);escribe('═════')
  115.       c:=c+1
  116.       k:=k+5
  117.     finmientras
  118.  
  119.     posiciona (20,21);AceptaEntero(fra,2)
  120.  
  121.     mientras (fra>10) o (fra<0) hacer
  122.       sonido(200)
  123.       espera(1000)
  124.       finsonido
  125.       posiciona (20,21);AceptaEntero(fra,2)
  126.     finmientras
  127.  
  128.     c:=0;k:=0
  129.  
  130.     mientras (c<>fra) hacer
  131.       posiciona(23+k,21);escribe('═════')
  132.       c:=c+1
  133.       k:=k+5
  134.     finmientras
  135.  
  136.     posiciona (20,22);AceptaEntero(fis,2)
  137.  
  138.     mientras (fis>10) o (fis<0) hacer
  139.       sonido(200)
  140.       espera (1000)
  141.       finsonido
  142.       posiciona (20,22);AceptaEntero(fis,2)
  143.     finmientras
  144.  
  145.     c:=0;k:=0
  146.  
  147.     mientras (c<>fis) hacer
  148.       posiciona(23+k,22);escribe('═════')
  149.       c:=c+1
  150.       k:=k+5
  151.     finmientras
  152.  
  153.     color (negro,negro)
  154.     marco (' ',22,10,62,17)
  155.     color (amarillo,rojo)
  156.     marco ('═',20,9,60,16)
  157.     posiciona (32,11);escribe('La media es de ',(mat+hum+len+ing+fra+fis) dividido 6)
  158.     posiciona (24,13);escribe('(Pulse 1 para repetir el proceso)')
  159.     color(blanco,azul)
  160.     posiciona (40,15);escribe (' ')
  161.     posiciona (40,15); Aceptacaracter (res)
  162.  
  163.   finmientras
  164.   color (gris,negro)
  165.   borra
  166.