Pascal/Array: differenze tra le versioni

Contenuto cancellato Contenuto aggiunto
Ramac (discussione | contributi)
cambio avanzamento a 100%
Ramac (discussione | contributi)
+ esercizi
Riga 55:
scheda: array['a'..'z'] of integer
</source>
e così vale per gli altri tipi di dati, anche quelli enumerativi. Valgono anche dichiarazioni come:
<source lang=pascal>
type
mese : (gen, feb, mar, apr, mag, giu, lug, ago, set, ott, nov, dic)M
var
nomi_mesi: array[mese] of string;
</source>
 
Per accedere ai valori dell'array, è sufficiente comportarsi come con le variabili normalnormale, usando la notazione
nome_array[indice]
Ad esempio:
Line 191 ⟶ 197:
</source>
 
== Esercizi ==
* Creare un programma che stampi i primi ''n'' numeri della ''successione di Fibonacci'' (la serie di Fibonacci è una serie di numeri F dove F<sub>0</sub> = 0, dove F<sub>1</sub> = 1 e ciascun altro dove F<sub>''n''</sub> = F<sub>''n''-1</sub> + F<sub>''n''-2</sub>)
{{cassetto|titolo=Soluzione|testo=
<source lang=pascal>
program Fibonacci;
{$APPTYPE CONSOLE}
var fib:array[1..23] of longint;
i, t : integer;
begin
repeat
write('Quanti numeri della serie vuoi che ti indichi [3-100]? ');
readln(t);
until (t>2) and (t<100);
fib[1]:=1 ;
fib[2]:=1;
write(fib[1]:6);
write(fib[2]:6);
for i := 3 to t do
begin
fib[i]:=fib[i-1]+fib[i-2];
write(fib[i]:6);
end;
readln;
end.
</source>
}}
[[Categoria:Pascal|Array]]
{{Avanzamento|100%|31 dicembre 2007}}