FONAMENTS d’INFORMÀTICA FI-EI matí 25 abril 2007
1. (2 puntos)
a) Dada una variable x de tipo entero (ya leida) y suponiendo que los valores
admisibles deben ser múltiplos de i pero no de j (también ya leidos), se pide escribir
una porción de programa que “Diga si el valor de x es correcto o no (no definir ni
leer nada, ya está definido y leido: ¡sólo se pide el trozo de programa!)
IF (x MOD i = 0) AND (x MOD j <> 0)
// o bien NOT (X MOD j = 0)
THEN Writeln(‘correcto’)
. ELSE Writeln (‘Incorrecto’)
;
b) Escribir una instrucción para calcular una expresión booleana (no un IF...., sólo la
expresión) con éste mismo objetivo. El r4sultado de la expresión se se asignará sobre
la variable boolena correcto
pre-cond: Existen x, i, j ya inicializadas
correcto := (x MOD i = 0) AND (x MOD j <> 0)
...................................................................................
post-cond: Correcto vale TRUE o FALSE según el valor de x fuera correcto o no
2. (3 puntos)
Diseñar un algoritmo en pseudocódigo para “generar” todos los números de la serie
1, 1, 2, 6, 24, 120, 720,.......(la razón es i+1)
inferiores a un N entrado como dato.
Deberá verificarse que el valor N leído es un número entero positivo.
program ejercici_2;
// programa escrito sin considerar overflow de enteros
uses
SysUtils;
{$APPTYPE CONSOLE}
VAR N, r, element: INTEGER ;
begin
{ TODO -oUser -cConsole Main : Insert code here }
Writeln('ejercicio 2 examen 25 abril 2007') ; Writeln;
REPEAT
Write('Entre N:');Readln(n);Writeln;
UNTIL n>0; // podia ser més sofisticado pero esto bastaba
element:=1; r:=0;
WHILE element<N
DO BEGIN
Write(element,',') ;
r:=r+1 ;
element:=element*r
END;
Writeln; Writeln;Writeln('final');readln
end.
