ciao sono alto biondo occhi azzuri mi piacciono molto il black metal soprattutto i velvet underground ed i lacuna coil

tds risolvimi

      IDENTIFICATION DIVISION.
       PROGRAM-ID. STA0007B.
       AUTHOR. MAZZAROLO MATTEO.
       DATE-WRITTEN. 2010-12-20

       ENVIRONMENT DIVISION.

       INPUT-OUTPUT SECTION.

       FILE-CONTROL.
       SELECT FILEPLI       ASSIGN TO FILEPLI.
       SELECT FILECON       ASSIGN TO FILECON.
       SELECT FILEFIL       ASSIGN TO FILEFIL.
       SELECT FILEREP       ASSIGN TO FILEREP.

       DATA DIVISION.

       FILE SECTION.

       FD FILEPLI    LABEL RECORD IS STANDARD.
       01 W-REC-FILE-PLI-01              PIC X(50).

       FD FILECON    LABEL RECORD IS STANDARD.
       01 W-REC-FILE-PLI-CONTIGUI        PIC X(50).

       FD FILEFIL    LABEL RECORD IS STANDARD.
       01 W-REC-FILE-FILIALI             PIC X(50).

       FD FILEREP     LABEL RECORD IS STANDARD.
       01 W-REC-FILE-REPORT              PIC X(200).

       WORKING-STORAGE SECTION.

       01 NOME-PGM                       PIC X(08) VALUE 'STA0007B'.

      * TRACCIATO FILE-PLI-01 *
       01 W-REC-FILE-PLI-01.
         03 W-DIP-PLI-01                  PIC 9(05).
         03 W-NUM-PLI-01                  PIC 9(12).
         03 W-COSTO-PLI-01                PIC 9(7)V99.

      * TRACCIATO FILE-PLI-CONTIGUI *
       01 W-REC-FILE-PLI-CONTIGUI.
         03 W-DIP-PLI-CONTIGUI            PIC 9(05).
         03 W-NUM-PLI-CONTIGUI            PIC 9(12).

      * TRACCIATO FILE-FILIALI *
       01 W-REC-FILE-FILIALI.
         03 W-DIP-FILIALI                 PIC 9(05).
         03 W-DESCR-FILIALI               PIC X(30).

      * RECORD PER L'INTESTAZIONE DELLA PAGINA *
       01 W-REC-INTESTAZIONE-PAGINA.
         03 FILLER                        PIC X.
         03 W-DATA-ST                     PIC X(10).
         03 FILLER                        PIC X(50) VALUE SPACES.
            W-PAG-ST                      PIC Z9(06).

      * RECORD PER IL CODICE DELLA DIPENDENZA *
       01 W-REC-DIPENDENZA.
         03 FILLER                        PIC X(12) VALUE 'DIPENDENZA: '
         03 W-COD-DIP-ST                  PIC Z9(05).

      * RECORD PER LA DESCRIZIONE DELLA DIPENDENZA *
       01 W-REC-DESCRIZIONE.
         03 FILLER                        PIC X(13) VALUE 'DESCRIZIONE: '
         03 W-DESCR-ST                    PIC X(30).

      * RECORD PER L'INTESTAZIONE DEI PLICHI *
       01 W-REC-INT-PLICHI.
         03 FILLER                        PIC X(05) VALUE SPACES.
         03 FILLER                        PIC X(12) VALUE 'NUMERO PLICO'.
         03 FILLER                        PIC X(20) VALUE SPACES.
         03 FILLER                        PIC X(11) VALUE 'COSTO PLICO'.

      * RECORD PER I DATI DEI PLICHI *
       01 W-REC-DATI-PLICHI.
         03 FILLER                        PIC X(05) VALUE SPACES.
         03 W-DATI-NUM-ST                 PIC Z9(12).
         03 FILLER                        PIC X(20) VALUE SPACES.
         03 W-DATI-COSTO-ST               PIC Z9(7)V99.

      * RECORDO PER IL COSTO TOTALE DEI PLICHI*
       01 W-REC-COSTO-TOTALE.
         03 FILLER                        PIC X(30) VALUE SPACES.
         03 FILLER                        PIC X(08) VALUE 'TOTALE: '.
         03 W-COSTO-TOTALE-ST             PIC Z9(15)V99.

      * END-OF-FILE *
       01 EOF-FILE-PLI-01                PIC 9(01) VALUE ZERO.
       01 EOF-FILE-PLI-CONTIGUI          PIC 9(01) VALUE ZERO.
       01 EOF-FILE-FILIALI               PIC 9(01) VALUE ZERO.

      * VARIABILI AGGIUNTIVE *
       01 MAX-RIGHE                      PIC 9(02) VALUE ZERO.
       01 CONT-RIGHE-DATI                PIC 9(02) VALUE ZERO.
       01 CONT-PAGINA                    PIC 9(06) VALUE ZERO.
       01 COSTO-TOTALE                   PIC 9(15)V99 VALUE ZERO.

      * SKEDA-PARAMETRO *
       01 SKEDA-PARAMETRO.
         03 SK-DATA-OGGI                 PIC X(10).

       PROCEDURE DIVISION.

      *-----*
       MAIN.
      *-----*
         PERFORM INIZIALIZZA

         PERFORM LETTURA-FILEPLI
         PERFORM LETTURA-FILECON
         PERFORM LETTURA-FILEFIL
         PERFORM BILANCIAMENTO
           UNTIL EOF-FILE-PLI-01 = 1
           OR    EOF-FILE-PLI-CONTIGUI = 1
         IF CONT-RIGHE-DATI > 0
           PERFORM STAMPA-COSTO-TOTALE
         END-IF

         PERFORM FINE-PGM
         .

      *------------*
       INIZIALIZZA.
      *------------*
         DISPLAY 'INIZIO PGM ' NOME-PGM
         OPEN INPUT  FILEPLI
                     FILECON
                     FILEFIL
              OUTPUT FILEREP

         MOVE 40 TO MAX-RIGHE

         ACCEPT SKEDA-PARAMETRO
         .

      *-------------------------*
       BILANCIAMENTO-DIPENDENZE.
      *-------------------------*
         EVALUATE TRUE
           WHEN W-DIP-PLI-01 = W-DIP-PLI-CONTIGUI
             PERFORM BILANCIAMENTO-PLICHI
           WHEN CONT-RIGHE > 0
             PERFORM STAMPA-COSTO-TOTALE
             INITIALIZE COSTO-TOTALE
             INITIALIZE CONT-RIGHE-DATI
             INITIALIZE SWITCH-DIP-IN-CORSO
           WHEN W-DIP-PLI-01 < W-DIP-PLI-CONTIGUI
             PERFORM LETTURA-FILEPLI
           WHEN W-DIP-PLI-01 > W-DIP-PLI-CONTIGUI
             PERFORM LETTURA-FILECON
         END-EVALUATE
         .

      *---------------------*
       BILANCIAMENTO-PLICHI.
      *---------------------*
         EVALUATE TRUE
           WHEN CONT-RIGHE-DATI >= MAX-RIGHE
             INITIALIZE CONT-RIGHE-DATI
           WHEN W-NUM-PLI-01 = W-NUM-PLI-CONTIGUI
             COMPUTE CONT-RIGHE-DATI = CONT-RIGHE-DATI + 1
             IF CONT-RIGHE-DATI = 1
               COMPUTE CONT-PAGINA = CONT-PAGINA + 1
               PERFORM STAMPA-INTESTAZIONI
               MOVE 1 TO SWITCH-DIP-IN-CORSO
             END-IF
             COMPUTE COSTO-TOTALE = COSTO-TOTALE + W-COSTO-PLI-01
             PERFORM STAMPA-DATI-PLICO
             PERFORM LEGGI-FILEPLI
             PERFORM LEGGI-FILECON
           WHEN W-NUM-PLI-01 < W-NUM-PLI-CONTIGUI
             PERFORM LEGGI-FILEPLI
           WHEN W-NUM-PLI-01 > W-NUM-PLI-CONTIGUI
             PERFORM LEGGI-FILECON
         END-EVALUATE
         .

      *--------------------*
       STAMPA-INTESTAZIONI.
      *--------------------*
         PERFORM STAMPA-INTESTAZIONE-PAGINA
         IF SWITCH-DIP-IN-CORSO = 0
           PERFORM STAMPA-INTESTAZIONE-DIPENDENZA
         END-IF
         PERFORM STAMPA-INTESTAZIONE-DATI
         .

      *---------------------------*
       STAMPA-INTESTAZIONE-PAGINA.
      *---------------------------*
         MOVE SK-DATA-OGGI TO W-DATA-ST
         MOVE CONT-PAGINA  TO W-PAG-ST
         IF CONT-PAGINA = 1
           WRITE W-REC-FILE-REP FROM W-REC-INTESTAZIONE-PAGINA
         ELSE
           WRITE W-REC-FILE-REP FROM W-REC-INTESTAZIONE-PAGINA AFTER PAGE
         END-IF
         .

      *-------------------------------*
       STAMPA-INTESTAZIONE-DIPENDENZA.
      *-------------------------------*
         MOVE W-DIP-PLI-01 IN W-COD-DIP-ST
         MOVE 'DESCRIZIONE NON TROVATA' IN W-DESCR-ST
         PERFORM CERCA-DESCRIZIONE
           UNTIL W-DIP-FILIALI > W-DIP-PLI-01
           OR    EOF-FILE-FIL = 1
         WRITE W-REC-FILE-REP FROM W-REC-DIPENDENZA AFTER 2 LINES
         WRITE W-REC-FILE-REP FROM W-REC-DESCRIZIONE
         .

      *------------------------*
       STAMPA-INESTAZIONE-DATI.
      *------------------------*
         IF SWITCH-DIP-IN-CORSO = 0
           WRITE W-REC-FILE-REP FROM W-REC-INTESTAZIONE-DATI AFTER 2 LINES
         ELSE
           WRITE W-REC-FILE-REP FROM W-REC-INTESTAZIONE-DATI AFTER 6 LINES
         END-IF
         .

      *------------------*
       CERCA-DESCRIZIONE.
      *------------------*
         IF W-DIP-FILIALI = W-DIP-PLI-01
           MOVE W-DESCR-FIL IN W-DESCR-ST
         END-IF
         .

      *-------------------*
       STAMPA-DATI-PLICO.
      *-------------------*
         MOVE W-NUM-PLI-01   TO W-DATI-NUM-ST
         MOVE W-COSTO-PLI-01 TO W-DATI-COSTO-ST

         WRITE W-REC-FILE-REP FROM W-REC-DATI-PLICHI
         .

      *-------------------*
       STAMPA-COSTO-TOTALE.
      *-------------------*
         MOVE COSTO-TOTALE TO W-COSTO-TOT-ST
         WRITE W-REC-FILE-REP FROM W-REC-TOTALE
         .

      *----------------*
       LETTURA-FILEPLI.
      *----------------*
         READ FILEPLI INTO W-REC-FILE-PLI-01
         AT END MOVE 1 TO EOF-FILE-PLI-01
         .

      *----------------*
       LETTURA-FILECON.
      *----------------*
         READ FILECON INTO W-REC-FILE-PLI-CONTIGUI
         AT END MOVE 1 TO EOF-FILE-PLI-CONTIGUI
          .

      *----------------*
       LETTURA-FILEFIL.
      *----------------*
         READ FILEFIL INTO W-REC-FILE-FILIALI
         AT END MOVE 1 TO EOF-FILE-FILIALI
         .

      *---------*
       FINE-PGM.
      *---------*
         CLOSE FILEPLI
               FILECON
               FILEFIL
               FILEREP
         DISPLAY 'FINE PGM' NOME-PGM
         GOBACK
         .


