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

Create successful ePaper yourself

Turn your PDF publications into a flip-book with our unique Google optimized e-Paper software.

56 Capítulo 4. Elem<strong>en</strong>tos básicos del l<strong>en</strong>guaje<br />

número <strong>en</strong>tero a cada una de las expresiones por escribir, que indica al<br />

procedimi<strong>en</strong>to Write o WriteLn <strong>en</strong> qué espacio debe justificar (por la derecha)<br />

cada uno de los valores numéricos. Por ejemplo, las instrucciones<br />

sigui<strong>en</strong>tes sitúan sus resultados correctam<strong>en</strong>te sangrados: 4<br />

WriteLn(1234:5,56:5,7:5) 1234 56 7<br />

WriteLn(12:5,345:5,67:5) 12 345 67<br />

La salida puede rebasar el espacio reservado:<br />

• Con datos reales:<br />

WriteLn(12345:3) 12345<br />

Mi<strong>en</strong>tras no se indique lo contrario, la salida de valores reales se escribe <strong>en</strong><br />

notación ci<strong>en</strong>tífica, que es bastante ilegible. Por ejemplo:<br />

2.7315190000E+02<br />

Como primera mejora de esta pres<strong>en</strong>tación, podemos justificar el resultado<br />

a la derecha, como se ha hecho con los datos integer:<br />

Write(a:15) 2.73151900E+02<br />

añadi<strong>en</strong>do a la izquierda los espacios <strong>en</strong> blanco necesarios.<br />

Aún mejor es añadir un doble formato, mostrándose el real <strong>en</strong> notación<br />

decimal: el primer parámetro indica las posiciones totales, como se ha<br />

visto, y el segundo el número de decimales<br />

Write(a:10:3) 273.152<br />

redondeando las cifras visibles si es preciso.<br />

• Con caracteres y cad<strong>en</strong>as de caracteres:<br />

Los valores de tipo carácter pued<strong>en</strong> justificarse mediante un parámetro de<br />

formato que expresa el espacio mínimo total, justificando la salida a la<br />

derecha:<br />

WriteLn(’A’:8) A<br />

WriteLn(’AEIOU’:8) AEIOU<br />

4 Indicamos de este modo las instrucciones (a la izquierda) junto con la salida que produc<strong>en</strong><br />

<strong>en</strong> el output (derecha). Usaremos el símbolo para precisar el espacio ocupado por el carácter<br />

blanco.

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

Saved successfully!

Ooh no, something went wrong!