program ESAME;
var A, B: real;
procedure F (X, Y: real);
var W: real;
begin
W := X;
X := Y;
Y := W;
end;
function G (X, Y: real): real;
var W: real;
begin
W := 0.0;
W := X;
X := Y;
Y := W;
G := Y;
end;
begin
A := 2.3; B := 7.8;
F(A, B); writeln(A, ' ', B);
A := G(A, B); writeln(A, ' ', B);
end.
program ESAME2;
......
procedure RIGHE(char c);
{la procedura RIGHE costruisce un file su disco di nome 'righe.text' }
{che contiene tante righe con esattamentre un carattere c}
{quante sono le righe del file su disco di nome 'rows.text'}
.......
begin
{leggere un caratere dallo standard input, sia X,
e poi chiamare RIGHE con X come parametro attuale}
.......
end.
program ESAME3;
const
MAX = 100;
type
POLI = .......
{gli elementi del tipo POLI sono i polinomi in una variabile di grado massimo MAX}
{con coefficienti inteeri}
var
A, B: POLI;
.......
{procedura o funzione STAMPA per stampare un elemento di POLI}
.............
{procedura o funzione SOMMA per sommare due elementi di POLI}
.............
{procedura o funzione DERIVA per derivare un elemento di POLI}
.............
begin
{assegnare ad A il polinomio 3 X3 + 7x -8}
..........
{assegnare a B il polinomio 2 X2 - 7x + 18}
..........
{stampare A e B}
..........
{stampare la somma di A e B}
..........
{stampare la derivata di A}
..........
{stampare A e B}
..........
end.