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.

82 Capítulo 5. Primeros programas completos<br />

4. Escriba un programa que, <strong>en</strong> primer lugar, lea los coefici<strong>en</strong>tes a2, a1 y a0 de un<br />

polinomio de segundo grado<br />

a2x 2 + a1x + a0<br />

y escriba ese polinomio. Y, <strong>en</strong> segundo, lea el valor de x y escriba qué valor toma<br />

el polinomio para esa x.<br />

Para facilitar la salida, se supondrá que los coefici<strong>en</strong>tes y x son <strong>en</strong>teros. Por<br />

ejemplo, si los coefici<strong>en</strong>tes y x son 1, 2, 3 y 2, respectivam<strong>en</strong>te, la salida puede ser<br />

1x^2 + 2x + 3<br />

p(2) = 9<br />

5. Razone, informalm<strong>en</strong>te, la corrección o falsedad de los sigui<strong>en</strong>tes fragm<strong>en</strong>tos de<br />

programa, cuyo cometido se indica a continuación.<br />

(a) Intercambio del valor de dos variables <strong>en</strong>teras.<br />

x:= x+y;<br />

y:= x-y;<br />

x:= x-y<br />

(b) Dado un <strong>en</strong>tero n, hallar el m<strong>en</strong>or m ≥ n que es par.<br />

m:= n div 2 * 2<br />

6. Los términos de la sucesión de Fibonacci 2 se defin<strong>en</strong> así:<br />

• Los dos primeros son unos.<br />

• Cada término es igual a la suma de los dos anteriores<br />

Es decir: 1, 1, 2, 3, 5, 8, 13, 21, 34, 55, . . .<br />

Suponi<strong>en</strong>do que a y b son dos términos consecutivos de esa sucesión, razone la<br />

corrección de los sigui<strong>en</strong>tes fragm<strong>en</strong>tos de programa desarrollados para hacer avanzar<br />

un paso esos términos:<br />

(a) Si<strong>en</strong>do aux: integer una variable auxiliar para hacer el trasvase de valores:<br />

(b) Sin usar variable auxiliar alguna:<br />

aux:= a; a:= b; b:= aux + a<br />

b:= a+b; a:= b-a<br />

2 Descubierta por Leonardo da Pisa (1180-1250) y publicada <strong>en</strong> su Liber Abacci, <strong>en</strong> 1202.

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

Saved successfully!

Ooh no, something went wrong!