Instituto de Computaci=F3n - Curso de Programaci=F3n = 1

From: Subject: =?Windows-1252?Q?Instituto_de_Computaci=F3n_-_Curso_de_Programaci=F3n_1?= =?Windows-1252?Q?_-_Pr=E1ctico_2?= Date: Wed, 14 Sep 2005 08:48:01 -0300 MIME-Version: 1.0 Content-Type: multipart/related; boundary="----=_NextPart_000_0000_01C5B909.03B4EC40"; type="text/html" X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2800.1506 This is a multi-part message in MIME format. ------=_NextPart_000_0000_01C5B909.03B4EC40 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable Content-Location: http://www.fing.edu.uy/inco/cursos/prog1/pm/uploads/Materiales/Practico2.html Instituto de Computaci=F3n - Curso de Programaci=F3n = 1 - Pr=E1ctico 2 Instituto de Computaci=F3n
Curso de=20 Programaci=F3n 1 - Pr=E1ctico 2

Ejercicio 1 Suponga que se tiene la siguiente secuencia de = proposiciones=20 de entrada (considere que todas las variables se declararon como = enteras):

read (x,y,z);
readln (a);
readln = (b,c);=20
read (d)

Obtenga los valores de las variables a, b, = c,=20 d, x, y, y z si se utilizaron estos = datos de=20 entrada :

8 7 2 1 3
1 4 4 6 2
3 7

Indique los valores de las variables

Ejercicio 2 Dadas las siguientes declaraciones de variables =

VAR
a,b,c: integer;
x,y,z:=20 real;

y los siguientes datos de entrada

3 2.3 -6.5
1 5 2.1

encuentre los errores, si existen, al ejecutar las siguientes = secuencias de=20 proposiciones.

read (x,y,z)=20
read (a,b,x)=20
read (a,x,y); read (b,z,c)=20
readln (a,x); read (b,c,y,z)

Ejercicio 3 = =BF Qu=E9 se=20 exhibir=E1 cuando se ejecuten las siguientes proposiciones Pascal ?=20

