Hoy hemos hecho los grupos, en el mio somoa Paco y yo. Ricardo nos ha mandado tres ejercicios nuevos y los estamos haciendo en un solo ordenador. Solo nos ha dado tiempo a hacer dos ejercicios, el 26 y el 27.

· Ejercicio 26: tambien llamado program escalar. Consiste en introducir los tres elementos de dos vectores y calcular su suma y su producto vectorial. La suma te la debe de dar en coordenadas de vector, es decir de esta forma, (u1+v1, u2+v2, u3+v3).

Y su producto escalar es un numero, cuyo su calculo es este :

(u1*v1) + (u2*v2) + (u3*v3).

· Ejercicio 27: tambien llamado Arearectangulo, este ejercicio es igual que el ejercicio 3, porque simplemente hay que hacer el area del rectangulo.

Debereis formar parejas y realizar un manual de Pascal, donde deben figurar además de las explicaciones que hayais tomado, todos los ejemplos y ejercicios propuestos, con sus correspondientes explicaciones. (incluso los algoritmos de los que tengais)
La forma del manual, si primero todo lo teórico o intercalado o ... es elección vuestra.
Los programas de Pascal podeis copiar y pegar o capturar imagen y pegar.
Las etiquetas que usareis seran: PascalManual, Pascal.
El manual se guardará con el nombre de: Manual_nombres.
Condiciones:
El manual debe constar de portada (título, nombre y fotos de los autores, etc.), índice y obviamente el manual.

Hoy hemos hecho los ejercicios 23, 24 y 25.

· Ejercicio 23: tambien llamado program cuadrados. Consiste en introducir un numero y que te de el cuadrado de ese numero. Para ello intoducimos el numero, y luego nos tiene que responder el cuadrado de este numero es a*a.

· Ejercicio 24: tambien llamado program adivinarnumeros. Consiste en adivinar el numero del 0 al 9 que ha generado aleatoriamente el ordenador usando la funcion randomize, y luego cuenta los intentos que has usado para adivinarlo. Para ello hemos usado tres variables y lo mas importante un repeat. Una variable es para el numero generado aleatoriamente, otra variable es para el numero que introduces, y la otra es para el numero de intentos que estas realizando, y por eso hay que decir que la variable inicialmente sea 0 y luego dentro del repeat hay que asociarle la variable de los intentos mas 1.

· Ejercicio 25: tambien llamado program vectores01. Consiste en introducir 5 elementos del verctor y que te lo de diciendo te el contenido de cada uno de los elementos por separado. Para trabajar con vectores hay que poner el tipo de variable array of. En este caso se colocaria así:

El nombre de la variable: array [1..5] of integer. Lo que va dentro del corchete son los elementos que quieres que tenga el vector. Luego tambien usaremos una variable entera para contar los elementos del vector.

Lo mas importante es la colocacion de los for, para que solo te pida las componentes que tiene el vector, y no lo repita mas veces, por eso la condicion seria desde la variable(que es igual a 1) hasta 5.

Hemos hecho los ejercicios 21 y 22.

· Ejercicio 21: tambien llamado program repetir, y consiste en contar los numeros del 1 al 10, este es como el anterior pero para este vamos a usar la sentencia repeat. Tenemos que poner el repeat después de haberle asociado a la variable el numero 1 y el until después de asociarle a la variable, la variable mas uno. Se repetirá hasta que la variable sea mayor que 10.

· Ejercicio 22: tambien llamado program adivinar2, y consiste en introducir un numero del 0 al 9 y acertar el numero que ha ‘pensado’ el ordenador, y para ello tienes tres oportunidades. Para hacer esto hemos usado un repeat y varios if. Te tiene que preguntar el numero de intentos que vas a usar, entonces haz que reconozca esa variable y luego haz que el ordenador genere unnumero aleatorio del 0 al 9. Ahora es cuando se inicia el repeat y te pide el numero, si el numero es el correcto te dice que lo has adivinado, pero si no es el mismo te dira que has fallado y el numero de oportunidades que te quedan y para eso tienes que haberle asignado un poco antes de esto a la variable de las oportunidades la variable de las oportunidades menos 1. Y luego va el until en el que decimos que cuando no nos queden oportunidades acabe el programa, es decir que cuando la variable de los intentos sea igual a 0 ya no se repita.

Hoy hemos modificado el ejercicio 16, y hemos hecho los ejercicios 19 y 20.

· Ejercicio 19: tambien llamado program multiplicar, consiste en introducir un numero y que nos diga la tabla de multiplicar de ese numero. Es mas sencillo de lo que parece, lo hemos hecho con un for desde el 1 al 10 y luego una operación que multiplique al numero dado por todos los numeros hasta que llegue a 10 y pare. Vamos a poner un repeat para que repetir el proceso todo lo que quieras, pero esto es opcional.

