From: Subject: =?Windows-1252?Q?Instituto_de_Computaci=F3n_-_Curso_de_Programaci=F3n_1?= =?Windows-1252?Q?_-_Pr=E1ctico_1?= Date: Wed, 14 Sep 2005 09:03:06 -0300 MIME-Version: 1.0 Content-Type: multipart/related; boundary="----=_NextPart_000_0000_01C5B90B.1EC67AB0"; 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_01C5B90B.1EC67AB0 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/Practico1.html Instituto de Computaci=F3n - Curso de Programaci=F3n = 1 - Pr=E1ctico 1
Instituto de Computaci=F3n
Curso de = Programaci=F3n 1 -=20 Pr=E1ctico 1
    1. Determine cu=E1les de los siguientes identificadores son = v=E1lidos.=20

      Promedio A1234 1234A Can Can
      Program $XYZ A*b Jorge
      506-74-3981 4 = =D72

      =20

    2. Explique por qu=E9 no usar=EDa los siguientes identificadores = para sus=20 definiciones.  =20

      1986 Vel*Tiempo End 1End
      Integer Var Sqrt $EFECTIVO

    3. Determine cu=E1les de las siguientes declaraciones de constantes = son=20 v=E1lidas.=20

      CONST impuesto =3D = 0.09; CONST pi :=3D = 3.14;
      CONST diez =3D 9; Acalif :=3D = 90;

      =20

  2. Determine cu=E1les de las siguientes declaraciones de variables = son v=E1lidas.=20
    VAR num1, num2 : Real; VAR num1; num2 : = Integer;
    VAR total, suma, cuenta : = Integer,=20 Real; VAR idestudiante, = numsegsocial :=20 Integer;

    =20

    1. Determine cu=E1les de las siguientes son constantes = enteras v=E1lidas=20 en Pascal. 
    189 -2.5 `33' -5555 6,632
    2.5e03 +199 199. maxint

    =20

  3. Determine cu=E1les de las siguientes son constantes reales = v=E1lidas en=20 Pascal. =20
    -0.01 .025 -3.6 69. 3.6e-06
    3.e-06 +8.3e2 1.0e1. maxreal

    =20

  4. Determine cu=E1les de las siguientes son constantes de = car=E1cter=20 v=E1lidas en Pascal. =20
    A 'A' 'CAT' '8' '?' '??'

    =20

  5. Determine cu=E1les de las siguientes son constantes v=E1lidas en = Pascal.=20 Determine el tipo de cada expresi=F3n. =20
    'e' e false 999 3.e
    -maxint -0.000 '?' !

    =20

  6. Suponga que tiene la siguiente declaraci=F3n de variables: = 
    VAR
    temp, valor : Integer;
    num, suma   : Real;

    Determine cu=E1les de las siguientes proposiciones de asignaci=F3n = son v=E1lidas.=20

    num :=3D temp + valor valor :=3D num + temp num :=3D suma
    valor :=3D temp + 3 valor :=3D num + 3 num :=3D num * suma
    temp :=3D num * = suma

    =20

  7. Determine el tipo y eval=FAe las siguientes expresiones. =
     =20
    6 DIV 2 - 6 MOD 5 14 MOD 2 * 6 + 3 3 + 14 MOD (2 * 3) 3.2 + 14 MOD (2 * 3)
    5 MOD 8 + 8 MOD 5 7 MOD 2 + 13 DIV 3 - 2.5 6 - 2 MOD (1 + 4) + 5 6 - 2.1 * 3 + 1

  8. Dadas las siguientes declaraciones de variables: = 
    VAR
        ventas, total, perdida : =
Integer;
        =
calif           &n=
bsp;      : Real;

    Determine cu=E1les de las siguientes proposiciones de asignaci=F3n = son v=E1lidas.=20

    calif :=3D ventas + total + = perdida ventas :=3D ventas + = 5.0
    calif :=3D ventas DIV = total calif :=3D ventas / = total
    ventas :=3D calif / = total calif :=3D calif DIV=20 perdida

    =20

  9. Eval=FAe las siguientes expresiones.
    sqrt (16) trunc (-13.8) round (10.7)
    sqr (5) round (-3.5) abs (-12)
    trunc (10.1) trunc (8.6) - round (8.6)

    =20

  10. Considere las proposiciones de asignaci=F3n siguientes : = 
    acosto :=3D 4.0;
    bcosto :=3D 1.0;
    ccosto :=3D -2.0;
    dcosto =
:=3D 5.5
    Eval=FAe=20 las siguientes expresiones.
    sqrt (acosto / bcosto - ccosto + dcosto - = 2.5)
    trunc (dcosto) * abs (ccosto * (bcosto / = acosto))

    =20

  11. Dadas las siguientes declaraciones de variables: = 
    VAR
        num, suma, total : =
Integer;
        =
valor            =
: Real;
        car1, =
car2       : Char;
    Determine=20 cu=E1les de las siguientes proposiciones de asignaci=F3n son = v=E1lidas.
    num :=3D num + num num :=3D suma / = total
    suma :=3D num / total valor :=3D total
    valor :=3D total * num + = suma valor :=3D total + = car1
    car2 :=3D car1 car2 :=3D car1 + 1
    car2 :=3D = `car1'

    =20

  12. Determine el tipo y eval=FAe las siguientes expresiones en Pascal. =
    5 + sqr(3) - 4 + trunc(3.6 - 2.1)
    3 * sqrt(8 MOD 6 * 10 DIV 5)
    6 + 9 * 8 DIV 2 * round(1.362) - 2 * 3
    trunc(12 / 5 * sqrt(4 + 4 * 3) / 4)

    =20

  13. Cual es la salida est=E1ndar, en Pascal est=E1ndar, del siguiente = programa : 
    PROGRAM Verificar =
