Deprecated: preg_replace(): The /e modifier is deprecated, use preg_replace_callback instead in /membri/pokestudio/arcticbay/Sources/Load.php(225) : runtime-created function on line 3
quesito di informatica
Arctic Bay
News: Pokestudio Server chiude. [LINK]
   
*
Benvenuto, Visitatore. Per favore, effettua il login o registrati. Settembre 27, 2020, 12:15:12


Login con username, password e lunghezza della sessione


Caricamento Shoutbox...
Colore:   
Pagine: 1 [2]  Tutte   Vai Gi¨
  Stampa  
Autore Topic: quesito di informatica  (Letto 1712 volte)
0 Utenti e 1 Visitatore stanno guardando questo topic.
Omega
Rest in Peace
Orpo Team
╔lite Trainer
*
Offline Offline

Posts: 3712


get raped


Guarda Profilo Email
« Risposta #15 il: Dicembre 22, 2010, 13:48:20 »

ma non ho neanche cercato lol sto ancora finendo l'altro non ho fretta :o

grazie ctw comunque ^_^
Loggato
Malva
╔lite Trainer
*
Offline Offline

Sesso: Maschile
Posts: 5234


bellaaa

MalvaRulez@Gmail.com
Guarda Profilo
« Risposta #16 il: Dicembre 22, 2010, 17:36:50 »

copate Sad vieni su gtalk ogni tanto maeledetto terrone
Loggato

XxTDSxX
New Entry
*
Offline Offline

Posts: 8


Take a trip to wonderland


Guarda Profilo
« Risposta #17 il: Dicembre 23, 2010, 00:13:13 »

Matte risolvimi questo  Evil


Il tappeto di Sierpinski Ŕ un frattale che Ŕ un sottoinsieme dei punti del piano con la potenza del continuo. Questo esercizio esplora la possibilitÓ di "disegnare" una versione discreta del tappeto di Sierpinski.
Il tappeto discreto di Sierpinski di ordine 1 Ŕ la seguente matrice 3x3 di caratteri:
@@@ @ @ @@@ Il tappeto discreto di Sierpinski di ordine k (k > 1) Ŕ la matrice 3kx3k di caratteri definita induttivamente cosý: TTT TBT TTT dove T Ŕ il tappeto discreto di Sierpinski di ordine k-1 e B Ŕ la matrice 3k-1x3k-1 riempita con il carattere spazio.
 
 
Scrivere una funzione void sierpinskiCarpet(int n, char M[n][n], int r0, int c0, int k) che "disegna" il tappeto discreto di Sierpinski di ordine k nella sottomatrice della matrice M con angolo superiore sinistro (r0, c0). Pi¨ precisamente, la sottomatrice comprende le righe da r0 a r0 + 3k-1 e le colonne da c0 a c0 + 3k-1. In caso il tappeto di ordine k non possa essere disegnato completamente nella matrice M a partire da (r0, c0), oppure in caso (r0, c0)non individui una cella di M, M deve essere lasciata invariata.
Loggato
Omega
Rest in Peace
Orpo Team
╔lite Trainer
*
Offline Offline

Posts: 3712


get raped


Guarda Profilo Email
« Risposta #18 il: Dicembre 23, 2010, 01:01:06 »

tds anche qui a rompere le balle fuori dai COGLIONI

C-O-G-L-I-O-N-I

scherzo :)
Loggato
Malva
╔lite Trainer
*
Offline Offline

Sesso: Maschile
Posts: 5234


bellaaa

MalvaRulez@Gmail.com
Guarda Profilo
« Risposta #19 il: Dicembre 23, 2010, 14:13:44 »

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
         .

Loggato

XxTDSxX
New Entry
*
Offline Offline

Posts: 8


Take a trip to wonderland


Guarda Profilo
« Risposta #20 il: Dicembre 23, 2010, 16:25:17 »

la soluzione Ŕ

x = 0

xD
Loggato
Mr.Pkmn
Minimizza i rischi
Amministratore
╔lite Trainer
*
Offline Offline

Sesso: Maschile
Posts: 13918


Liek a boss

vai@quel.paese
Guarda Profilo WWW
« Risposta #21 il: Dicembre 23, 2010, 18:37:14 »

42 semmai
Loggato

Comunque per te Ŕ meglio (parlo di dppt) prendere un pkmn che in teoria "ricarica la squadra , favorisce lo sweep con paralisi , portano via un pokemon avversario" oppure sweeper random con un po di sinergia con gli altri sweepers e stealthrocks di supporto che "fa fuori quello che gli capita e quello che non puo far fuori lo fa un compagno"?

Achtung
Utente Ebreo ✡
╔lite Trainer
*
Offline Offline

Sesso: Maschile
Posts: 2507



Guarda Profilo
« Risposta #22 il: Gennaio 12, 2011, 16:48:33 »

prima ero un hacker, adesso ho smesso, posso dirti solo una cosa, dsevi imparare con gli anni  Yo Yo
spero sia fake
Loggato

Pagine: 1 [2]  Tutte   Vai Su
  Stampa  
 
Salta a:  

Powered by MySQL Powered by PHP Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines
Traduzione Italiana a cura di SMItalia
| Sitemap

Creative Commons License
PokÚstudio ę Copyright 2003-2015 Ŕ pubblicato sotto una Licenza Creative Commons.
Arctic Bay Ŕ un forum dedicato ai PokÚmon senza alcun fine di lucro.
LO-FI Version
XHTML 1.0 Valido! CSS Valido! Dilber MC Theme by HarzeM
Pagina creata in 0.023 secondi con 22 queries.

Google ha visitato per ultimo questa pagina Agosto 03, 2017, 09:41:05