1.
Escribe la sintaxis para declarar dos variables numéricas enteras
(INTEGER) que no sea edad ni año.
program SumaDosNumeros;
var
numero1, numero2, suma: integer;
begin
writeln('Introduce el primer número');
readln( numero1 );
writeln('Introduce el segundo número');
readln( numero2 );
suma := numero1 + numero2;
writeln('La suma de los dos números es: ', suma);
end.
2. Coloque la sintaxis para declarar dos variables con decimal (REAL) que no
sea ni peso ni altura
program MediadelVector;
var
vector: array [1..5] of real;
suma, media: real;
begin
writeln('Media de un vector con 5 elementos.');
writeln;
writeln('Introduce el primer elemento');
readln(vector[1]);
writeln('Introduce el segundo elemento');
readln(vector[2]);
writeln('Introduce el tercer elemento');
readln(vector[3]);
writeln('Introduce el cuarto elemento');
readln(vector[4]);
writeln('Introduce el quinto elemento');
readln(vector[5]);
suma := vector[1] + vector[2] + vector[3] + vector[4]
+ vector[5];
media := suma / 5;
writeln('La media de sus elementos es: ', media);
end.
3. Nombre 12 variables tipo carácter (CHAR) Incluir número, letras y
símbolos.
Carácter CHAR:
1, 2, 3,4,*, L,G,D,A,@,%,l, m
4. Escriba la sintaxis para declarar las siguientes constantes:
CONST G= 9.8 m/s2 (Tipo de dato real)
CONST Velocidad luz= 299792.45 km/s (Tipo de dato real)
CONST Día:=‘Miércoles’ (Tipo de dato string)
5. Encuentra 4 errores de sintaxis en el siguiente programa
Programa calculo;
Uses Crt;
Var Q, S: integer (error porque falta ;)
Begin
CIrScr
Q:=10;
S:=Q*9;
Writeln (‘El resultado de la multiplicación es:’,
S ); (se debe escribir en una misma linea)
6. Identifique el error de lógica en el siguiente programa:
program área_triangulo
uses Crt;
Var BaseTr, Altura: Real;
Begin
CIrScr;
BaseTr:=12.4;
Alt := 9; (Alt: error identificador no definido)
Writeln (‘El área del triángulo es: ‘, BaseTr*
Altura /4:0:3 );
End.
No se identificó al “Alt” como una variable
PROGRAMA PARA CALCULAR MI AÑO DE NACIMIENTO: