Pillaus di Pillaus
Genius 7338 punti

Istruzioni per il 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.

Esempi di programmi

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 < -1 then write ('attribuire un valore compreso tra 1 e -1');
if sinx > 1 then write ('attribuire un valore compreso tra 1 e -1');
if (-1 <= sinx ) and ( sinx <= 1 ) then
begin
write ('introduci il quadrante: ');
readln(quadrante);
case quadrante of

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

2: if sinx <0 then write ('errato')
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.

Registrati via email