Le istruzioni del Turbo Pascal

* Istruzione CASE:
Consente di implementare decisioni multiple basandosi sul confronto fra il risultato dell'espressione ed i valori costanti. È seguita da un'espressione di tipo integer o char e da of.
* Ciclo FOR:
serve per ripetere più volte la stessa operazione. "for i:=1 to n° do..." preceduto da "somma:=0;" e seguito da "somma:= somma+i;". Spesso dopo un'espressione al ciclo for è probabile trovare un begin.
* Ciclo DOWN TO:
serve ad effettuare un calcolo fattoriale, ad effettuare cioè le moltiplicazioni successive a partire dal valore più alto tra quelli inseriti.
* Ciclo ARRAY:
è un tipo di variabile che memorizza tutti i valori dello stesso tipo. Può essere immaginata come un contenitore suddiviso nel quale sono posti i dati. Ogni scomparto ha il suo dato. Va inserita come variabile sotto forma di "1 …n° of integer ;"
* WORD:
è un tipo di dato che viene introdotto nel programma; esso comprende i numeri da 0 a 65535.
* BYTE:
è un altro tipo di dato che comprende i valori tra 0 e 255. Si usa per lo più per le variabili che controllano i cicli.
* IF:
si usa quando si vuole eseguire un'istruzione solo al verificarsi di una determinata condizione. "if i<100 then [...] else [...]". L'else si scrive sempre e comprende il caso in cui il dato inserito non soddisfa la condizione posta. Negli if annidati, per ogni if ci vuole un else, anche non immediato.


program calcolo_scarto;
uses wincrt;
var i: integer;
x: array[1..10] of real;
m, xm, s, e: real;
begin
write ('il programma calcola lo scarto quadratico medio su una serie di 10 > valori');
for j:= 1 to 10 do
begin
write ('inserisci il valore x',j,': ');
read (x[j]);
end;
xm:=0;
for j:= 1 to 10 do
xm:= x[j]+ xm;
m:= xm/10;
s:=0;
for j:= 1 to 10 do
s:= sqr (m-x[j])+s;
e:= sqrt(s/10);
write ('lo scarto quadratico medio e è: ',e);
end.

program fattoriale_1;
uses wincrt;
var n,i,fat:word;
begin
write('introduci n: ');
readln(n);
fat:=1;
for i:=1 to n do
fat:=fat*i;
write('il fattoriale di ',n,'è: ',fat);
end.

program somma;
uses wincrt;
var s,n:integer;
i:integer;
begin
s:=0;
for i:=1 to 5 do
begin
write ('inserisci il ',i,'° numero: ');
read (n);
s:=s+n;
end;
write ('il valore della somma è: 's);
end.