· Ejercicio 20: tambien llamado program mientras, consiste en contar del 1 al 10 y para ello vamos a usar un while y un delay. De modo que mientras que el numero (que inicialmente es 1) sea menor o igual que 10 siga escribiendo el numero que sera siempre el numero mas 1. Y el delay se lo ponemos antes de escribir el numero para que tarde 1 segundo exacto en sacar el numero siguiente.

Hoy hemos estado haciendo los ejercicios 17 y 18.

· Ejercio 17: tambien llamado program sentenciafor: consiste en que el programa te diga los numeros que van del 1 al 10 y luego del 10 al uno, y para ello vamos a usar la sentencia for(que sirve para repetir un proceso). Para que nos diga los numeros del 1 al 10 tendremos que poner

For a:=1 to 10 do

…Y para poner los numeros del 10 al uno seria de esta manera

For a:=10 downto 1 do

· Ejercicio 18: tambien llamado program letra: Consiste en que introduzca a cada numero una letra. Y luego que ponga de la z a la a y su valor numeral. Para ello vamos a usar varios for, en el primero tenemos que poner que desde la constante a a la b, escriba la letra y el valor de las constantes. Y lo hariamos poniendo un entero y chr(entero) en pantalla. Y para la segunda parte habria que poner desde la letra z hasta la a y después, que escriba la letra y su numero correspondiente. Y lo hariamos poniendo en pantalla lo siguiente, letra y ord(letra).

Hoy he seguido haciendo lo del ejercicio de los grados y creo que he descubierto el error, pero ahora lo he arreglado y lo que pasa es que no puedes introducir los grados con decimal por que sino no deja hacer la operacion.

Hoy hemos empezado el ejercicio 16, de pascal, al que hemos llamado program adivinar; y consiste en Introducir un numero del 1 al 5 y la maquina te dice si has elegido el mismo numero que ella o no. Para ello hay que usar la funcion random.

No he acabado el ejercicio pero ahora dejo una imagen de lo que llevo.

Hoy es dia de blog, otra vez por mayoria, pero como ya lo he terminado he estado comprobando que los ejercicios estuvieran bien y completos. Estoy haciendo una cosa del ejercicio 6 que no hice y estoy teniendo muchos problemas al pasar los grados a la primera vuelta. Es mas, he tenido tantos problemas que no lo he podido hacer.

Hoy es dia de blog pero como ya lo acabé el fin de semana, hoy no se que hacer porque he modificado algunas entradas que hice aqui los lunes que aparece como si fuese domingo.

Me aburro mucho de hacer blog si ya lo tengo hecho pero bueno.

Hoy nos hemos puesto las pilas, porque hemos hecho los ejercicios 13, 14 y 15.

Primero,el ejercicio 13 al que hemos llamado program positivo; consiste en introducir un numero entero y el programa te dice si es positivo o negativo.
Lo nuevo de este trabajo es el uso de las condiciones, es decir a usar el if.
Para eso hay que poner
If variable>0 then
write ('positivo');
else (*Esto es para cuando no se cumpla la condicion haga otra cosa*)
write ('negativo');


Despues, el ejercicio 14 que hemos llamado program mayordeedad; consiste en introducir tu nombre y la edad, y si le has puedto 18 años o mas, te pondra que eres mayor, pero si introduces un numero menor de 18 te dira que eres menor.
Hemos aprendido a poner dos colores en el mismo if.
Para poner dos colores dentro del mismo if hay que introducir un begin y un end.Por ejemplo:
Begin
If ed>=18 then
Begin
textcolor (1);
write ('mayor');
End
else
Begin
textcolor (6);
write ('menor');
End;
Readkey;
End.

Por ultimo, el ejercicio 15 que hemos llamado program password; El programa te pide el nombre de usuario, si es Juan te pide la contraseña pero si no es Juan te dice que el usuario es incorrecto.
Luego al pedirte la contraseña si has puesto 1234; te da la bienvenida, pero si has puesto otra te dice que la contraseña es erronea.
Aqui no hemos visto nada nuevo simplemente lo que hay que hacer es usar los IF encadenados.

Hoy hemos hecho el ejercicio 11 y el 12.

