Certamen pascal

Solo disponible en BuenasTareas
  • Páginas : 4 (769 palabras )
  • Descarga(s) : 7
  • Publicado : 8 de junio de 2010
Leer documento completo
Vista previa del texto
IWI-131 CERTAMEN 1 26-Agosto-2009 Duración 90 minutos.

Paralelo: _______________

Rol UTFSM: _____________________ Nombre: ________________________________________

Pascal 08:00 AM

PREGUNTA1 [30 ptos]

(Cada expresión son 2 pts)

Indique si las siguientes expresiones son correctas o no. Además debe justificar (en caso de ser incorrecta) o mostrar el valor final de cada expresión(en caso de ser correcta). Preguntas sin justificación/resultado tienen puntaje 0 (cero).
NOTA: Cada expresión considera los valores iniciales de la cabecera, y no las modificaciones realizadas enexpresiones anteriores.

program pregunta1; const W=100; X=9.0; var A, B, C : integer; Y, Z : real; I, J : char; T, D : boolean; begin A:=5;B:=3;C:=7;Y:=2.0;Z:=5.0;I:=’X’;J:=’Y’ EXPRESIÓN C/I I I I C CI I C C I I I C C C JUSTIFICACIÓN / RESULTADO El resultado REAL de A/B no puede asignarse a una variable INTEGER. El operador MOD espera operandos INTEGER V no está declarada. Z := 86.000000

A :=A/B;

A := A MOD X;

A := V;

Z := (3243 MOD W)*Y;

Y := (ORD(I) - ORD(J)) * C;

Y := -7.00000 No se puede asignar un valor BOOLEAN a una variable INTEGER. W es una constante y no se le puedeasignar un valor a una constante. D := FALSE;

A := (B>Z) OR NOT(C>0) AND (I=I);

W := (Z + 3.2213) MOD 5;

D := (I>J) OR NOT NOT FALSE;

T := SUCC(‘F’) < PRED(‘G’);

T := FALSE; X es unaconstante y no se le puede asignar un valor a una constante. No se puede asignar un valor BOOLEAN a una variable INTEGER No existe => I := ‘Z’;

X := C/(1+B) - A;

B := FALSE OR (A=Z/1);

B =(Z*Z) MOD 9=>0*Z j DO BEGIN j := i * 2; i := i + 1; IF j MOD 2 0 THEN k := k - 1; END; j := j - 1; END; END.
7

1 1 1 1 2 2 4 3 6 4 5 5 4 6 12

11

PROGRAM ruteo_2; VAR a, b, c, d: integer; BEGINa := 3; b := 5; c := 8; d := a; WHILE a + b >= c DO BEGIN REPEAT a := b * c; IF (a MOD 40 = 0) AND (a < 100) THEN BEGIN b := b + a; d := b + 1; END ELSE IF a 100 THEN BEGIN d := a; b := 1 + 8 * 5...
tracking img