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.

A.3. Ejercicios 489<br />

1<br />

0.8<br />

0.6<br />

0.4<br />

0.2<br />

-0.2<br />

5 10 15 20<br />

Figura A.7.<br />

11. Construya un procedimi<strong>en</strong>to g<strong>en</strong>eral de ord<strong>en</strong>ación <strong>en</strong> el que el criterio por el que<br />

se ord<strong>en</strong>an los elem<strong>en</strong>tos sea un subprograma que se suministra como parámetro.<br />

El <strong>en</strong>cabezami<strong>en</strong>to del procedimi<strong>en</strong>to es<br />

type<br />

tVector = array [1..n] of tElem<strong>en</strong>to;<br />

procedure Ord<strong>en</strong>ar(var v:tVector;<br />

function EsAnterior(x, y:tElem<strong>en</strong>to):boolean);<br />

Con este procedimi<strong>en</strong>to se consigue una gran flexibilidad, al poder ord<strong>en</strong>ar el<br />

vector <strong>en</strong> la forma que más interese al usuario, con llamadas a Ord<strong>en</strong>ar <strong>en</strong> las que<br />

EsAnterior se particularice con las relaciones de ord<strong>en</strong> “

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

Saved successfully!

Ooh no, something went wrong!