Correcciones menores

ejercicios/arreglos/ejercicio11.psc

@@ -20,7 +20,6 @@ Proceso Diagonal
 	Dimension matriz[5,5];
 	Definir fila,col como Entero;
 	Definir num_filas, num_cols Como Entero;
-	Definir suma como Entero;
 	num_filas<-5;
 	num_cols<-5;
 	//Recorro la tabla 

ejercicios/arreglos/ejercicio14.psc

@@ -20,7 +20,7 @@
 // Datos de entrada: Precio de 5 art�culos y la cantidad vendida de cada art�culo en 4 
 //sucursales
 // Informaci�n de salida: Las que indica el enunciado
-// Variables: Precio (tabla de 5 reales), Cantidad (tabla de 4 x 3 reales)
+// Variables: Precio (tabla de 5 reales), Cantidad (tabla de 4 x 5 reales)
 //			  Suma,NumMayor,Ariculos_Sucursal2,MayorRec,TotalSucursal,TotalEmpresa 
 //			  (Real)
 //################################################################################

ejercicios/arreglos/ejercicio15.psc

@@ -7,38 +7,38 @@
 //dos columnas, en la primera se guarda el n�mero de goles del equipo que est� 
 //guardado en la primera columna de la tabla anterior, y en la segunda los goles 
 //del otro equipo.
-//El programa ira pidiendo los nombres de los equipos de cada partido y el 
+//El programa ir� pidiendo los nombres de los equipos de cada partido y el 
 //resultado del partido, a continuaci�n se imprimir� la quiniela de esa jornada.
 //################################################################################
 //An�lisis
-//Recorro las tablas para incializar el nombre de los dos quipos y el resultado del partido
+//Recorro las tablas para inicializar el nombre de los dos quipos y el resultado del partido
 //Recorro las tablas, muestro el nombre de los equipos
 // Un 1 si el que juega en casa ha ganado (primer equipo gana)
 // Un 2 si el que juega de visitante ha ganado (segundo equipo gana)
 // Una X si hay empate
 // Datos de entrada: Nombre de los dos quipos y el resultado del partido (para cada partido)
 // Informaci�n de salida: Los nombres de los equipos y el resultado de la quiniela
-// Variables: equipos (tabla de 15 x 2 cadenas), resultados (tabla de 15 x 2 enteros)
-//			  indice,num_equpos (entero)
+// Variables: partidos (tabla de 15 x 2 cadenas), resultados (tabla de 15 x 2 enteros)
+//			  indice,num_partidos (entero)
 //################################################################################
 
 Proceso Quiniela
-	Definir indice,num_equipos Como Entero;
-	Definir equipos Como Caracter;
-	Dimension equipos[15,2];
+	Definir indice,num_partidos Como Entero;
+	Definir partidos Como Caracter;
+	Dimension partidos[15,2];
 	Definir resultados Como Entero;
 	Dimension resultados[15,2];
-	num_equipos<-15;
+	num_partidos<-15;
 	//Recorro las tablas para incializar el nombre de los dos quipos y el resultado del partido
-	Para indice<-0 hasta num_equipos-1 Hacer
-		Escribir Sin Saltar "Introduce el nombre del equipo 1 del partido ", indice+1,":";
-		Leer equipos[indice,0];
-		Escribir Sin Saltar "Introduce el nombre del equipo 2 del partido ", indice+1,":";
-		Leer equipos[indice,1];
-		Escribir Sin Saltar "Introduce los goles metidos por el equipo ",equipos[indice,0],": ";
-		Leer resultados[indice,0];
-		Escribir Sin Saltar "Introduce los goles metidos por el equipo ",equipos[indice,1],": ";
+	Para indice<-1 hasta num_partidos Hacer
+		Escribir Sin Saltar "Introduce el nombre del equipo 1 del partido ", indice,":";
+		Leer partidos[indice,1];
+		Escribir Sin Saltar "Introduce el nombre del equipo 2 del partido ", indice,":";
+		Leer partidos[indice,2];
+		Escribir Sin Saltar "Introduce los goles metidos por el equipo ",partidos[indice,1],": ";
 		Leer resultados[indice,1];
+		Escribir Sin Saltar "Introduce los goles metidos por el equipo ",partidos[indice,2],": ";
+		Leer resultados[indice,2];
 	FinPara
 	Escribir "QUINIELA";
 	Escribir "========";
@@ -47,14 +47,14 @@ Proceso Quiniela
 	// Un 1 si el que juega en casa ha ganado (primer equipo gana)
 	// Un 2 si el que juega de visitante ha ganado (segundo equipo gana)
 	// Una X si hay empate
