Programa de los boxeadores-alc

Tema: Programa de los boxeadores-alc Miér Nov 24, 2010 2:37 am

Copio y pego lo que ya había escrito antes:

Bueno pues nada, que empiezo avisando que he compartido el codigo de mi programa de los boxeadores (de momento clasifica los boxeadores, los lee y los escribe), lo he puesto en en la carpeta "compartir_clase/PLE" del dropbox.

Mas adelante veré si puedo documentarlo para que lo entendáis mejor...

Haz clic en "Spoiler" para ver el codigo. Codigo fuente:

Spoiler:

Código:: algoritme:
const
NUM:=2; #esta constante indica al programa el numero de boxeadores que debe procesar.
fconst

tipus
cadena= taula [1..30] de caracter;

fechanacimiento = tupla
                  dia:enter;
                  mes:enter;
                  anio:enter;
ftupla;

tipocategoria= tupla
            nombrecategoria:cadena;
            totalencategoria:enter;
ftupla;

datosboxeador= tupla
               nombre:cadena;
               peso:real;
               nacimiento:fechanacimiento;
               victoriasporko:enter;
               victoriasporpuntos:enter;
ftupla;
vectorboxeador = taula [1..NUM] de datosboxeador;
vectorcategorias = taula [1..17] de tipocategoria;
ftipus

var
listaboxeadores:vectorboxeador;
contador:enter;
listacategorias:vectorcategorias;
fvar

#*****|----L--E--E--R----|**********************************************
#*****|----L--E--E--R----|**********************************************
#*****|----L--E--E--R----|**********************************************

#PROCEDIMIENTO LEER CADENA/NOMRE BOXEADOR
accio leercadena(var nombre:cadena)
var
c:enter;
fvar

      pera c:=1 fins 100 pas 1 fer
            llig(nombre[c]);
            si (nombre[c] = '.') llavors
               c:=100;
            fsi;
      fpera;
      lliglin();
faccio
#PROCEDIMIENTO LEER FECHA
accio leerfecha(var nacimient:fechanacimiento)
      escriulin();
      escriu('/DIA:');
   llig(nacimient.dia);
      escriu('/MES:');
   llig(nacimient.mes);
      escriu('/AÑO:');
   llig(nacimient.anio);

   lliglin();

faccio

#PROCEDIMIENTO LEER UN SOLO BOXEADOR
accio leerunboxeador(var boxeadoractual:datosboxeador)
var
c:enter;
fvar
   escriu('ESCRIBE EL NOMBRE DEL BOXEADOR: ');
leercadena(boxeadoractual.nombre);
   escriu('ESCRIBE EL PESO DEL BOXEADOR: ');
llig(boxeadoractual.peso);
   escriu('ESCRIBE LA FECHA DE NACIMIENTO: ');
leerfecha(boxeadoractual.nacimiento);
   escriu('ESCRIBE EL NUMERO DE VICTORIAS POR K.O.: ');
llig(boxeadoractual.victoriasporko);
   escriu('ESCRIBE EL NUMERO DE VICTORIAS POR PUNTOS: ');
llig(boxeadoractual.victoriasporpuntos);
escriulin();
lliglin();

faccio

#PROCEDIMIENTO CARGARCATEGORIAS
accio cargacategorias(var listado:vectorcategorias)
var
   posv:enter;
fvar

   pera posv:=1 fins 17 pas 1 fer
      leercadena(listado[posv].nombrecategoria);
   fpera;

faccio

#******|--E--S--C--R--I-B--I--R--|**************************************
#******|--E--S--C--R--I-B--I--R--|**************************************
#******|--E--S--C--R--I-B--I--R--|**************************************

#PROCEDIMIENTO ESCRIBIR CADENA/NOMRE BOXEADOR
accio escribircadena(var nombre:cadena)
var
c:enter;
fvar

      pera c:=1 fins 100 pas 1 fer
            si (nombre[c] = '.') llavors
               c:=100;
            sino
               escriu(nombre[c]);
            fsi;
      fpera;
      escriulin();
faccio
#PROCEDIMIENTO ESCRIBIR FECHA
accio escribirfecha(nacimient:fechanacimiento)

   escriulin(nacimient.dia,'/',nacimient.mes,'/',nacimient.anio);

faccio

#PROCEDIMIENTO ESCRIBIR UN SOLO BOXEADOR
accio escribirunboxeador(var boxeadoractual:datosboxeador)
var
   c:enter;
