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

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.
[newpage]
program coseno;
{dato il seno dell'angolo calcola il coseno}
uses wincrt;
var quadrante :integer;
var sinx,cosx :real;
begin
write ('inserisci il valore di sinx: ');
read (sinx);
if sinx if sinx > 1 then write ('attribuire un valore compreso tra 1 e -1');
if (-1 begin
write ('introduci il quadrante: ');
readln(quadrante);
case quadrante of

1: if sinx else begin
cosx:=sqrt (1-sqr( sinx));
write('il coseno è');
readln(cosx);
end;

2: if sinx else begin
cosx:=-sqrt (1-sqr( sinx));
write('il coseno è');
readln (cosx);
end;

3: if sinx >0 then write ('errato')
else begin
cosx:=-sqrt (1-sqr (sinx));
write('il coseno è ');
readln (cosx);
end;

4: if sinx >0 then write ('errato')
else begin
cosx:=sqrt (1-sqr (sinx));
write('il coseno è');
readln (cosx);
end;
end;
end;
end.

program somma_2;
uses wincrt;
var s,n:integer;
i:integer;
begin
write ('inserisci il valore del n°: ');
read (n);
s:=n;
for i:=1 to 8 do
begin
s:=s+1;
end;
write ('il valore della somma con aggiunta di 8 è: ',s);
end.