writeln (`Valor1 es ', 3);
writeln (`Valor2 es ', = 5);=20
writeln (`La suma es ', 3 + 5)

Ejercicio 4 =BF Qu=E9 se exhibir=E1 cuando se ejecuten las = siguientes=20 proposiciones Pascal ?

writeln (86, 39);
writeln (`a =3D '); =
writeln=20 (32.5);
writeln (`a =3D ', 86, `b =3D ', 32.5)

Ejercicio 5 =BF Qu=E9 se exhibir=E1 cuando se ejecute el = siguiente programa=20 en Pascal ?

PROGRAM adivina (input, output);
VAR=20
a,b,c: integer;
x,y,z: real;=20
BEGIN
a :=3D 0;
b :=3D = 2;=20
c :=3D 1;
x :=3D 5.2; =
y :=3D=20 3.6;
z :=3D 4.1;
write (`Los = valores=20 son');
write (a, b, c);
writeln = (x, y,=20 z);
writeln (`La suma es', x + y + z);=20
writeln (`El producto es', a * b * c) =
END.

Ejercicio 6 Determine la salida exacta del siguiente programa = en=20 Pascal.

PROGRAM salea (input, output);
VAR =
a:=20 char;
b: integer;
BEGIN =
a :=3D=20 `x';
b :=3D -12;
writeln (a:2, = b:5)=20
END.

Ejercicio 7 Suponga que a, b, c, y=20 d son variables enteras. Determine los valores de a,=20 b, c, y d despu=E9s de la ejecuci=F3n de las = siguientes=20 proposiciones con los datos que se muestran.
=20

proposici=F3n datos

readln (a, b) 2 15 6 4

readln (c) 1 -3 7 9

read (d) 8 12 -1 5

Ejercicio 8 Suponga que m y t son variables = enteras=20 con los valores 4 y -18 respectivamente. Determine la salida exacta de = la=20 siguiente proposici=F3n : write (`Valor':8,m:2,t:4)

Ejercicio 9 Suponga que a, b y c son = variables=20 enteras. Un usuario escribe la siguiente secuencia de caracteres en la = terminal=20 (donde b representa un espacio en blanco) :

1b2
3b4

Indique cu=E1l proposici=F3n o secuencia de proposiciones = no=20 producir=E1 los valores a =3D 1, b =3D 2, y c =3D = 3:

Ejercicio 10 =BF Cu=E1les de las siguientes proposiciones har=E1 = que se escriba=20 la palabra PRIMERA en las columnas 1 a 7, el valor de la = variable=20 entera siguiente de manera que termine en la columna 20, y que = se=20 escriba la palabra ULTIMA en las columnas 75 a 80 ?

Ejercicio 11 Suponga que x, y, y z son = variables enteras. Considere el siguiente segmento de programa : = readln (x);=20 readln (y); readln (z), y las siguientes l=EDneas escritas por un = usuario=20 cuando se ejecuta el segmento de programa (b representa un = espacio en=20 blanco).

12b34b56
7.0b9b1.0
bbbbbb=20
b11b22

Indique los valores almacenados en x, y, y = z luego=20 de la ejecutar el segmento de programa con los datos ingresados por el = usuario.=20

Ejercicio 12 =BF Cu=E1l ser=E1 la salida exacta que se produce = cuando se=20 ejecuta el siguiente programa ?

PROGRAM prueba (input, output);
CONST hey =3D = `HOLA';=20
VAR r, s : real;
BEGIN
r :=3D = 6.1;=20
s :=3D 7.2;
writeln (hey:6);=20
write (`R =3D ');
write (r:5:2);=20
writeln;
write (`S =3D ');=20
write (s:3:1)
END.

Ejercicio 13 =BF C=F3mo maneja el sistema del lector los = caracteres de=20 tabulaci=F3n en la entrada de datos ? Para averiguarlo, ejecute el = siguiente=20 programa y proporcione como datos de entrada un car=E1cter de = tabulaci=F3n, un punto=20 y un retorno de carro.

PROGRAM tab (input, output);
VAR c1, c2, c3 : = char;=20
BEGIN
read (c1, c2, c3); =
writeln=20 (ord (c1), ord (c2), ord (c3))
END.

Ejercicio 14 =BF Qu=E9 salida producir=E1 el siguiente = programa cuando se=20 teclee la l=EDnea de datos de entrada 1.2.3.4 ?

PROGRAM entraro (input, output);
VAR c : char;=20
r : real;
e : integer; =
BEGIN=20
readln (r, c, e);
writeln (r, c, = e)=20
END.

Ejercicio 15 =BF Qu=E9 exhibir=E1n las siguientes = proposiciones (suponiendo=20 que r es una variable real) ?

r :=3D 91.2;
writeln (r:3:0)

Ejercicio 16 =BF Permite el Pascal del lector variables = booleanas en=20 proposiciones read ? Si es as=ED, =BF qu=E9 se debe escribir = para=20 proporcionar los datos true y false ?

Ejercicio 17 En los datos de entrada se proporcionan dos = tiempos como=20 enteros de la forma hhmm donde hh representa las horas (menos de 24) y = mm los=20 minutos (menos de 60). Determine la suma de estos dos tiempos, y exhiba = el=20 resultado en la forma d hhmm, donde d es d=EDas, ya sea cero o uno.

Ejemplo de entrada : 1345 2153.

Ejemplo de salida : 1 1138.

Ejercicio 18 El error relativo en una medici=F3n m es = la raz=F3n de=20 la diferencia absoluta entre la medici=F3n y el valor verdadero v = al valor=20 verdadero. Suponga que los datos de entrada se dan en una sola l=EDnea = que incluye=20 dos n=FAmeros reales que representan la medici=F3n m y el valor = verdadero=20 v. Calcule el error relativo de la medici=F3n y exh=EDbase junto = con la=20 medici=F3n y el valor verdadero. Incluya etiquetas descriptivas para los = valores=20 exhibidos.

Ejemplo de entrada : 51.0 51.3.

Ejemplo de salida : Medici=F3n =3D 5.1000000000e+01 =
Valor=20 verdadero =3D 5.1300000000e+01
Error relativo =3D=20 5.8479532161e-03.

Ejercicio 19 No es posible utilizar una computadora para = generar=20 n=FAmeros aleatorios genuinos ya que es preciso utilizar un algoritmo = para generar=20 los n=FAmeros, lo que implica que es posible predecir los n=FAmeros = generados. Lo=20 que s=ED pueden hacer las computadoras es generar n=FAmeros = seudoaleatorios (n=FAmeros=20 que, estad=EDsticamente, parecen ser aleatorios). Una t=E9cnica antigua = que no=20 produce buenos resultados se llama m=E9todo del cuadrado medio. Funciona = as=ED :=20 dado un n=FAmero a, para generar el siguiente n=FAmero de la secuencia = se extraen=20 los d=EDgitos que est=E1n en medio de a². Por ejemplo, si a = es 53,=20 entonces a² es 2809, y el siguiente n=FAmero seudoaleatorio = ser=E1 80. Se=20 ve que el siguiente n=FAmero seudoaleatorio a 80 es 40. Si se contin=FAa = este=20 proceso se obtiene 60, 60, 60, .... Escriba un programa en Pascal que = lea un=20 entero de dos d=EDgitos y determine el siguiente n=FAmero seudoaleatorio = que se=20 generar=EDa si se usara el m=E9todo del cuadrado medio. Suponga que la = entrada=20 consta de una sola l=EDnea que contiene al entero de dos d=EDgitos. = Exhiba el n=FAmero=20 de dos d=EDgitos original, el cuadrado de este entero, y el siguiente = n=FAmero,=20 todos con etiquetas apropiadas.

Ejemplo de entrada : 53.

Ejemplo de salida : Numero introducido =3D 53 =
Cuadrado del=20 numero =3D 2809
Siguiente numero seudoaleatorio =3D = 80.

Ejercicio 20 Escriba un programa en Pascal que lea dos enteros = que=20 representen el peso de un objeto en libras y onzas. En seguida exhiba el = peso=20 introducido y su equivalente en kilogramos en una forma similar a la que = se=20 muestra a continuaci=F3n. Una libra tiene 16 onzas y 2.2046 libras = equivalen a un=20 kilogramo.

Entrada : 5 3 (representa 5 libras y 3 onzas).

Salida : Un peso de 5 libras y 3 onzas equivale a 2.353 = kilogramos.=20

Ejercicio 21 Un solenoide es una bobina de alambre enrollado = en forma=20 apretada con un determinado radio y longitud. Una caracter=EDstica = el=E9ctrica de=20 los solenoides es su inductancia, que est=E1 determinada por su = longitud, el =E1rea=20 de la secci=F3n transversal y el n=FAmero de vueltas por unidad de = longitud. La=20 f=F3rmula exacta es : L =3D m = ln² A,=20 donde L es la inductancia en henries, m la = constante de=20 permeabilidad (4*pi*10 ^-7), l la longitud del = solenoide en=20 metros, n el n=FAmero de vueltas de alambre por unidad de = longitud, y A el=20 =E1rea de la secci=F3n transversal en metros cuadrados. Escriba un = programa que=20 obtenga n, la longitud (en pulagadas) y el radio del solenoide de = los=20 datos de entrada, y exhiba la inductancia (en microhenries). Recuerde = que una=20 pulgada es 2.54 cent=EDmetros, o 0.0254 metros, y que cada henry tiene=20 10⁶ microhenries. Exhiba todos los resultados con precisi=F3n = de una=20 cifra decimal. (Sugerencia : no se olvide hacer la conversi=F3n de = pulgadas y=20 vueltas por pulgadas a metros y vueltas por metro.)

Ejemplo de entrada : 100.0 5.0 1.0.

Ejemplo de salida : Dimensiones del solenoide : =
Radio: 1.0=20 pulgadas
Longitud: 5.0 pulgadas =
Vueltas/pulgadas:=20 100.0

Caracteristicas el=E9ctricas:
Inductancia: 5013.8=20 microhenries.

Ejercicio 22 La funci=F3n exp de Pascal calcula un = valor igual=20 a la suma de la serie infinita 1 + [x/ 1!] + [(x²)/ 2!] +=20 [(x³)/ 3!] + . Suponga que los datos de entrada consisten en = un solo=20 valor real para x entre 0.0 y 1.0. Determine la suma de los = primeros=20 cinco t=E9rminos de la serie infinita y el valor de exp(x) = mediante la=20 funci=F3n est=E1ndar. Exhiba estos valores y el valor de x = acompa=F1ados de=20 etiquetas apropiadas.

Ejemplo de entrada : 0.5.

Ejemplo de salida : Valor introducido =3D 5.0000000000e-01=20
Suma de la serie =3D 1.6484375000e+00
Exp (x) =3D=20 1.6487212707e+00.

Ejercicio 23 Con el resultado del ejercicio=20 15 del pr=E1ctico 1, escriba un programa para determinar la ra=EDz = cuadrada de=20 un n=FAmero positivo a mediante el c=E1lculo de = a^0.5. La=20 entrada consistir=E1 en una sola l=EDnea conteniendo el n=FAmero real = a. Exh=EDba=20 a, a^0.5, y sqrt(a) con=20 etiquetas apropiadas.

Ejemplo de entrada : 12.7.

Ejemplo de salida : Valor introducido =3D 1.2700000000e+00=20
Raiz cuadrada calculada =3D 3.5637059362e+00
Raiz = cuadrada de=20 Pascal =3D 3.5637059362e+00.

Ejercicio 24 La entrada consiste en una sola l=EDnea que = contiene un=20 n=FAmero real r y un entero p, el que = indica la=20 posici=F3n del d=EDgito al que se debe redondear r, de = esta manera :=20
=20

r =3D x x x . x x x

p =3D 2 1 0 -1 -2 -3

Por ejemplo, si r =3D 35.89 y p =3D = -1, el valor=20 redondeado deber=E1 ser 35.9. Escriba un programa en Pascal que lleve a = cabo esta=20 operaci=F3n de redondeo. (Sugerencia : piense en multiplicar por una = potencia de=20 10, redondear mediante la funci=F3n est=E1ndar round, y dividir = entre una=20 potencia de 10.) Exh=EDbanse los valores introducidos ( r y = p) y=20 el valor redondeado. Utilice etiquetas apropiadas para estos valores. =

Ejemplo de entrada : 35.89 -1.

Ejemplo de salida : Valor introducido =3D 3.5890000000e+01=20
Posici=F3n de redondeo =3D -1
Valor redondeado =3D=20 3.5900000000e+01.

Ejercicio 25 Escriba un programa que tenga como =FAnica = entrada un=20 n=FAmero octal (base ocho) de tres d=EDgitos. Exhiba el n=FAmero octal = original y el=20 n=FAmero equivalente en base 10. Por ejemplo, el n=FAmero octal de tres = d=EDgitos 415=20 equivale al valor decimal 4 =D78² + 1 =D78¹ + 5=20 =D78⁰, o sea, 269. Recuerde que Pascal considerar=E1 el = n=FAmero=20 introducido como n=FAmero decimal.

Ejemplo de entrada : 217.

Ejemplo de salida : Octal 217 =3D Decimal 143.

Ejercicio 26 Dada una fecha expresada como cinco enteros : M = (mes), D=20 (d=EDa), S (siglo), A (a=F1o),y B (indicador de a=F1o bisiesto), es = posible determinar=20 el d=EDa de la semana correspondientes en forma de un entero en la = escala de cero=20 a seis. Este c=E1lculo se puede realizar mediante la siguiente f=F3rmula = : W =3D [D +=20 (2.6 M - 0.2) + A + [^A/₄] + [^S/₄] - 2S - (1 + B)[M/ 11]] mod 7, donde W =3D d=EDa de la semana (0=3Ddomingo, = 1=3Dlunes, ...), M=20 =3D n=FAmero del mes (1=3D marzo, 2=3D abril, ...), S =3D siglo (los dos = primeros d=EDgitos=20 del a=F1o actual), A =3D a=F1o dentro del siglo (los dos =FAltimos = d=EDgitos), D =3D d=EDa del=20 mes, B =3D 1 si el a=F1o es bisiesto, 0 en caso contrario. Las = expresiones entre=20 par=E9ntesis rectos como [M/ 11]=20 representan el valor de las expresiones truncado a un entero. Como = ejemplo=20 considere el 1 de enero de 1985. Se tiene M =3D 11, D =3D 1, S =3D 19, A = =3D 85 y B =3D 0.=20 Por tanto, W =3D [1 + (2.6 =D711 - 0.2) + 85 + ([85/ 4]) + ([19/ 4]) - 2 = =D719 - (1 +=20 0)([11/ 11])] mod 7 =3D (1 + 28 + 85 + 21 + 4 - 38 - 1) mod 7 =3D 100 = mod 7 =3D 2.=20 Puesto que W =3D 2, se sabe que el primero de enero de 1985 cay=F3 en = martes. Los=20 datos de entrada ser=E1n el n=FAmero del mes actual (con enero =3D 1), = el d=EDa del mes,=20 el a=F1o (sin separar el siglo y el a=F1o dentro del siglo, como = requiere la=20 f=F3rmula) y el indicador de a=F1o bisiesto (cero o uno). Determine el = d=EDa de la=20 semana en que cay=F3 la fecha que se introduce como dato. La salida debe = inclu=EDr=20 los datos de entrada y el entero que represente al d=EDa de la semana, = todos con=20 etiquetas apropiadas.

Ejemplo de entrada : 3 12 1985 0 (que representa el 12 de = marzo de=20 1985).

Ejemplo de salida : Mes =3D 3
Dia =3D 12 =
Anio =3D=20 1985
Dia de la semana =3D 2.

Ejercicio 27 Dado el importe real de un pr=E9stamo P, una tasa = de=20 inter=E9s real T y un n=FAmero entero de a=F1os en los que se desea = pagar el pr=E9stamo=20 N, determine la cantidad C que se debe pagar cada a=F1o. Se puede = utilizar la=20 siguiente expresi=F3n para calcular C : C =3D P (1 + (T/ = 100))^N (T/=20 100)/((1 + (T/ 100))^N - 1). Los datos de entrada incluir=E1n = a P, T, y=20 N. Calcule C e imprima P, T, N y C con etiquetas y formatos apropiados. = Suponga=20 que T se especifica como un porcentaje con un s=F3lo d=EDgito = fraccionario.

Ejemplo de entrada : 40000 10.0 30 ($40,000 al 10% de = inter=E9s=20 durante 30 a=F1os).

Ejemplo de salida : Importe del prestamo =3D $40000.00 =
Tasa de=20 interes =3D 10.0 por ciento
Plazo del prestamo =3D 30 = anios=20
Pago anual =3D $4243.17.

In.Co. - Curso de = Programaci=F3n=20 1 ------=_NextPart_000_0000_01C5B909.03B4EC40 Content-Type: text/css; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Content-Location: http://www.fing.edu.uy/inco/cursos/prog1/pm/P1.css BODY { BACKGROUND-IMAGE: url(escher.jpg) } A { COLOR: #1010aa; TEXT-DECORATION: none } A:hover { COLOR: #808080 } HR { WIDTH: 100% } ------=_NextPart_000_0000_01C5B909.03B4EC40--

`read (a); readln (b); read (c)`
`readln (a, b, c)`
`read (a, b, c)`
`read (a); read (b); readln; read (c)`
`readln (a); readln (b); readln (c)`

write (`PRIMERA', siguiente:13, `ULTIMA':60)
write (`PRIMERA':7, siguiente:20, `ULTIMA':80)
write (`PRIMERA':7, SIGUIENTE:13, `ULTIMA':60)
write (`PRIMERA':SIGUIENTE:20, `ULTIMA':80)
write (`PRIMERA':7, siguiente:5, `ULTIMA':56)

proposici=F3n	datos
`readln (a, b)`	`2`	`15`	`6`	`4`
`readln (c)`	`1`	`-3`	`7`	`9`
`read (d)`	`8`	`12`	`-1`	`5`