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.