-	Para indice<-0 hasta num_equipos-1 Hacer
-		Si resultados[indice,0]>resultados[indice,1] Entonces
-			Escribir equipos[indice,0], " - ",equipos[indice,0]," -> 1";
+	Para indice<-1 hasta num_partidos Hacer
+		Si resultados[indice,1]>resultados[indice,2] Entonces
+			Escribir partidos[indice,1], " - ",partidos[indice,2]," -> 1";
 		SiNo
-			Si resultados[indice,0]<resultados[indice,1] Entonces
-				Escribir equipos[indice,0], " - ",equipos[indice,0]," -> 2";
+			Si resultados[indice,1]<resultados[indice,2] Entonces
+				Escribir partidos[indice,1], " - ",partidos[indice,2]," -> 2";
 			SiNo
-				Escribir equipos[indice,0], " - ",equipos[indice,0]," -> X";
+				Escribir partidos[indice,1], " - ",partidos[indice,2]," -> X";
 			FinSi
 		FinSi
 	FinPara

ejercicios/arreglos/ejercicio4.psc

@@ -13,13 +13,13 @@
 // Datos de entrada: Leo n�mero positivos y los guardo en el vector, hasta que lea 
 //un n�mero negativo o lea todos los elementos del vector.
 // Informaci�n de salida:Los elementos (n�meros positivos) guardados en el vector.
-// Variables: vector (vector de 10 enteros), tam_vector,indice,num (Entero)
+// Variables: vector (vector de 10 enteros), tam_vector,indice (Entero)
 //################################################################################
 
 Proceso VectorPositivo
 	Definir vector Como Entero;
 	Dimension vector[10];
-	Definir tam_vector,indice,num como Entero;
+	Definir tam_vector,indice como Entero;
 	indice<-0;
 	tam_vector<-10;
 	//Recorro el vector y voy inicializando sus elementos

ejercicios/arreglos/ejercicio7.psc

@@ -9,7 +9,7 @@
 // Datos de entrada: N�meros para el primer vector, n�meros para el segundo vector
 // Informaci�n de salida: Los n�meros del tercer vector, que es la suma de 
 //los anteriores
-// Variables: vector1,vector2,vector3 (vector de 12 enteros), 
+// Variables: vector1,vector2,vector3 (vector de 5 enteros), 
 //            indice, tam_vector (entero)
 //################################################################################
 

ejercicios/mas_ejercicios/ejercicio3.psc

@@ -1,68 +1,70 @@
 //################################################################################
-//Funci�n CalcularVuelta: Recibe el dinero que hay que devolver y el valor de un 
-//billete o una moneda, devuelve el n�mero de billetes o monedas de esa cantidad
-//que hay que devolver y actualiza el dinero que queda por devolver.
-//Par�metros de entrada: cantidad: valor del billete o la moneda
+//Funci�n CalcularVuelta: Recibe el dinero que hay que devolver y el valor nominal
+// de un billete o una moneda con la que se quiere devolver dicho dinero.
+//Devuelve el n�mero m�ximo de billetes o monedas de ese
+//valor nominal que no se pase del dinero recibido y actualiza el dinero que
+//quedar� pendiente por devolver despu�s de la devoluci�n actual.
+//Par�metros de entrada: valor_nominal: valor del billete o la moneda
 //Par�metros de entrada y salida : dinero que hay que devolver, se devuelve con el 
 //dinero que queda por devolver.
 //Dato devuelto: vuelta: N�mero de billetes o monedas que hay que devolver.
 //################################################################################
 
-Funcion vuelta <- CalcularVuelta(dinero Por Referencia,cantidad)
+Funcion vuelta <- CalcularVuelta(dinero Por Referencia,valor_nominal)
 	Definir vuelta como Entero;
 	//Realizamos la divisi�n entera entre el dinero 
-	//que hay que devolver y la cantidad del billete o moneda
-	vuelta<-Trunc(dinero/cantidad);
+	//que hay que devolver y el valor_nominal del billete o moneda
+	vuelta<-Trunc(dinero/valor_nominal);
 	//Actualizamos el dinero que queda por devolver
-	dinero<-dinero - vuelta*cantidad;
+	dinero<-dinero - vuelta*valor_nominal;
 FinFuncion
 
 //################################################################################
-//Procedimiento InicializaBilletesMonedas: Recibe un vector "cantidades" donde 
+//Procedimiento InicializaBilletesMonedas: Recibe un vector "valores_nominales" donde 
 //vamos a guardar el valor de los billetes y monedas de mayor a menor.
