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

From: Subject: =?Windows-1252?Q?Instituto_de_Comptuci=F3n_-_Curso_de_Programaci=F3n_1_?= =?Windows-1252?Q?-_Pr=E1ctico_5?= Date: Wed, 12 Oct 2005 11:11:27 -0300 MIME-Version: 1.0 Content-Type: multipart/related; boundary="----=_NextPart_000_0000_01C5CF1D.B0EED310"; 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_01C5CF1D.B0EED310 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/Practico5.html Instituto de Comptuci=F3n - Curso de Programaci=F3n 1 = - Pr=E1ctico 5

Instituto de Computaci=F3n
Curso de = Programaci=F3n 1=20 - Pr=E1ctico 5

Determine el valor que se exhibe en la salida est=E1ndar al = ejecutar las=20 siguientes proposiciones con ciclos WHILE

x :=3D 10;
WHILE x > 0 DO
    x :=3D x - 3;
WriteLn(x)

suma :=3D 0;
i :=3D 3;
WHILE i <=3D 7 DO BEGIN=20
   suma :=3D suma + i;
   i :=3D i + 2
END;
WriteLn(i,suma);

suma :=3D 0;
Read(x);
WHILE x >=3D 0 DO BEGIN
   suma :=3D suma + x;
   Read(x)
END;
WriteLn(suma);

Asuma que los valores le=EDdos de la entrada est=E1ndar son 10, 5, 12 y =
-5.

n :=3D 3;
suma :=3D 0;
i :=3D 0;
WHILE (i < n) DO BEGIN=20
   Read(valor);
   IF valor > 0 THEN
      suma :=3D suma + valor
   ELSE
      i :=3D i + 1
