La Sezione Aurea

(*main program*)
begin
repeat
clrscr;
textcolor(10);
writeln('~~~~ SEZIONE AUREA ~~~~ Milani Damiano');
writeln; textcolor(15);
writeln('Scegli il tipo di algoritmo tramite cui vuoi calcolare un''approssimazione
di phi');
writeln('[a] funzione continua');
writeln('[b] radici nidificate');
writeln('[c] sequenza di Fibonacci');
writeln; write('=>');
readln(scelta); writeln; textcolor(14);
Ha quindi inizio il main program; è preposta l’istruzione repeat per fare in modo che sia possibile
ripetere l’intero programma a piacimento. Vengono presentate le tre opzioni per calcolare il valore
approssimato di φ, ciascuna associata a un carattere.
case scelta of
‘a’: begin
writeln(‘FUNZIONE CONTINUA’); textcolor(15);
writeln(‘Inserisci il numero n di volte che si desidera ripetere il ciclo’);
readln(n);(*maggiore sarà n, migliore sarà l’approssimazione di phi*)
writeln; writeln;
frazione(n);
end;
‘b’: begin
writeln(‘RADICI NIDIFICATE’); textcolor(15);
writeln(‘Inserisci il numero n di volte che si desidera ripetere il ciclo’);
readln(n);(*maggiore sarà n, migliore sarà l’approssimazione di phi*)
writeln; writeln;
radici(n);
end;
‘c’: begin
writeln(‘SEQUENZA DI FIBONACCI’); textcolor(15);
writeln(‘Inserisci il numero n di elementi della sequenza di Fibonacci’);
readln(n);(*maggiore sarà n, migliore sarà l’approssimazione di phi*)
writeln; writeln;
fibonacci(n);
end;
end;
Il comando case…of…end permette la selezione multipla tra i diversi procedimenti: ciascuna delle
lettere associate alle opzioni precedenti consente l’esecuzione di una delle tre procedure dichiarate
all’inizio del programma. Tutte le procedure passano per valore la variabile n, che decide il criterio
di interruzione dei cicli di ciascuna procedura. In tutti i casi maggiore sarà il valore di n migliore
sarà l’approssimazione di φ.
end.
textcolor(14);
writeln;writeln;writeln;
writeln('Type ''esci'' to exit or press enter to continue');
write('=>');
readln(uscita);
until (uscita='esci') or (uscita='ESCI');
Il programma è perciò terminato. L’istruzione repeat…until consente la ripetizione dell’intero
programma, a meno che non venga digitata la parola esci.
21