Archivio Telematico

Qui trovi i programmi in Turbo Pascal (TP) che ho realizzato, come completamento di percorsi didattici,

con una breve descrizione :

 

      

Nome del  programma in TP Descrizione

 

Arnia

Frattale costruito partendo da un esagono regolare

       fib(n+1)/fib(n)

 Aureo Calcolo del numero aureo come limite della successione numerica dei rapporti tra due numeri di Fibonacci successivi

√n

 Babil Algoritmo babilonese per il calcolo della radice quadrata di un numero n

                              4        9       2    

                              3       5       7     

                              8       1       6

 Cinese Programma di verifica di un quadrato magico
                           Coeffbin Calcolo dei coefficienti binomiali
                            n ! Factoria Calcolo del fattoriale di un numero n
           

                

Fiam Gioco degli 11 fiammiferi

 1   1   2   3  5   8 ...

fibo(1)=1 , fibo(2)=1

fibo(n)=fibo(n-1)+fibo(n-2) per n >2

 Fibonacc Calcolo dei numeri di Fibonacci
      Fiboquad Programma che disegna i quadrati dei numeri di Fibonacci
Frattali

Programma che disegna la Curva di Koch

 

 

 

 Frazioni continue Programma che trasforma un numero razionale ( o un'approssimazione di un numero irrazionale)  in una frazione continua

        [-1,2,2,3]

Frazione continua

(n<0)

 Programma che trasforma un numero razionale <0 in una frazione continua
                          [1,1,2] = 5/3 Dalla frazione continua al numero  Programma che trasforma una frazione continua in un numero razionale

Gioco7s Il gioco del 7 (sonoro)

Il computer sceglie un numero intero positivo<100 in modo casuale , il giocatore deve scrivere s se il numero è multiplo di 7 o inizia o termina per 7 , n in caso contrario .Il programma è completato da ritornelli (inno alla gioia , la pantera rosa ecc..) a seconda delle risposte: le procedure dei ritornelli sono realizzate calcolando le frequenze delle note e utilizzando le istruzioni sound, nosound e delay.

 

                                                     

Labiaer Programma che disegna 2 diversi labirinti, permette a Teseo di arrivare in fondo ad ogni labirinto, trovare il Minotauro e uscire

Labi2 Programma che disegna 2 diversi labirinti, permette a Teseo di arrivare in fondo ad ogni labirinto, trovare il Minotauro e uscire

(Il programma utilizza gli array per descrivere ogni labirinto)

 

Leo Programma che risolve il famoso problema del leone nel pozzo di Fibonacci
                 a11        a12         a13

                 a21        a22         a23

                 a31        a32         a33

 Matrici Tutto sulle matrici

Natale

Il programma, di cui ho scelto la versione di un mio ex alunno , Fulvio Scia (a.s.88/89), disegna vari alberi di Natale, con la grafica del Turbo Pascal, con accompagnamento musicale(Jngle Bells) (costruito nota per nota mediante procedure realizzate calcolando le frequenze delle note e utilizzando le istruzioni sound, nosound e delay).

1  3   6   10   15  ....

 ntriang Calcolo dei numeri triangolari:

tri(n)=1+2+3+....n

nquadrat Calcolo dei numeri quadrati:

q(n)=1+3+5+7+ ...+2n-1=n2

 

 
npenta Calcolo dei numeri pentagonali:

1+4+7+10+...+

1   5   12   22  ....
nesagona Calcolo dei numeri esagonali:

1+5+9+13+...+

1  6  15   28...
ntetra Calcolo dei numeri tetraedrici

(numeri piramidali a base triangolare)

1+3+6+10+...+

1    4   10   20....
npiramid Calcolo dei numeri piramidali:

1 + 4 + 9 + 16+... +

1    5    14    30

 
                       
0 2  3 0 5 0 7 0 0 0
11 0 13 0 0 0 17 0 19 0
0 0 23 0 0 0 0 0 29 0
31 0 0 0 0 0 37 0 0 0
41 0 43 0 0 0 47 0 0 0
0 0 53 0 0 0 0 0 59 0
61 0 0 0 0 0 67 0 0 0
71 0 73 0 0 0 0 0 79 0
0 0 83 0 0 0 0 0 89 0
0 0 0 0 0 0 97 0 0 0
crivello Simulazione del crivello di Eratostene

per l'individuazione dei numeri primi

1   1   1   2   2   3   4   ....

pado(n)=1 per n=1,2,3

pado(n)=pado(n-2)+pado(n-3) per n >3

 padovan Calcolo dei numeri di Padovan

           

padotri Disegno dei triangoli equilateri costruiti con i numeri di Padovan

 

 pdisegno  Approssimazione statistica di p mediante la simulazione del lancio di proiettili su di un bersaglio circolare (grafica)

      p

 pgreco Approssimazione statistica di p mediante la simulazione del lancio di proiettili su di un bersaglio circolare

pado(n+1)/pado(n)

 plastica Calcolo del numero di plastica come limite della successione del rapporto tra due numeri di Padovan successivi

Polonia

Dizionario etimologico di 27 parole in dialetto napoletano derivanti dal greco e 23 dal latino, con la traduzione in polacco per il gemellaggio del Liceo Vittorio Emanuele II con il Liceo Novodowskiego di Cracovia  a.s.1989/90 (ho scelto la versione di Fulvio Scia ed Antonio Ciccarelli)

Il programma realizza anche il disegno delle bandiere italiana e polacca, del golfo di Napoli e un karaoke antelitteram dell'inno italiano e di quello polacco. 

 

 
     polvere Polvere di Cantor: frattale costruito partendo da un segmento,dividendolo in tre parti uguali e tagliando la parte centrale
             2   3   5   7   11   13   17   19     23....... primi

Questo programma consente di calcolare i primi k numeri primi (k<=10000),

di individuare se un numero p è primo (1<p<10000) e di calcolare la

 scomposizione in fattori primi di un numero m

 
Punti notevoli di un triangolo :

baricentro

ortocentro

incentro

circocentro

    

  1  1/3  1/6  1/10 1/15   .....

 recntria Calcolo dei reciproci dei numeri triangolari

       

soffione

Frattale costruito partendo da un segmento che si ramifica

1

1       1

1       2       1

  1        3       3       1

1       4        6          4       1

 tartagli Calcolo del Triangolo di Tartaglia
1    1    1     1     1     1     1   ...

1    2    3     4     5    6     ...

1    3    6    10   15   ...

1    4   10   20   ...

1    5   15   ...

1    6  ...

1   ...

 		 triangol Calcolo del triangolo di Pascal mediante la proprietà: 

ai,j=  

 

1    1    1     1     1     1     1   ...

1    2    3     4     5    6     ...

1    3    6    10   15   ...

1    4   10   20   ...

1    5   15   ...

1    6  ...

1   ...

 triango2 Calcolo del triangolo di Pascal mediante la proprietà: 

ai,j  = a i-1,j  + ai,j-1
Triangolo di Sierpinski Costruzione del frattale triangolo di Sierpinski
1/1       1/2       1/3        1/4       1/5    ...

1/2       1/6      1/12     1/20     ....

1/3      1/12     1/30     ...

1/4      1/20     ...

1/5       ...

 Triarmo Calcolo del triangolo armonico mediante la proprietà :

armoi,j =  armoi-1,j- armoi-1,j+1
1/1       1/2       1/3        1/4       1/5    ...

1/2       1/6      1/12     1/20     ....

1/3      1/12     1/30     ...

1/4      1/20     ...

1/5       ...

 		 triarmo2

Questo programma verifica che la serie della prima riga del triangolo armonico diverge all'infinito, mentre le serie di ogni riga i-esima convergono ad armo(i-1,1)
     

 Quando, scorrendo le varie pagine del sito, trovi questa animazione ,

vuol dire che puoi mandare in esecuzione  il programma in Turbo Pascal

 relativo al contenuto didattico della pagina