programita en pascal

Para lo de mostrar el número de partidas ganadas y perdidas, crea dos variables (ganadas, perdidas) y auméntalas cada vez que ganes o pierdas respectivamente. Luego imprimes las dos variables y ya está.

Lo de los if - else, déjalos así. En un principio los switch son mas eficientes, ya que el compilador los enlaza como if encadenados. Sin embargo, los compiladores de hoy en día generan el mismo código (eficiente) para if que para switch. Aunque si estás usando Turbo Pascal quizá sería recomendable que lo hagas con switch. Aunque ya te digo que en el programa que tienes te va a dar igual en cuanto a eficiencia se refiere; va a ir igual de veloz con if que con switch.

Un saludo.

La etiqueta Code del foro, atención, sirve para poner código, mantiene la identación, etc.

La función jugadaMaquina la podrías simplificar bastante, ni te hace falta usar esa variable.

jugadaMaquina := random(3)

Lo mismo para la función jugadaHumano, el case te sobra. Estaría bien que comprobaras la entrada, puede que el jugador meta 0, 1, ó 2, pero también puede que meta otro número, o el nombre de su prima, en cuyo caso no obtienes el resultado esperado.

En la función del juego, si no estoy equivocado, tienes un problema con el if-else-etc, si la máquina juega a 0=piedra y el jugador a 2=tijera, el resultado es que gana (ya que jugada1>jugada2, primer condicional del if), cuando en el juego sería al revés. Ten en cuenta que en un if-else-etc, cuando una condición se evalúa a cierto las demás partes no se evalúan ni ejecutan. En general es un poco liosa esa parte, veo más lógico algo así (pseudocódigo, jH=jugada1, jM=jugada2):



Si quisieras usar un case, se podría, aunque es una rayada, en este caso es mejor un if-elseif-else. En los case sólo se pueden usar valores discretos para diferenciar las acciones a realizar, sólo tendrías que buscar una relación entre la jugada del humano y la máquina que evaluara distinta cuando el resultado es la victoria, la derrota o el empate, pero siempre el mismo para cada situación.

Una posible relación sería (jH-jM+2) mod 3, cuyo resultado sería siempre 0 para la victoria, 1 para la derrota, 2 para el empate. El resultado sería:



Pero amos, que mejor un if-elseif-else.

bueno despues de un par de dias creo que he terminado el programa en cuestion. He aqui el resultado



Muy probablemente se me haya olvidado algo o hay cosas de mas pero en fin, no doy mas de si
A ver que os parece.

PD: ¿Puedo hacer para que vuelva al menu principal sin tener que pulsar ENTER? Me explico, para volver a jugar hay que presiona ENTER, puedo poner de alguna manera que se pueda presionar cualquier tecla?

Sigo sin verle la utilidad a este case, y quizá sea que hace mucho que no uso pascal, pero te lo dije y lo vuelves a poner..


¿No es lo mismo que JugadaHumano:=Y?

Por lo demás, así sin probarlo y por encima, lo veo bien.

Para lo de pulsar cualquier tecla, creo que alguna vez usé algo llamado keypressed, no recuerdo si era alguna librería en especial, y tampoco detectaba todas las teclas, creo que control y alt se las saltaba.

jajaj cierto, se me habia olvidado lo de los CASE, no sirven para nada. Gracias por tu aportacion.
Otra duda que tenia era lo de ver el valor de las variables. Me dijeron que era haciendo breakpoints y he estado buscando como hacerlos pero no se.

hola quien me puede ayudar hacer un juego en pascal que llene una matriz de 10x10 con las letras del abecedario de forma aleatoria con las funciones random y randomize?

seneri escribió:hola quien me puede ayudar hacer un juego en pascal que llene una matriz de 10x10 con las letras del abecedario de forma aleatoria con las funciones random y randomize?

Creas la matriz y la recorres, generando una letra aleatoria y asignándola.

Pon lo que llevas hecho y en qué dudas.

es un juego que permita llenar una matriz de 10x10 con las letras del abecedario de forma aleatoria con las funciones random y randomize. Solo se imprimira en pasntalla algun caracter deseado como* o cualquier otro, y dara la opcion de pedir letra, el la busca en la matriz y descubre los sitios donde la letra se encuentra. cada letra descubierta suma 2 puntos. una letra fallida o que ya haya sido descubierta resta 10 puntos. gana si se logran descubrir todas las letras, pierde si el puntaje baja a 0.
Por favor necesito ayuda de verdad yo no tengo idea de como trabajar con pascal
lo unico que tengo es:
program mat;
uses crt;
var
mat:array[1..10,1..10] of char;
i,j:integer;
procedure llenar;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
begin
mat[i,j]:='x';
end;
end;
end;
mostrar;
procedure mostrar;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
begin
gotoxy(10+ j, 10+i);
write(mat[i,j]);
end;
end;
end;
a:=random(26);
a:=a+65;
mat[i,j]:=char(a);
begin
clrscr;
llenar;
mostrar;
readkey;
end.

Aquí no te vamos a hacer los deberes, yo iría buscando un manual de pascal.

amuchamu escribió:Aquí no te vamos a hacer los deberes.

+1

La gente confunde ayuda con "paso_de_hacer_hazmelo_tú".
Y lo confunden con la misma asiduidad que "paso_de_buscar_en_google_dame_una_respuesta_completa_o_buscamelo_tú".

amuchamu escribió:Aquí no te vamos a hacer los deberes, yo iría buscando un manual de pascal.

es un juego que permita llenar una matriz de 10x10 con las letras del abecedario de forma aleatoria con las funciones random y randomize. Solo se imprimira en pasntalla algun caracter deseado como* o cualquier otro, y dara la opcion de pedir letra, el la busca en la matriz y descubre los sitios donde la letra se encuentra. cada letra descubierta suma 2 puntos. una letra fallida o que ya haya sido descubierta resta 10 puntos. gana si se logran descubrir todas las letras, pierde si el puntaje baja a 0.
Por favor necesito ayuda de verdad yo no tengo idea de como trabajar con pascal
lo unico que tengo es:
program mat;
uses crt;
var
mat:array[1..10,1..10] of char;
i,j:integer;
procedure llenar;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
begin
mat[i,j]:='x';
end;
end;
end;
mostrar;
procedure mostrar;
begin
for i:= 1 to 10 do
begin
for j:= 1 to 10 do
begin
gotoxy(10+ j, 10+i);
write(mat[i,j]);
end;
end;
end;
a:=random(26);
a:=a+65;
mat[i,j]:=char(a);
begin
clrscr;
llenar;
mostrar;
readkey;
end.

seneri escribió:Por favor necesito ayuda de verdad yo no tengo idea de como trabajar con pascal

Pues si son deberes y no tienes ni idea, algo falla.