Liceo Ariosto-Spallanzani
Corso
di
Programmazione in Pascal
Lezione 1 – Ripasso Strutture iterative
F. M. Ferrari
Strutture Iterative
ISTRUZIONE
O BLOCCO
ISTRUZIONI
FALSA
CONDIZIONE
VERA
For i:=1 to n do
Begin
End;
CONDIZIONE
FALSA
ISTRUZIONE
O BLOCCO
ISTRUZIONI
VERA
Strutture Iterative
i:=1;
WhileISTRUZIONE
Oi<=n
BLOCCO do
ISTRUZIONI
FALSA
CONDIZIONE
VERA
Begin
i:=i+1;
….
End;
CONDIZIONE
FALSA
ISTRUZIONE
O BLOCCO
ISTRUZIONI
VERA
Strutture Iterative
ISTRUZIONE
O BLOCCO
ISTRUZIONI
Repeat
….
Until (i>n);
CONDIZIONE
FALSA
VERA
REPEAT .... UNTIL
Confronto: For vs While
For i:=1 to n do
Begin
End;
i:=1;
While i<=n do
Begin
i:=i+1;
….
End;
Confronto: For vs While
Stampa numeri pari
Readln(n);
For i:=1 to n do
Begin
num:=i*2;
writeln(num);
End;
Readln(n);
i:=1;
While i<=n do
Begin
num:=i*2;
writeln(num);
i:=i+1;
End;
Confronto: For vs Repeat
Stampa numeri pari
Readln(n);
For i:=1 to n do
Begin
num:=i*2;
writeln(num);
End;
Readln(n);
i:=1;
Repeat
num:=i*2;
writeln(num);
i:=i+1;
Until (i>n);
Esercitiamoci
Proviamo a stampare il valore della sommatoria
n
1

i 1 i
Diamo in input n
Program Serie;
Var i, n: integer;
somma: real;
Begin
Writeln(‘Inserisci il limite del ciclo’);
Readln(n);
Somma:=0;
i:=1;
For i:=1 to n do
While i<=n do
begin
begin
somma:=somma+1/i;
somma:=somma+
end;
i:=i+1;
Writeln(‘la somma al termine ’, n, ‘ vale End;
’, somma:0:2);
Readln;
End.
Program Serie;
Var i, n: integer;
somma: real;
Begin
Writeln(‘Inserisci il limite del ciclo’);
Readln(n);
Somma:=0;
i:=1;
For i:=1 to n do
Repeat
begin
somma:=somma+1/i;
somma:=somma+1/i;
i:=i+1;
end;
Until (i>n);
Writeln(‘la somma al termine ’, n, ‘ vale
’, somma:0:2);
Readln;
End.