OII – Fase Territoriale « Programmare con Pascal

Category Archives: OII – Fase Territoriale

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.

…