fvar
   escriu('NOMBRE: ');
      escribircadena(boxeadoractual.nombre);
   escriulin('PESO: ',boxeadoractual.peso);
   escriu('NACIMIENTO: ');
      escribirfecha(boxeadoractual.nacimiento);
   escriulin('VICTORIAS POR K.O.: ',boxeadoractual.victoriasporko);
   escriulin('VICTORIAS POR PUNTOS: ',boxeadoractual.victoriasporpuntos);
   escriulin('--------------------------------------------------------------');

faccio

#******|--C--L--A--S-I--F--I--C--A--R--|********************************
#******|--C--L--A--S-I--F--I--C--A--R--|********************************
#******|--C--L--A--S-I--F--I--C--A--R--|********************************

#PROCEDIMIENTO CLASIFICAR UN SOLO BOXEADOR

accio clasificarboxeador (var listacategorias:vectorcategorias; pesoboxeador:real;numero:enter)
var
posv:enter;
fvar
si numero=1 llavors
pera posv:=1 fins 17 fer
   listacategorias[posv].totalencategoria:=0;
fpera;
fsi;
   posv:=1;
   #categoria1
   si (pesoboxeador<=47.7) llavors
      listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
   sino
      posv:=posv+1;
      #categoria2
      si (pesoboxeador<=49) llavors
         listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
      sino
         posv:=posv+1;
         #categoria3
         si (pesoboxeador<=50.8) llavors
            listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
         sino

            posv:=posv+1;
            #categoria4
            si (pesoboxeador<=52.2) llavors
               listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
            sino

               posv:=posv+1;
               #categoria5
               si (pesoboxeador<=53.5) llavors
                  listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
               sino
               #1*****************************************************
posv:=posv+1;
#categoria6
si (pesoboxeador<=55.3) llavors
listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
sino
posv:=posv+1;
#categoria7
si (pesoboxeador<=57.2) llavors
   listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
sino

   posv:=posv+1;
   #categoria8
   si (pesoboxeador<=59) llavors
      listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
   sino

      posv:=posv+1;
      #categoria9
      si (pesoboxeador<=61.2) llavors
         listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
      sino
#2*****************************************************
posv:=posv+1;
#categoria10
si (pesoboxeador<=63.5) llavors
   listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
sino
   posv:=posv+1;
   #categoria11
   si (pesoboxeador<=66.7) llavors
      listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
   sino

      posv:=posv+1;
      #categoria12
      si (pesoboxeador<=69.9) llavors
         listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
      sino

         posv:=posv+1;
         #categoria13
         si (pesoboxeador<=72.6) llavors
            listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
         sino
      #3*****************************************************
      posv:=posv+1;
      #categoria14
      si (pesoboxeador<=76.2) llavors
         listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
      sino
         posv:=posv+1;
         #categoria15
         si (pesoboxeador<=79.4) llavors
            listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
         sino

            posv:=posv+1;
            #categoria16
            si (pesoboxeador<=90.72) llavors
               listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;
            sino
               posv:=posv+1;
               #categoria17
               listacategorias[posv].totalencategoria:=listacategorias[posv].totalencategoria+1;

            fsi;
         fsi;
      #F3****************************************************
            fsi;
         fsi;
      fsi;
   fsi;
#F2****************************************************
         fsi;
      fsi;
   fsi;
fsi;
#F1****************************************************
                  fsi;
               fsi;
            fsi;
         fsi;
      fsi;
   fsi;

faccio

#******|--P--R--I--N--C--I--P--A--L--|**********************************
#******|--P--R--I--N--C--I--P--A--L--|**********************************
#******|--P--R--I--N--C--I--P--A--L--|**********************************

#PROGRAMA PRINCIPAL

cargacategorias(listacategorias);

pera contador:=1 fins NUM fer
   leerunboxeador(listaboxeadores[contador]);

   clasificarboxeador(listacategorias,listaboxeadores[contador].peso,contador);

fpera;

pera contador:=1 fins NUM fer
   escribirunboxeador(listaboxeadores[contador]);
fpera;

pera contador:=1 fins 17 fer
      escribircadena(listacategorias[contador].nombrecategoria);
      escriulin(listacategorias[contador].totalencategoria);
fpera;

falgorisme.

Contenido del archivo que rellena los datos del programa por nosotros:

Spoiler:

Tema: Re: Programa de los boxeadores-alc Miér Nov 24, 2010 4:38 pm

lol, mola, li pegare una miradeta (en clase de ple, ara no tinc ganes xD

Tema: Re: Programa de los boxeadores-alc Miér Nov 24, 2010 4:49 pm

Grande, Grande! Mola porque asi cuando lo acabe uno lo acabamos todos xD

Tema: Re: Programa de los boxeadores-alc Mar Nov 30, 2010 8:28 pm

a ver si empezamos en #c ya de una ++++ vez, que me siento margi