46 lines
1.2 KiB
C
46 lines
1.2 KiB
C
|
// Il preprocessore "include" il testo nel sorgente corrente.
|
||
|
|
// L'estensione .i sta per "intestazione" (come dall'inglese .h sta per "header".)
|
||
|
|
// Includiamo la libreria NoRMale per Ingresso e Uscita dati.
|
||
|
|
#include "libreria/nrmiu.i"
|
||
|
|
|
||
|
|
// Numero costante che non deve cambiare. Dato che è piccolo lo possiamo tenere un una variabile corta.
|
||
|
|
cost corto limite = 10000;
|
||
|
|
|
||
|
|
// int sta per intero. Definiamo la funzione principale da cui parte l'esecuzione del programma.
|
||
|
|
// Dato che non ha parametri, specifichiamo che dentro le parentesi è vuoto.
|
||
|
|
int principale(vuoto)
|
||
|
|
{
|
||
|
|
naturale lungo numero_intero;
|
||
|
|
|
||
|
|
// Stampa una stringa con formattazione
|
||
|
|
stampaf("Inserisci un numero: ");
|
||
|
|
|
||
|
|
// Leggi un numero dall'utente e salvalo nella variabile numero_intero
|
||
|
|
// Per leggere un numero naturale lungo, usiamo %lu
|
||
|
|
leggif("%lu", &numero_intero);
|
||
|
|
|
||
|
|
se(numero_intero > limite)
|
||
|
|
{
|
||
|
|
stampaf("Il tuo numero va oltre il limite.\n");
|
||
|
|
}
|
||
|
|
altrimenti
|
||
|
|
{
|
||
|
|
stampaf("Sequenza di Fibonacci: \n");
|
||
|
|
naturale lungo a = 0;
|
||
|
|
naturale lungo b = 1;
|
||
|
|
naturale contatore = 0;
|
||
|
|
finché(contatore < numero_intero)
|
||
|
|
{
|
||
|
|
naturale lungo somma = a + b;
|
||
|
|
a = b;
|
||
|
|
b = somma;
|
||
|
|
|
||
|
|
stampaf("%lu ", a);
|
||
|
|
|
||
|
|
contatore++;
|
||
|
|
}
|
||
|
|
stampaf("\n");
|
||
|
|
}
|
||
|
|
|
||
|
|
ritorna 0;
|
||
|
|
}
|