Primero hemos hecho el ejercicio 11 al que habia que llamar program concatenar, consiste en introducir dos textos, y el programa los junta y los pone en unas coordenadas determinadas.
Lo nuevo de este trabajo es lo de sumar textos y lo de las coordenadas.
En verdad, lo de sumar textos es igual que la suma de variables, solo que hay que cambiar el tipo a ansistring.
Pero lo de las coordenadas se hace poniendo gotoxy (x,y) antes de la linea que quieres mover; x->posicion horizontal y->pos. vertical,
Por ejemplo, llamando a las variables ansistring : text1, text 2 y text3(a la suma) nos quedaria asi:
text3:=text2+text1;
gotoxy (15,9);
writeln (text3);


Por ultimo hemos hecho el ejercicio 12 que lo hemos llamado program mediadelvector; que consiste en introducirle x numeros de elementos al vector, y nos hace la suma y la media.
Para eso tenemos que introducir como variable: Vector: array[1..x(Tantos elementos desees introducir)] of real;
Luego lo demas es igual, hay que hacer que nos pida tantos elementos como queramos, luego que haga la suma, y luego que lo divida entre tantos numeros como hallamos puesto.

Hoy hemos hecho los ejercicios 9 y 10

Primero, hemos hecho el ejercicio 9 al que hemos llamado program REALES, que consta de varias partes, en la primera hay que introducir un numero real y nos dan el valor original, con formato, redondeado y truncado. En la segunda parte se borra la pantalla y nos pide un numero real y dos enteros, luego nos da la suma de los reales, el producto de los reales, la division de los reales, la resta de el segundo entero menos el primer entero, la division de los enteros, la division entera de los enteros, el resto de la division de los enteros y finalmente el opuesto de un entero.
Lo nuevo de este ejercicio es:
Para redondear tienes que poner , round(variable) dentro del parentesis del write.
Para truncar tienes que poner , trunc(variable) dentro del parentesis del write.
Para hacer la division entera de a y b, se pone , a div b , dentro del parentesis del write.
Para hacer el resto de la division entera de a y b, se pone , a mod b, dentro del parentesis del write.
Para hacer el opuesto de a tienes que poner -a, al escribirlo en pantalla.


Luego hemos hecho el ejercicio 10 que se llama program cadenas; consiste en introducir tu nombre completo y el programa te dice cuantas letras tiene tu nombre entero contando los espacios.
Lo nuevo de aqui es cambiarle el color al texto y contar los caracteres que tiene el texto, todo lo demas es lo de siempre.
Para cambiar de color al texto hay que poner antes del texto que quieras que se escriba de otro color, lo siguiente: textcolor (el color o numero que quieras), por ejemplo:
textcolor(yellow); o text color(7);
Y para que cuente los caracteres tienes que poner length (variable del texto que quieras contar) dentro del write.
por ejemplo:
write (length (x));

Hoy hemos hecho el ejercicio 8 que hay que llamarlo program azar, consiste en introducirle tu nombre y que te diga 6 numeros premiados al azar desde el 1 hasta el 49.
Lo nuevo de este ejercicio es la funcion randomize (sirve para que introduzca numeros al azar), el resto seria igual.
Para introducir numeros aleatorios, hay que poner randomize; antes de empezar a escribir el primer numero al azar, y antes de escribir la variable, hay que poner la operacion:
ejemplo:=random (100) [El numero que va entre parentesis, sirve para que escriba un numero aleatorio que va desde el 0 al 100][ejemplo es la variable]
Nos quedaria asi:
randomize;
num1:=random (49)+1; [Esto es para que vaya desde el 1 hasta el 49]
write ('...');
num2:=random (49)+1;
write ('...');
...
Y asi con todos los numeros que quieras aleatorios.

Hoy hemos hecho otros dos ejercicios de pascal.

Primero, hemos hecho el ejercicio 6, al cual hemos llamado program Grados, en el que tenemos que introducir los grados y nos da el resultado en radianes.
En este no ha habido cosas nueva, es simplemente escribir en pantalla 'introduce las grado ...', poner la formula de grados a radianes y luego escribir en pantalla 'Tanto grados son x radianes'.


Por ultimo, hemos hecho el ejercicio 7 al que habia que llamar program salu2, consiste en introducir tu nombre, te dice Hola y tu nombre, luego le introduces la edad y te dice cuantos años tienes.
En este trabajo hemos aprendido a introducir variables con caracteres (letra, ...), y a escribir detro de un mismo write, texto en pantalla+variable+texto en pantalla.
Para introducir variables con caracteres hay que poner despues de la variable ^: ansistring;^
nos quedaria asi:
var
nombre: ansistring;
Y para introducir en un mismo write texto+variable+texto, hay que poner
'el primer texto' (entre comillas) , variable, 'el segundo texto'
Nos quedaria asi
write ('Tienes', edad, 'años');
Todo lo demas ya lo habiamos aprendido en otros ejercicios.