Ottobre « 2014 « Programmare con Pascal

Monthly Archives: Ottobre 2014

Lo struzzo Simone

Posted on 31/10/2014 by admin

Comments off

Lo struzzo Simone si sposta solo nelle direzioni dei quattro assi cardinali (Nord, Sud, Est, Ovest).
Ogni suo passo misura 1 metro.
Dovete scrivere un programma che, data una sequenza di spostamenti di Simone, misuri quant’è la distanza fra il punto di partenza e il punto di arrivo.

Dati in input

Il file input.txt contiene la sequenza degli spostamenti.
Tale file è costituito da un’unica riga di testo, contenente una sequenza di S, N, E, O (che indicano gli spostamenti nelle direzioni Sud, Nord, Est, Ovest rispettivamente).
La sequenza è terminata da un *.
Ad esempio, il file di input NNESO* dice che Simone si sposta di due metri a Nord, poi di un metro verso Est, poi di un metro verso Sud, e quindi di un metro a Ovest.

Dati in output

Il programma, dopo aver letto il file di input, deve calcolare la distanza in metri fra il punto di partenza e il punto di arrivo, e scriverla su un file di nome output.txt.
Più precisamente, il file output.txt deve contenere un’unica riga.
Su questa riga dovrà comparire il numero intero corrispondente al quadrato della distanza.

Assunzioni

Il file di input non contiene altri caratteri oltre a quelli precisati.
Il numero complessivo di spostamenti contenuti nel file di input è minore o uguale a 100000.
Importante! Il programma non deve scrivere nulla sul video, e non deve interagire con l’utente. Deve solo leggere il file di input e scrivere il file di output.
L’esecuzione del programma deve terminare entro 5 secondi.

Esempi

	input.txt	output.txt
1	`NNSEEESNOENNS*`	`13`
2	`NNESOS*`	`0`
3	`OSOS*`	`8`

Program OII_2001_Lo_struzzo_Simone;

Var

fIN, fOUT: Text;

px, py,

risposta: LongInt;

c : Char;

begin

px:=0;

py:=0;

Assign(fIN, 'input.txt');

Reset(fIN);

While(Not Eof(fIN)) do

Begin

Read(fIN, c);

case(c) of

'N': Inc(py);

'E': Inc(px);

'S': Dec(py);

'O': Dec(px);

end;

End;

Close(fIN);

risposta:=px*px+py*py;

Assign(fOUT, 'output.txt');

Rewrite(fOUT);

write(fOUT, risposta);

Close(fOUT);

end.

Numeri

Posted on 31/10/2014 by admin

Comments off

Scrivete un programma che, dato un numero intero compreso tra 1 e 99 inclusi, scriva la parola italiana corrispondente.

Dati in input

Il file input.txt contiene un numero compreso tra 1 e 99 inclusi.
Il file è costituito da un’unica riga di testo, contenente una o due cifre da 0 a 9.

Dati in output

Il programma, dopo aver letto il file di input, deve fornire la parola corrispondente in italiano, e scriverla su un file di nome output.txt.
Più precisamente, il file output.txt deve contenere un’unica riga.
Su questa riga dovrà comparire la parola italiana corrispondente al numero.

Assunzioni

