ALGORITMO

Tipos de Datos Simples - Expresiones

1) Indicar cuáles de los siguientes identificadores no son nombres de variables válidas y por qué:

x1 x_1 1x x-1 suma SUMA sum1 int CHAR %cambio primer.pas abc1234 cant_al program

2) Indicar la declaración de dos variables llamadas distancia y cuenta, la primera real y la segunda entera. Ambas deben inicializarse en cero.

3) Escribir un programa que contenga instrucciones que muestren por pantalla el valor de tres variables de tipo entero, real y caracter que hayan sido definidas pero no inicializadas.

Compilar y ejecutar el programa. Analizar la salida que se produce.

4) Escribir las siguientes expresiones matemáticas según el lenguaje de programación:

5) Indicar qué salida produce el siguiente programa:

Program desconocido;

var

a , b , c : char,

begin

a:= ‘a’ ;

b:= ‘c’ ;

c:= a ;

writeln(a, b, c, ‘c’) ;

end.

6) Indicar qué salida produce el siguiente programa:

Program desconocido2;

var

Num: integer;

begin

num:=(1/3)*3;

writeln (´(1/3)*3 es igual a´, num) ;

end.

7) Dado el siguiente fragmento de programa que supuestamente convierte temperaturas de grados Celsius a grados Fahrenheit

Program celsiusaFahrenheit;

var

c,f : real;

Begin

c:=20

f:= (9/5)*c + 32.0 ;

Writeln (f);

End.

Indicar :

a) Qué valor se asigna a f

b) Qué quiso hacer el programador

c) Qué está ocurriendo realmente

d) Cómo reescribir el código para realizar la operación correctamente.

8) Analizar las salidas del siguiente programa:

Program overflowyunderflow;

var

i: short ;

ii: integer ;

l: longint ;

f: real ;

c: char ;

begin

i := 32767 ;

i:= i+1 ;

writeln (´32767 + 1 como short da´, i) ;

ii := 32767 ;

ii := ii+1 ;

writeln (´32767 + 1 como entero da´, ii) ;

i := -32768 ;

i := i-1 ;

writeln (´32768 - 1 como short da´, i) ;

i := 45000 ;

writeln (´i := 45000 como short da´, i) ;

i := 32000 + 25000 ;

f := i ;

writeln (´32000 + 25000 como entero ´, i) ;

writeln (´32000 + 25000 como real´, f) ;

f := 32000 + 25000 ;

i := f ;

writeln (´32000 + 25000 como entero ´, i) ;

writeln (´32000 + 25000 como real´, f) ;

c := 'A' ;

writeln (´La A como char da´, c);

c := 65 ;

writeln (´c= 65 como char da´, c);

c := 254 ;

writeln (´c= 254 como char da´, c);

c := 257 ;

writeln (´c= 257 como char da´, c);

c := -258 ;

writeln (´c= -258 como char da´, c);

end.

9) Analizar la salida del siguiente programa:

Program desconocido3 :

var

x : integer

y :char ;

writeln (´Ingresar cualquier número para continuar, 0 para salir´ );

readln (x);

while x <> 0 do

begin

if x > 10 then

y:= ´s´

else

y:= ´n´;

writeln (´Ingresar cualquier número para continuar, 0 para salir´ );

readln (x);

end;

end.

Indicar cuál es el papel que juega la variable y

10) Analizar la salida del siguiente programa:

Program Desconocido4 ;

Var

x, y, xx : integer;

writeln (´ ********************************************** ´ );

writeln (´Ingresar cualquier número para continuar, 0 para salir´ );

readln (x);

writeln ( ´ ********************************************** ´);

while x <>

...