(output);

    VAR
        i: =
Integer;
        r: =
Real;

    BEGIN
        r :=3D i + =
1;
        WriteLn(i,r)
    END.
  14. La funci=F3n est=E1ndar ord produce un entero que indica la = posici=F3n=20 relativa de cualquier constante ordinal (entera, de caracteres o = booleana)=20 dentro del conjunto de las constantes del mismo tipo. Determine el = valor=20 ordinal de cada una de las siguientes constantes.
     =20
    true; 'A' ';' 0 -1 maxint
    false 'a' ' ' ''' 1 -maxint
  15.   Matem=E1ticamente, ln = ab =3D b *=20 ln a, y eln x =3D x. Use estas propiedades y las funciones = est=E1ndar=20 de Pascal ln y exp para escribir una expresi=F3n en = Pascal que=20 produzca el valor de ab.
     =20
  16. Introduzca los siguientes programas en Pascal. Trate de anticipar = cu=E1l va=20 a ser la salida. Despu=E9s, ejec=FAtelo y compare lo que esperaba con = la salida=20 que se exhibe.=20 
      PROGRAM Muestra1 =
(output);
      CONST
          pi =3D =
3.1415926535;
          r1 =3D 2.0;
          r2 =
=3D 5.0;
      VAR
          area: =
Real;
      BEGIN
          area :=3D pi * r1 * =
r1;
          WriteLn (r1, area); (* Exhibir valor de r1 y =
area *)
          area :=3D pi * sqr =
(r2);
          WriteLn (r2, area)  (* Exhibir valor de =
r2 y area *)
      END.
      PROGRAM Muestra2 (input, =
output);

      CONST
          medio =3D =
0.5;

      VAR
          num  : =
Real;
          a, b : =
Integer;
      BEGIN
          ReadLn(num); (* Obtener un valor =
para num =
de
                 &=
nbsp;        la entrada estandar =
*)

          a :=3D round (num);
          b =
:=3D trunc (num + medio);
          WriteLn (num, a, b) (* =
Exhibir num, a, y b *)
      END.
      Cuando=20 el programa espere datos de entrada, introduzca un n=FAmero real y=20 digite . Ejecute el programa varias veces, y use = n=FAmeros tanto=20 positivos como negativos, con partes fraccionarias mayores, menores, = y=20 exactamente iguales que 0.5.
  17. Implemente los siguientes programas en Pascal. Luego verifique que = funcionen correctamente para varios datos de entrada. Aplique todas = las=20 herramientas de Pascal que ha aprendido hasta el momento.=20
    1. Calcular el per=EDodo de un p=E9ndulo de longitud l. El = per=EDodo de un=20 p=E9ndulo est=E1 dado por la ecuaci=F3n: 
      t =3D 2 * pi * sqrt (l =
/ g)
      donde pi =3D 3.14, g =3D 9.8 y=20 l es le=EDdo de la entrada est=E1ndar.=20
    2. Calcular el =E1rea de un tri=E1ngulo cuyos lados son de longitud = a,=20 b y c. Los valores a, b y c deben = ser=20 le=EDdos de la entrada est=E1ndar. El area de un tri=E1ngulo a = partir de sus lados=20 se calcula de la siguiente forma: 
          A =3D =
sqrt(s * (s - a) * (s - b) * (s - c))

          donde s =
=3D (a + b + c) / 2
In.Co. - Curso de = Programaci=F3n=20 1
------=_NextPart_000_0000_01C5B90B.1EC67AB0 Content-Type: text/css; charset="iso-8859-1" Content-Transfer-Encoding: 7bit Content-Location: http://www.fing.edu.uy/inco/cursos/prog1/pm/uploads/Materiales/P1.css BODY { BACKGROUND-IMAGE: url(escher.jpg) } A { COLOR: #1010aa; TEXT-DECORATION: none } A:hover { COLOR: #808080 } HR { WIDTH: 100% } ------=_NextPart_000_0000_01C5B90B.1EC67AB0--