Azar

Para estos ejercicios la nueva función a utilizar ha sido la función random que da numeros aleatorios dentro de un intervalo ,es decir numeros al azar. Primero hemos practicado con un ejercicio más sencillos que nos daba dos números al azar entre o y 100.

Más tarde lo hemos ampliado para que nos extraiga 6 numeros al azar entre el 1 y el 49 como si fuera la primitiva.

Para este ejercicio hemos declarado 6 variables del tipo integer correspondientes a cada uno de los numeros al azar.Después de preguntarnos nuestro nombre y darnos la bienvenida al sorteo de la loteria primitiva ,cosas que ya hemos aprendido y explicado, ponemos la función randomize ,que genera numeros aleatorios y bajo de esta vamos escribiendo cada variable de esta forma :

num1:random(49)+1;

.

.

.

Otro nueva función que hemos aplicado ha sido 'delay' que genera un intervalo de tiempo, por ejemplo t, que nosotros hayamos declarado como constante .A la hora de declarar como constante t ponemos t=1ooo en lugar de t=1 que sería un segundo porque el programa pascal trabaja en milisegundos.
De esta manera se espera un segundo entre numero y numero.

Mayor de edad

Otro tipo de ejercicio son los de aplicar condiciones es decir los de 'if '.Para familiarizarnos primeros hicimos un ejercicio en el que teniamos que introducir un número y si era mayor que cero nos escribía que el número era positivo y si era menor que cero era negativo.

A continuación explicaré como es el procedimiento a seguir con un ejercicio mas concreto.

El ejercicio consiste en que nos pregunte nuestro nombre,después la edad y aquí es donde entraría lo nuevo.Si nuestra edad, que es una variable del tipo integer, es 18 o mayor que 18 nos tiene que escribir 'Eres mayor de edad' y sin nuestra edad es menor de 18 que nos diga por ejemplo,Naiara no eres mayor de edad. Esto se hace con el siguiente esquema:

if num>=18 then

---begin

------writeln(nombre, 'eres mayor de edad')

---end

else

---begin

------write(nombre, 'no eres mayor de edad')

---end;

Si cumple la primera condición y nuestra edad es 18 o mayor de 18 entoces que es 'then' que empiece un programa dentro del general que nos diga lo anteriormente nombrado.El primer end no lleva ni . ni ; porque aun no se ha acabado la condición y Si en caso contrario no la cumple ponemos 'else' y vuelven a empezar otras lineas de programa respecto a esto.

Ahora el end si que lleva ; porque ya se acaba la condición.

Vectores

El ejercicio de vectores trata de calcular la media de un vector formado por 5 elementos asi como la suma de sus elementos.
Las variables aquí seran vec y para no tener que estar poniendo vec1, vec2, vec3, vec4... directamente ponemos vec array [1...5] of real.Esto lo que hace es declarar las variables vec entre 1 y 5 sin necesidad de escribirlas todas. Añadimos of real puesto que lo elementos del vector pueden ser números reales.
Empezamos como siempre y hacemos que salga por pantalla ('Introduzca el 1º vector') con readln(vec[1]) y asi sucesivamente con todos los demás elementos.

También hemos declarado dos variables mas n1 y n2, una para la suma de los componentes del vector y otra para la media de estos.Siguen siendo del tipo real.
A la hora escribir la función que suma todos los elementos escribiremos n1:=vec[1]+vec[2]+vec[3]...

Y para la media n2: n1/5

Como ya aprendimos como se hace para que el resultado salga en un determinado color,también lo aplicamos al resultado de la suma y de la media.