END;
WriteLn(`Fin de la prueba ',suma,i,valor);

Asuma que los valores le=EDdos de la entrada est=E1ndar son 5, 6, -3, =
-4, 7, 0 , 5, 8 y 9=20

Determine el valor que se exhibe en la salida est=E1ndar al = ejecutar las=20 siguientes proposiciones con ciclos REPEAT

a :=3D 6;
b :=3D 5;
REPEAT
   a :=3D a + 1
UNTIL a > b;
WriteLn(a);

i :=3D 0;
REPEAT
   WriteLn (`Primitivo')
UNTIL i =3D 0;=20

Determine cu=E1les de los siguientes segmentos de c=F3digo = producen la misma=20 salida al ser ejecutados:

i :=3D 1;
j :=3D 2;=20
REPEAT
   Write(i, j);
   i :=3D i+1;
   j :=3D j+1
UNTIL j <=3D 3;

i :=3D 1;
j :=3D 1;
WHILE (i <=3D 3) AND (j <=3D 2) DO BEGIN=20
   Write(i, j + 1);
   i :=3D i + 1;
   j :=3D j + 1
END;

i :=3D 1;
REPEAT
   Write(i, i+1);
   i :=3D i+1
UNTIL i <=3D 3;

Reescriba el c=F3digo siguiente con un solo ciclo WHILE.

    =
REPEAT
        cuerpo
    UNTIL expresion_booleana;

Reescriba el c=F3digo siguiente sin usar for.

    x :=3D 1.5;
    FOR i :=3D 1 TO 5 DO
       x :=3D sqr(x);
    Write(x);

Dada una secuencia de n=FAmeros enteros positivos que debe ser = le=EDda de la=20 entrada est=E1ndar (el fin de la secuencia est=E1 determinado por el = entero=20 -1), escribir los siguientes programas en PASCAL:
1. Determine y exhiba la suma y el promedio de todos los enteros = positivos=20 le=EDdos.=20
2. Determine y exhiba el n=FAmero m=E1s grande y el m=E1s peque=F1o = de todos los=20 enteros positivos le=EDdos.
Se desea tener un programa que calcule el saldo de una cuenta. = Suponga que=20 los datos son le=EDdos de la entrada est=E1ndar y que constan de = renglones, cada=20 uno de los cuales contiene una letra en la primera columna, seguida de = un=20 valor real. El =FAltimo rengl=F3n contiene =FAnicamente la letra = X en la=20 columna uno. El primer rengl=F3n contiene la letra A y el saldo = anterior=20 de una cuenta de cheques. Los dem=E1s renglones contienen la letra = D y el=20 importe de un dep=F3sito o la letra R y el importe de un=20 retiro.
Escriba un programa en PASCAL que determine el saldo exacto = de la=20 cuenta despu=E9s de procesar las transacciones.

Ej:
```
A =
1200.35
D 64.12
R 390.00
R 289.67
D 13.02
R 51.07
X
El saldo final es 546.75
```
Dado un fragmento de texto que debe ser le=EDdo de la entrada = est=E1ndar y=20 terminado por el caracter $ (centinela), determine y exhiba las = consonantes y vocales que aparecen duplicadas en forma contigua. Por = ejemplo,=20 el texto "Llama al chico que lee$" tiene una consonante doble=20 (ll) y una vocal doble (ee) y se deber=EDa desplegar: = "ll=20 ee".
Escriba un programa en PASCAL que determine si un n=FAmero = n es=20 primo. n es un entero positivo le=EDdo de la entrada = est=E1ndar.
Realice las funciones de una calculadora simple. Los datos de = entrada=20 ser=E1n una secuencia de d=EDgitos decimales y los operadores = +,=20 *, / y -, seguida de un signo =3D. = Haga caso=20 omiso de los espacios en blanco. Los operadores se aplican en el orden = en que=20 aparecen en los datos de entrada, y producen resultados enteros, o = sea, si=20 bien se ingresa el operador de la divisi=F3n con el s=EDmbolo = /, el=20 comportamiento es el de DIV. Asuma que se ingresa al menos un = n=FAmero.

Ej. de entrada: 4 + 3 / 2 * 8 - 4 =3D =
Ej. de salida:=20 20
Determine y exhiba la desviaci=F3n est=E1ndar de n n=FAmeros = reales positivos.=20 Los n=FAmeros deben ser le=EDdos de la entrada est=E1ndar, donde se = ingresar=E1 un=20 n=FAmero negativo al final como centinela. La desviaci=F3n est=E1ndar = de un conjunto=20 de n=FAmeros x1, x2, ..., xn se define como la ra=EDz = cuadrada de la=20 expresi=F3n s/n - a^2 donde a es el promedio de los = valores=20 xi (es decir, [(x1 + x2 + ... + xn) / n]) y = s es la=20 suma de los cuadrados de los valores xi (es decir, x1^2 + = x2^2 +=20 ... + xn^2).

Ejemplo de entrada: 25.0 23.0 22.0 21.0 = 17.0 9.0=20 6.0 5.0 -1.0
Ejemplo de salida: La desviaci=F3n = est=E1ndar es=20 7.60
Todo n=FAmero natural positivo num tiene una = descomposic=F3n =FAnica de=20 la forma num =3D 2^n * val, donde val es un n=FAmero = natural=20 impar y n >=3D 0.

Por ejemplo:
12 =3D 2^2 * = 3 36 =3D=20 2^2 * 9 7 =3D 2^0 * 7 8 =3D 2^3 * 1

Escriba un = programa en=20 Pascal que lea de la entrada est=E1ndar un entero positivo = num y exhiba=20 los correspondientes valores de val y n.
Escriba un programa en Pascal que reciba como par=E1metros dos = enteros=20 b y n y devuelva como resultado la parte entera del=20 logaritmo de n en base b.
Dicho resultado es un = entero=20 k que cumple lo siguiente: b^k <=3D n < = b^(k+1)
El=20 algoritmo s=F3lo puede realizar divisiones y sumas. Asuma que n = > 0=20 y b > 1.

In.Co. - Curso de =
Programaci=F3n 1

------=_NextPart_000_0000_01C5CF1D.B0EED310 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_01C5CF1D.B0EED310--