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.

498 Apéndice B. El l<strong>en</strong>guaje Turbo <strong>Pascal</strong><br />

B.6 Tipos de datos estructurados<br />

Las particularidades de Turbo <strong>Pascal</strong> <strong>en</strong> cuanto a estos tipos de datos son<br />

escasas: <strong>en</strong> lo refer<strong>en</strong>te a arrays, se debe señalar que los procedimi<strong>en</strong>tos Pack y<br />

Unpack no están definidos <strong>en</strong> Turbo <strong>Pascal</strong>.<br />

B.7 Instrucciones estructuradas<br />

Las difer<strong>en</strong>cias con <strong>Pascal</strong> <strong>en</strong> cuanto a instrucciones estructuradas se limitan<br />

al tratami<strong>en</strong>to de la instrucción case, que <strong>en</strong> Turbo <strong>Pascal</strong> pres<strong>en</strong>ta tres<br />

variaciones, que son las sigui<strong>en</strong>tes:<br />

• En Turbo <strong>Pascal</strong> el valor de la expresión selectora de un case puede no<br />

coincidir con alguna de sus constantes sin que se produzca error, como<br />

sucedería <strong>en</strong> <strong>Pascal</strong> estándar. En este caso, <strong>en</strong> Turbo <strong>Pascal</strong> continúa la<br />

ejecución del programa <strong>en</strong> la instrucción que sigue a case.<br />

• La instrucción case <strong>en</strong> Turbo <strong>Pascal</strong> puede disponer de una parte else que<br />

se ejecuta cuando la expresión selectora no coincide con ninguna de sus<br />

constantes.<br />

• D<strong>en</strong>tro de las constantes de la instrucción case, Turbo <strong>Pascal</strong> permite la<br />

definición de intervalos, lo que no está permitido <strong>en</strong> <strong>Pascal</strong> estándar.<br />

A continuación se muestra un pequeño ejemplo de las difer<strong>en</strong>cias anteriores<br />

y su sintaxis.<br />

program ClasificacionDeCaracteres (input, output);<br />

var<br />

car: char;<br />

begin<br />

Write(’Introduzca un carácter: ’);<br />

ReadLn(car);<br />

case car of<br />

’a’..’z’:WriteLn(’Es minúscula’);<br />

’A’..’Z’:WriteLn(’Es mayúscula’);<br />

’0’..’9’:WriteLn(’Es número’)<br />

else WriteLn(’Es un símbolo’)<br />

<strong>en</strong>d {case}<br />

<strong>en</strong>d. {ClasificacionDeCaracteres}

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

Saved successfully!

Ooh no, something went wrong!