sì risponde: "chissenefrega faceva buona musica"

forte il black metal il metal NERO solo per i forti yeeee

copate vieni su gtalk ogni tanto maeledetto terrone

dio omega che rincoglionito che sei
apparte il fattyo che ti ha risposto ctw

d3dx? cosa sarà mai
giochi a cs da 10 anni e non sai ancora cosa si intende per d3d???

!!!!!!!!!!!!!!!!


sono sempre su gtalk ora perchè msn mi da un casino di casini in ufficio

a

me ne sono accorto quando lo hai scritto, ho sempre detto psicosis asd

psaicosis

dicono che malva cheatta

ff

fantasticiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii i soad sono i mejo cazzo ci sono
sarà in tuta verde se mi vedete potete aggregarvi alla nostra compagnia
c'è anche helel con me :X

...non devi estrarlo O_o

comunque a lavoro oggi ci sono ma invisibile quindi chiama (msn )

ho trovato ieri sera come sistemare il programma ergo HO FATTO

si ok, ovviamente cose del genere non mi servono
mi interesserebbe sapere l'algoritmo in sè più efficiente per effettuare una cosa simile senza usare la ricorsione, sia dividendo in due fasi l'inserimento ed il riordino che non

parlo soprattutto alla gente che sta roba la ha studiata a scuola (probabilmente tu no visto che altrimenti sapresti che ci sono particolari algoritmi come il bubble sort, il quick sort etc che fanno proprio queste cose) come GF (in corso, no?), SHA etc

ovviamente in questo caso il primo algortimo che salta in mente è l'insertion-sort ma è dannatamente poco efficiente x(

? cosa c'entra? xP sìsì cicli posso ttto