Il file di input non contiene altri caratteri oltre a quelli precisati.
Qualora lo stesso numero possa essere espresso in più forme, scegliere sempre la più breve (per esempio, “ventuno” e non “ventiuno” o “ventieuno”, “ottantuno” e non “ottantauno” o “ottantaeuno”).
Nel caso precedente, scrivere “ventieuno” al posto di “ventuno” è considerato un errore.
Allo stesso modo, uno spazio nella parola è considerato un errore.
I caratteri accentati devono essere inseriti privi di accento (per esempio, “trentatre” e non “trentatrè” o “trentatre'”).
Importante! Il programma non deve scrivere nulla sul video, e non deve interagire con l’utente.
Deve solo leggere il file di input e scrivere il file di output.
L’esecuzione del programma deve terminare entro 5 secondi.

Esempi

	input.txt	output.txt
1	`12`	`dodici`
2	`23`	`ventitre`
3	`88`	`ottantotto`

Utilizza le funzioni TP6 per le stringhe: Concat(), Delete()

Program OII_2001_Numeri;

Const

CIFRE : array[0..19] of String =

(

'zero', 'uno', 'due', 'tre', 'quattro', 'cinque', 'sei', 'sette', 'otto',

'nove', 'dieci', 'undici', 'dodici', 'tredici', 'quattordici', 'quindici',

'sedici', 'diciassette', 'diciotto', 'diciannove'

);

DECINE : array[2..9] of String =

(

'venti', 'trenta', 'quaranta', 'cinquanta', 'sessanta', 'settanta', 'ottanta', 'novanta'

);

Var

N ,

decina ,

unita : Integer;

numero : String;

fileIN ,

fileOUT: Text;

begin

Assign(fileIN, 'input.txt');

Reset(fileIN);

Read(fileIN, N);

Close(fileIN);

if(N < 20) then

begin

numero:=CIFRE[N];

end

else

begin

decina:=(N DIV 10);

unita :=(N MOD 10);

numero:=Concat(numero, DECINE[decina]);

if(unita <> 0) then

begin

if(unita=1) OR (unita=8) then

Delete(numero, length(numero), 1);

numero:=Concat(numero, CIFRE[unita]);

end;

Assign(fileOUT, 'output.txt');

Rewrite(fileOUT);

Write(fileOUT, numero);

Close(fileOUT);

end.

Il cassiere Camillo

Posted on 31/10/2014 by admin

Comments off

È venerdì, e il cassiere Camillo ha davanti a sé una lunga fila di clienti della sua banca venuti a ritirare contante per il weekend.
Per fare presto, Camillo decide di usare per ogni cliente il numero minimo possibile di banconote.
Sapreste scrivere un programma per evitargli il mal di testa, considerato che ha a disposizione banconote da 100.000, 10.000, 5.000, 2.000 e 1.000 in quantità illimitata e che l’entità di ogni prelievo è un multiplo di 1.000 lire?

Dati in input

Il file input.txt contiene l’importo del prelievo. Il file è costituito da un’unica riga di testo, contenente un numero (senza puntini o virgole che raggruppano le cifre a tre a tre!).

Dati in output

Il programma, dopo aver letto il file di input, deve calcolare il numero di banconote necessario per ognuno dei tagli disponibili, e scriverlo su un file di nome output.txt.
Più precisamente, il file output.txt deve contenere cinque righe, che corrispondono (in ordine, dalla prima all’ultima) alle banconote da

100.000
10.000
5.000
2.000
1.000.

Ogni riga deve contenere un unico numero intero, che rappresenta il numero di banconote di quel taglio necessarie.

Assunzioni

Il file di input non contiene altri caratteri oltre a quelli precisati.
L’entità del prelievo è in ogni caso inferiore a 1 miliardo di lire.
Importante!
Il programma non deve scrivere nulla sul video, e non deve interagire con l’utente.
Deve solo leggere il file di input e scrivere il file di output.
L’esecuzione del programma deve terminare entro 5 secondi.

Esempi

	input.txt	output.txt
1	`10000`	`0 1 0 0 0`
2	`152000`	`1 5 0 1 0`
3	`2001000`	`20 0 0 0 1`

Program OII_2001_Il_cassiere_Camillo;

Const

NTAGLI = 5;

TAGLI : array[1..NTAGLI] of LongInt = (100000,10000,5000,2000,1000);

banconote: array[1..NTAGLI] of LongInt = (0,0,0,0,0);

Var

prelievo: LongInt;

i : Integer;

fileIN ,

fileOUT : Text;

begin

Assign(fileIN, 'input.txt');

Reset(fileIN);

Read(fileIN, prelievo);

Close(fileIN);

for i:=1 to NTAGLI do

begin

banconote[i]:=(prelievo DIV TAGLI[i]);

prelievo :=(prelievo MOD TAGLI[i]);

end;

Assign(fileOUT, 'output.txt');

Rewrite(fileOUT);

for i:=1 to NTAGLI do

WriteLn(fileOUT, banconote[i]);

Close(fileOUT);

end.

La biblioteca degli smemorati

Posted on 31/10/2014 by admin

Comments off

La vostra biblioteca rionale ha qualche problema nello stabilire da quanto tempo gli utenti tengono i libri.
Dovete aiutarli scrivendo un programma che, prese in input due date del 2001, stabilisca quanti giorni intercorrono tra le due date.

Dati in input

Il file input.txt è formato da una riga che contiene la data iniziale e la data finale del prestito.
Più precisamente, la riga contiene quattro interi: la prima coppia specifica la data iniziale, la seconda la data finale.
Ogni data è formata da due numeri, e cioè il giorno del mese e il numero del mese.

Dati in output

Il programma, dopo aver letto il file di input, deve stabilire quanti giorni intercorrono tra le due date, e scrivere il numero di giorni su un file di nome output.txt.

Più precisamente, il file output.txt deve contenere un’unica riga.
Su questa riga dovrà comparire il numero intero corrispondente ai giorni che intercorrono tra le due date in input.

Assunzioni

Il file di input non contiene altri caratteri oltre a quelli precisati.
Trenta giorni a novembre, con april, giugno e settembre; di ventotto ce n’è uno: tutti gli altri ne han trentuno.
La seconda data non precede mai la prima.
Il numero di giorni considerato non comprende quello iniziale: quindi, ad esempio, tra il 2 gennaio e il 2 gennaio intercorrono 0 giorni, tra il 30 gennaio e il 2 febbraio intercorrono tre giorni, e così via.
Importante! Il programma non deve scrivere nulla sul video, e non deve interagire con l’utente. Deve solo leggere il file di input e scrivere il file di output.
L’esecuzione del programma deve terminare entro 5 secondi.

Esempi

	input.txt	output.txt
1	`2 3 2 3`	`0`
2	`30 1 2 2`	`3`
3	`1 5 2 7`	`62`

Program OII_2001_La_biblioteca_degli_smemorati;

Const

GIORNI : array[1..12] of Integer = (31,28,31,30,31,30,31,31,30,31,30,31);

Var

g1, m1,

g2, m2,

distanza: Integer;

fileIN,

fileOUT : Text;

begin

Assign(fileIN, 'input.txt');

Reset(fileIN);

Read(fileIN, g1, m1, g2, m2);

Close(fileIN);

if(m1 = m2) then

begin

distanza:=g2-g1;

end

else

begin

distanza:=(GIORNI[m1]-g1);

for i:=m1+1 to m2-1 do

Inc(distanza, GIORNI[i]);

Inc(distanza, g2);

end;

Assign(fileOUT, 'output.txt');

Rewrite(fileOUT);

Write(fileOUT, distanza);

Close(fileOUT);

end.

…

2003/04 – Fase scolastica – 05

Posted on 16/10/2014 by admin

Comments off

Si consideri la seguente funzione:

Function A(n: Integer; m: Integer): Integer;

Begin

If n = 0 Then

A:=1

Else

If n Mod 2 = 0 Then

A:=A(n Div 2, m)*A(n Div 2, m)

Else

A:=m*A(n-1, m)

End;

Dire quale sarà il valore tornato dalle chiamate

A(3, 2)
A(4, 3)
A(5, 4).

Soluzione

Soluzioni commentate

Nella versione Pascal c’è un errore di trascrizione del testo proposto: return n*A(n-1, m) invece di m*A(n-1, m).
Pertanto la risposta corretta è 3, 1, 5.

Considerando peraltro che qualcuno avrebbe potuto identificare l’errore (confrontando con la versione C, ad esempio), si possono ritenere valide sia la risposta 8, 81, 1024 che quella 3, 1, 5.

2003/04 – Fase scolastica – 04

Posted on 16/10/2014 by admin

Comments off

Si consideri la seguente funzione conta() che prende in input un vettore di numeri di lunghezza n (assumendo che n sia compreso fra 2 e 100):

Type

sequenza = Array[1..100] Of Integer;

Function conta(vett: sequenza; n: Integer): Integer;

Var

i, j, k: Integer;

Begin

i:=0;

k:=0;

j:=1;

For i:=1 To n-1 Do

If(vett[i] < vett[i+1]) Then

j := j+1

Else

Begin

If(k < j) Then

k:=j;

j:=1;

End;

conta:=k

End;

Quale delle seguenti affermazioni è vera?

Risposte:

la funzione restituisce il numero di interi presenti nel vettore
la funzione restituisce il massimo valore presente nel vettore
la funzione restituisce la lunghezza della più lunga sottosequenza ordinata (in modo strettamente crescente) all’interno del vettore
nessuna delle precedenti affermazioni è vera.

Soluzione

Soluzioni commentate

Se la sottosequenza più lunga non è l’ultima del vettore, allora la funzione ne restituisce la lunghezza (risposta c); se, invece, questa sottosequenza è l’ultima del vettore, il programma non ne conta correttamente la lunghezza (risposta d).

Si decide, dunque, di ritenere valida sia la risposta c che la d.

2003/04 – Fase scolastica – 03

Posted on 16/10/2014 by admin

Comments off

Si considerino le due seguenti funzioni:

Function A(n: Integer): Integer;

Begin

If n > 0 Then

A:=n+A(n-1)

Else

A:=0

End;

function B(n: integer): integer;

begin

B := (n*(n+1) div 2)

end;

Quale delle seguenti affermazioni è vera?

Risposte:

la funzione A calcola il fattoriale di un numero mentre la funzione B calcola la sommatoria di tutti i numeri compresi fra 1 ed n.
sia la funzione A che la funzione B calcolano la sommatoria di tutti i numeri compresi fra 1 ed n, assumendo n maggiore o uguale a 1.
la funzione A e la funzione B calcolano esattamente la stessa funzione.
nessuna delle precedenti affermazioni è vera.

Soluzione: b.

Soluzione

Tratta da: Materiali didattici 2008

Si tratta di riconoscere semplici algoritmi e formule di base; nel caso specifico della funzione A l’algoritmo ricorsivo che calcola la somma dei naturali da 1 ad n.
Nel caso della funzione B occorre riconoscere la formula di Gauss per lo stesso calcolo.

2004/05 – Fase scolastica – 03

Posted on 16/10/2014 by admin

Comments off

Si consideri il seguente frammento di programma:

Function B(n: Integer): Integer; Forward;

Function A(n: Integer): Integer;

Begin

If (n = 0) Then

A:=0

Else If(n Mod 2 = 0) Then

A:=n+B(n)

Else

A:=B(n)

End;

Function B(n: Integer): Integer;

Begin

If(n = 0) then

B:=0

Else If(n Mod 2 = 1) Then

B:=n+A(n-1)

Else

B:=A(n-1)

End;

Dire che cosa calcola la funzione A() assumendo che venga invocata passando un intero positivo.

Soluzione: La somma di tutti di tutti i naturali tra 0 ed il parametro.

Soluzione

Tratta da: Materiale didattico 2008

Si tratta di un esempio di funzioni mutualmente ricorsive.
In modo volutamente contorto viene calcolata la somma distinguendo tra n pari ed n dispari.

Ad esempio

A(3) = B(3) = 3+A(2) = 3+2+B(1) = 3+2+1+A(0) = 3+2+1+0 = 6.

2004/05 – Fase scolastica – 06

Posted on 16/10/2014 by admin

Comments off

Si consideri la seguente funzione:

Function trova(bersaglio: Integer; valori: sequenza): Integer;

Var

contatore: Integer;

Begin

contatore:=1;

While valori[contatore] <> bersaglio Do

Begin

contatore:=contatore+1;

End;

trova:=contatore-1;

End;

Essa serve a determinare l’indice in cui si trova un certo valore (rappresentato dal parametro bersaglio) in un vettore (rappresentato dal parametro valori).

La funzione, però, funziona sempre solo se vale un vincolo specifico rispetto ai dati in ingresso, quale?

Soluzione: Che il valore cercato esista effettivamente nel vettore di input.

Soluzione

Tratta da: Materiale didattico 2008

Si consideri che nel caso il valore non esista nel vettore, non essendoci un controllo sulla fine del vettore, avrà luogo una condizione di errore al termine della scansione del vettore stesso.

2005/06 – Fase scolastica – 02

Posted on 16/10/2014 by admin

Comments off

Si consideri la seguente funzione:

Function funzione(): Integer;

Var

contatore: Integer;

sum : Integer;

Begin

contatore:=0;

sum :=0;

While(contatore <= 4) Do

Begin

contatore:=contatore+1;

sum :=sum+contatore;

End;

funzione:=sum;

End;

Quale valore restituisce la funzione?

Risposte:

10
15
16
Nessuna delle risposte precedenti.

Soluzione: b.

Soluzione

Tratta da: Materiale didattico 2008

Il ciclo while viene eseguito 5 volte (contatore che va da 0 a 4 compreso).
La variabile contatore viene incrementata all’inizio: quindi nel ciclo stesso il contatore assumerà i valori da 1 a 5.
Nel ciclo si calcola chiaramente la sommatoria di tali valori, che vale 15.
La funzione restituisce quindi il valore 15.