09.05.2013 Views

Algoritmos y Programación en Pascal

Algoritmos y Programación en Pascal

Algoritmos y Programación en Pascal

SHOW MORE
SHOW LESS

You also want an ePaper? Increase the reach of your titles

YUMPU automatically turns print PDFs into web optimized ePapers that Google loves.

14.3. Archivos de texto 297<br />

ReadLn(archivoDeTexto, v1, v2, ..., vN)<br />

que es equival<strong>en</strong>te a:<br />

Read(archivoDeTexto, v1);<br />

Read(archivoDeTexto, v2);<br />

...<br />

ReadLn(archivoDeTexto, vN)<br />

• La instrucción WriteLn(archivoDeTexto, expresión) se usa para escribir<br />

el valor de expresión <strong>en</strong> el archivoDeTexto y poner la marca de fin de<br />

línea. Asimismo, podemos omitir la expresión, produciéndose <strong>en</strong>tonces<br />

simplem<strong>en</strong>te un salto de línea.<br />

Existe también la posibilidad de utilizar la instrucción:<br />

WriteLn(archivoDeTexto, e1, e2, ..., eM)<br />

que es equival<strong>en</strong>te a:<br />

Write(archivoDeTexto, e1);<br />

Write(archivoDeTexto, e2);<br />

...<br />

WriteLn(archivoDeTexto, eM)<br />

Como una g<strong>en</strong>eralización de lo dicho <strong>en</strong> este tema sobre el uso de las funciones<br />

EoLn y EoF, se observa que la estructura g<strong>en</strong>eral de los programas que procesan<br />

archivos de texto constan frecu<strong>en</strong>tem<strong>en</strong>te de dos bucles anidados: uno controlado<br />

por EoF y otro por EoLn, como se muestra a continuación, <strong>en</strong> un programa<br />

g<strong>en</strong>érico de procesami<strong>en</strong>to de archivos de texto.<br />

Program LecturaArchivoTexto (input, output, archivoDeTexto);<br />

Definición de tipos y declaración de variables<br />

begin {Proceso de archivo de texto}<br />

...<br />

Reset(archivoDeTexto);<br />

while not EoF(archivoDeTexto) do begin<br />

while not EoLn(archivoDeTexto) do begin<br />

Read(archivoDeTexto, dato);

Hooray! Your file is uploaded and ready to be published.

Saved successfully!

Ooh no, something went wrong!