-//Par�metros de entrada y salida : cantidades
+//Par�metros de entrada y salida : valores_nominales
 //################################################################################
 
-Funcion InicializaBilletesMonedas(cantidades Por Referencia)
-	cantidades[0]<-500;
-	cantidades[1]<-200;
-	cantidades[2]<-100;
-	cantidades[3]<-50;
-	cantidades[4]<-20;
-	cantidades[5]<-10;
-	cantidades[6]<-5;
-	cantidades[7]<-2;
-	cantidades[8]<-1;
-	cantidades[9]<-0.50;
-	cantidades[10]<-0.20;
-	cantidades[11]<-0.10;
-	cantidades[12]<-0.05;
-	cantidades[13]<-0.02;
-	cantidades[14]<-0.01;
+Funcion InicializaBilletesMonedas(valores_nominales Por Referencia)
+	valores_nominales[1]<-500;
+	valores_nominales[2]<-200;
+	valores_nominales[3]<-100;
+	valores_nominales[4]<-50;
+	valores_nominales[5]<-20;
+	valores_nominales[6]<-10;
+	valores_nominales[7]<-5;
+	valores_nominales[8]<-2;
+	valores_nominales[9]<-1;
+	valores_nominales[10]<-0.50;
+	valores_nominales[11]<-0.20;
+	valores_nominales[12]<-0.10;
+	valores_nominales[13]<-0.05;
+	valores_nominales[14]<-0.02;
+	valores_nominales[15]<-0.01;
 FinFuncion
 
 //################################################################################
-//Procedimiento EscribirVuelta: Recibe la cantidad de billetes o monedas y su valor
+//Procedimiento EscribirVuelta: Recibe el n�mero de billetes o monedas y su valor
 //y los imprime por pantalla. Se imprime si hay que devolver de ese billete o moneda
-//es decir, si la vuelta>0. Si la cantidad>2 se devuelven billetes (euros), 
-//sino se devuelven monedas y si la cantidad es >=1 se devuelven euros, sino c�ntimos.
-//Par�metros de entrada: vuelta: cantidad de billetes o monedas a devolver y
-//cantidad: valor del billete o moneda
+//es decir, si la vuelta>0. Si el valor nominal>2 se devuelven billetes (euros), 
+//sino se devuelven monedas y si el valor nominal es >=1 se devuelven euros, sino c�ntimos.
+//Par�metros de entrada: vuelta: n�mero de billetes o monedas a devolver y
+//valor_nominal: valor del billete o moneda
 //################################################################################
 
-Funcion EscribirVuelta(vuelta,cantidad)
+Funcion EscribirVuelta(vuelta,valor_nominal)
 	//Se imprime si hay algo que devolver
 	Si vuelta>0 Entonces
-		//Si la cantidad es menor de 2 devolvemos billetes
-		Si cantidad>2 Entonces
-			Escribir vuelta, " billetes de ",cantidad," euros.";
+		//Si el valor nominal es menor de 2 devolvemos billetes
+		Si valor_nominal>2 Entonces
+			Escribir vuelta, " billetes de ",valor_nominal," euros.";
 		SiNo
 			//SiNo devolvemos monedas
-			//Si la cantidad>=1 devolvemos euros
-			Si cantidad>=1 Entonces
-				Escribir vuelta, " monedas de ",cantidad," euros.";
+			//Si el valor nominal>=1 devolvemos euros
+			Si valor_nominal>=1 Entonces
+				Escribir vuelta, " monedas de ",valor_nominal," euros.";
 			SiNo //Devolvemos c�ntimos (lo multiplicamos por 100)
-				Escribir vuelta, " monedas de ",cantidad*100," c�ntimos.";
+				Escribir vuelta, " monedas de ",valor_nominal*100," c�ntimos.";
 			FinSi
 		FinSi
 	FinSi
@@ -88,7 +90,7 @@ Proceso Devolucion
 	//Incializamos las cantidades de billetes o monedas
 	InicializaBilletesMonedas(cantidades);
 	//Por cada cantidad, calculamos la vuelta e imprimimos lo que hay que devolver
-	Para indice<-0 hasta 14 Hacer
+	Para indice<-1 hasta 15 Hacer
 		vuelta<- CalcularVuelta(dinero,cantidades[indice]);
 		EscribirVuelta(vuelta,cantidades[indice]);
 	FinPara

ejercicios/pildoras/ahorcado.md

@@ -0,0 +1 @@
+[Juego del ahorcado](../mas_ejercicios/ejercicio10.psc)