|
Program Esempio2;
Uses Crt,WinDos;
Var nome1,nome2,stringa:string;
file1,file2:text;
begin
clrscr;
write(Inserire il nome di un file: );
readln(nome1);
write(Inserire il nome del file copia: );
readln(nome2);
Assign(file1,nome1);
Assign(file2,nome2);
Reset(file1);
Rewrite(file2);
repeat
readln(file1,stringa);
writeln(file2,stringa);
until eof(file1);
Close(file1);
Close(file2);
writeln(Copia completata!);
readln
end.
Bene, questo programma non è di immediata comprensione, poiché contiene un concentrato di procedure e regole nuove non indifferente. Procediamo con calma:
Assign(nome1,file1); : questa procedura assegna alla variabile file1 di tipo text il nome del file contenuto nella stringa nome1.
Per questo, è doveroso aprire una parentesi su come Pascal legge i nomi dei file: innanzitutto, un nome può essere composto da al massimo 8 caratteri, estensione esclusa; se il nome supera gli 8 caratteri viene troncato a 6 e si aggiunge un ~1 (il codice ASCII di ~ è 126). Perciò il nome testouno.txt è giusto e viene mantenuto così; testoquattro.txt è sbagliato e il compilatore vi manderà un messaggio di errore (error 2: File not found); testoq~1.txt è la versione giusta dellesempio precedente: i caratteri vengono troncati a 6 e aggiunto un ~1. Inoltre, il nome può contenere anche lindirizzo completo di un file, dove ogni cartella deve sottostare alla legge degli 8 caratteri, perciò: C:\Documents and settings\Proprietario\Fileone.txt è sbagliato, mentre C:\Docume~1\Propri~1\Fileone.txt è giusto.
Per non convertire tutti i nomi a mano, potete scaricare il codice sorgente vb nella sezione Sorgenti->VB.NET, che contiene delle funzioni vb per convertire il nome normale di un file in nome corto.
Reset(file1); : listruzione reset(x), dove x è una variabile inizializzata con Assign e di tipo text o file, serve per aprire il file x, in vista di operazioni di lettura/scrittura su di esso.
Rewrite(file2); : valgono le stesse regole di reset. Rewrite(x:text o file) è una procedura che crea un nuovo file x (se non è specificata la directory nel suo nome, viene creato nel path corrente). Se esiste già un file di nome x, lo sovrascrive.
repeat...until eof(file1); : ripete un ciclo di istruzioni finché lespressione indicata dopo until è vera. Nel nostro caso, il programma continua a leggere, riga per riga, ogni sequenza di caratteri contenuta in file1 e la copia in file2, finché la variabile reimpostata eof (che significa End Of File; supporta solo parametri di tipo text o file) non è vera (se non si mette un segno di comparazione, il compilatore sottintende un =true), e quindi il file da cui leggere è al termine.
Close(file1); : la procedura close chiude un file.
Questo programma è già di un livello più alto: meriterebbe uno studio più accurato per capire il funzionamento, da parte del lettore.
Come si è ben visto, il ciclo repeat...until serve per ripetere un istruzione o un blocco di istruizioni fino a che una condizione non è vera: come avrete sicuramente notato, in questo caso non serve racchiudere il blocco di istruzioni fra un begin ed un end, poichè i confini del blocco sono già repeat e until.
Un ultima osservazione: si può trovare anche un ciclo repeat...until senza istruzioni, così:
(*ripete un ciclo di istruzioni vuoto finchè non viene premuto un pulsante*)
repeat until keypressed;
Anche se è un caso usato non molto spesso, è giusto saperlo.
Nelle strutture iterative, ossia le istruzioni che fanno ripetere sempre uno stesso blocco di istruzioni un certo numero di volte o finchè una condizione è vera, è opportuno controllare sempre che le condizioni di uscita siano giuste. per esempio:
Program CicloInfinito;
Uses crt;
var n:longint;
begin
clrscr;
writeln('Inserire un numero: ');
readln(n);
repeat
n:=n+2;
until n mod 2=0;
readln
end.
Come si vede, viene letta una variabile longint n che viene aumentata di 2 fino a che il resto di n/2 è 0. Ma se n è dispari il ciclo non finirà mai, in quanto n è sempre dispari e perciò n/2 dà come resto sempre 1.
E' bene stare in guardia dai cicli infiniti, sebbene qualche volta possano essere utili.
Per esempio, PRobot è un programma, che forse qualcuno di voi conoscerà, che permette di programmare un robot virtuale con il linguaggio Pascal e di farlo poi combattere. Ecco, in questo case si deve usare un ciclo infinito con molte istruzioni if al suo interno:
repeat
(*ciclo di istruzioni*)
if ... then
...
...
until false;
Il codice ripete sempre il ciclo finchè false non è uguale a true, il che non può mai accadere, in quanto falso è sempre diverso da vero.
Anche se casi border-line, può essere utile conoscerli. |
|
Feeds
Sondaggio
Condividi
Numeri
