1. |
|
¿ Qué es un byte ? |
2. |
|
¿ Qué es un tipo de dato ? |
3. |
|
¿ Cuantos bytes ocupa un integer ? |
4. |
|
¿ Cuantos bytes ocupa un longint ? |
5. |
|
¿ Los tipos de datos Booleanos se pueden usar con read y readln ? |
6. |
|
¿ Cuantos simbolos se pueden representar en los códigos ASCII ? |
7. |
|
¿ Cuantos simbolos se pueden representar en los cósdigos iso-8859-1, IBM 850, Windows-1252 ? |
8. |
|
¿ Cuantos simbolos se pueden representar en los códigos Unicode del grupo BMP? |
9. |
|
¿ Para que sirve la palabra reservada type ? |
10. |
|
¿ Con que valor empieza la numeración de los tipos de datos enumerados ? |
11. |
|
¿ Los tipos de datos subrango, se pueden definir a partir de un tipo de dato enumerado, carácter o un número entero ? |
12. |
|
¿ Los tipos de datos subrango, se pueden definir a partir del tipo de dato longint ? |
13. |
|
¿ Se puede asignar datos numéricos reales con notación científica a una variable de tipo real ? |
14. |
|
Cree los programas que se describen a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que pida se ingrese un número por cada uno de los siguientes tipos de datos : Integer, ShortInt, SmallInt, LongInt, Byte, Word y después lo muestre. |
| |
|
|
B) |
|
Haga un programa que pida dos números por cada uno de los siguientes tipos de datos : Integer, ShortInt, SmallInt, LongInt, Byte, Word y que después, los intercambie y los muestre intercambiados. |
|
|
|
|
15. |
|
Indique si los siguientes programa están bien escritos : |
|
|
|
|
|
A) |
|
Var entero:Integer;
Begin
Readln(entero);
Writeln(entero)
End; |
| |
|
|
B) |
|
Var num1:Longintt;
Begin
num1:=34;
End; |
| |
|
|
C)
|
|
Var num1,num2;num3:LongInt;
Begin
num2:=45;
num1:=34;
num3:=1;
End. |
|
|
|
|
16. |
|
Cree el programa que se describe a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que use 3 variables booleanas de tipo WordBool, a la primera se le asigna true a la segunda false, los muestre, los intercambie y después los muestre intercambiados. |
|
|
|
|
17. |
|
Verifique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Var a,b : WordBool;
Begin
a:=45;
End. |
| |
|
|
B)
|
|
Var a,b,c : Bool;
Begin
a:=true;
End. |
| |
|
|
C)
|
|
Var a:WordBool;
Begin
a:=false;
End. |
|
|
|
|
18. |
|
Cree los programas que se describen a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que muestre por pantalla lo siguiente :
┌─┬─┐
│A│B│
├─┴─┤
│ C │
└───┘
Nota : Use los siguientes códigos del IBM 850. No olvide en linux establecer la codificación de caracteres del terminal a IBM 850.
┌ = #218 ┬ = #194 ┐=#191 ─ = #196
├ = #195 ┼ = #197 ┤=#180 │ = #179
└ = #192 ┴ = #193 ┘=#217 |
| |
|
|
B)
|
|
Haga un programa que muestre por pantalla lo siguiente :
╔═╦═╗
║A║B║
╠═╬═╣
║C║D║
╚═╩═╝
Nota : Use los siguientes códigos del IBM 850. No olvide en linux establecer la codificación de caracteres del terminal a IBM 850.
╔ = #201 ╦ = #203 ╗ = #187 ═ = #205
╠ = #204 ╬ = #206 ╣ = #185 ║ = #186
╚ = #200 ╩ = #202 ╝ = #188 |
|
|
|
|
19. |
|
Cree el programa que se describe a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que re defina los tipos de datos siguientes : Integer por Entero, LongInt por EnteroLargo y Word por Palabra. |
|
|
|
|
20. |
|
Cree los programas que se describen a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que defina los tipos de datos enumerados siguientes, con su numeración correspondiente :
Romanos : I=1, V=5, X=10, L=50, C=100, D=500, M=1000
Dias : Lunes,Martes,Miercoles,Jueves,viernes,sabado,Domingo
Meses : Enero, Febrero, Marzo, Abril, Mayo, Junio, Julio, Agosto, Septiembre, Octubre,
Noviembre, Diciembre.
Primarios : Rojo,Verde,Azul.
|
| |
|
|
B) |
|
Haga un programa que muestre el orden de los tipos de datos enumerados siguientes : Romanos : I=1, V=5, x=10, L=50, c=100, D=500, M=1000
Primarios : Rojo,Verde,Azul. |
|
|
|
|
21. |
|
Verifique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Frutas = (Manzana,Pera,Naranja);
Begin
End. |
| |
|
|
B)
|
|
Type
Eje = (Alemania;Japon;Italia);
Aliados = (USA,Rusia,Inglaterra);
Begin
End. |
| |
|
|
C)
|
|
Type
Productos : (P450a,P460b,P470c);
Begin
End. |
| |
|
|
D)
|
|
Type
Eje = (Alemania,Japon,Italia);
Aliados = (USA,Rusia,Inglaterra);
Var
EquipoEje:Eje;
EquipoAliado:Aliado;
BEGIN
Writeln('Ingrese un equipo del EJe : ');
Readln(EquipoEje);
Writeln('Ingrese un equipo de los Aliados : ');
Readln(EquipoAliado);
END. |
|
|
|
|
22. |
|
Cree el programa que se describen a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que defina los tipos de datos subrangos siguientes :
Mayusculas .- letras desde la A a la Z,
Minusculas .- letras desde la a a la z. |
|
|
|
|
23. |
|
Verifique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Type
aves=Colibri..gallinazo;
Begin
End. |
| |
|
|
B)
|
|
Type
animales=(Vaca,Leon,yiena,Colibri,papagallo,avestruz,gallinazo,oso);
aves=Colibri..gallinazo;
Begin
End. |
| |
|
|
C)
|
|
Type
animales=(Vaca,Leon,yiena,Colibri,papagallo,avestru z,gallinazo,oso);
aves=Colibri..gallinazo; digitos=0..8,9;
Begin
End. |
|
|
|
|
24. |
|
Cree los programas que se describen a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que pida se ingrese un número por cada uno de los siguientes tipos de datos : Single, Real, Double, Extended, Comp y después lo muestre, en un ancho de 10 dígitos con 3 decimales. |
| |
|
|
B)
|
|
Haga un programa que pida dos números por cada uno de los siguientes tipos de datos : Single, Real, Double, Extended, Comp, y que despues, los intercambie y los muestre intercambiados, en un ancho de 10 dígitos con 3 decimales. |
|
|
|
|
25. |
|
Indique si los siguientes programa están bien escritos. |
|
|
|
|
|
A) |
|
Var doble:Int64;
Begin
Readln(doble);
Writeln(doble)
End; |
| |
|
|
B)
|
|
Var num1:SSingle;
Begin
num1:=34;
End; |
| |
|
|
C)
|
|
Var num1,num2;num3:Comp;
Begin
num2:=45;
num1:=34;
num3:=1;
End. |
|
|
|
|
26. |
|
Cree el programa que se describe a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que lea desde el teclado una letra y muestre su ordinal. |
|
|
|
|
27. |
|
Indique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Var car:char;
Begin
writeln(Ord(35))
End. |
| |
|
|
B)
|
|
Var cad:string;
Begin
writeln(Ord('amigo'))
End. |
| |
|
|
C)
|
|
Begin
Writeln(Ord(9.8));
End. |
|
|
|
|
28. |
|
Cree el programa que se describe a continuación. |
|
|
|
|
|
A) |
|
Haga un programa que lea desde el teclado un byte y muestre el carácter que corresponde. |
|
|
|
|
29. |
|
Indique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Var car:char;
Begin
writeln(chr(35))
End. |
| |
|
|
B)
|
|
Var cad:string;
Begin
writeln(chr('amigo'))
End. |
| |
|
|
C)
|
|
Begin
Writeln(chr(9.8));
End. |
|
|
|
|
30. |
|
Indique si los siguientes programas están bien escritos. |
|
|
|
|
|
A) |
|
Var
a:real;
b:integer;
Begin
a:=3.5;
b:=a
End. |
| |
|
|
B)
|
|
Var a:real;
b: integer;
Begin
b:=5;
a:=b
End. |
| |
|
|
C)
|
|
Var a:char;
b:integer;
Begin
a:='A';
b:=a
End. |
|
| |
|
|
anterior :: indice :: siguiente |
