elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.

 

 


Tema destacado: Rompecabezas de Bitcoin, Medio millón USD en premios


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  necesito ayuda con el ahorcado en pascal
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: necesito ayuda con el ahorcado en pascal  (Leído 6,520 veces)
savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
necesito ayuda con el ahorcado en pascal
« en: 7 Octubre 2011, 18:07 pm »

Hola,buenas;necesito ayuda con el ahorcado en pascal,tengo hecho el codigo y solamente quiero si alguien puede corregirmelo haber que tal esta lo tengo que entregar,y es muy importante que este bien,el codigo compila lo que quisiera saber es que no he hecho ninguna barbaridad.Soy nuevo en el foro como puedo hacer para insertar el codigo aqui el compilador que he usado es Free Pascal.
Gracias.


En línea

$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #1 en: 7 Octubre 2011, 18:12 pm »

Copia y pega el codigo aca simplemente, o es mucho? si es asi tienes que subir los archivos de tu proyecto y nos dejas un link para descargarlo


En línea

savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #2 en: 7 Octubre 2011, 18:22 pm »

He intentado copiar y pagar y no me deja,como lo hago de la otra forma como pongo el link.
En línea

$Edu$


Desconectado Desconectado

Mensajes: 1.842



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #3 en: 7 Octubre 2011, 18:33 pm »

Como no te va a dejar pegar el codigo?, el codigo me refiero al texto, el que escribes cuando programas por ejemplo:

Código
  1. MsgBox "hola"
  2.  

Y para subir tu proyecto, entras a mediafire.com y buscas donde diga para subir archivo, y subes tus archivos que ya estaran comprimidos en winrar antes, y luego te daran un link el cual tienes que dejar aca.
En línea

savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #4 en: 7 Octubre 2011, 18:59 pm »

No me deja pegar el texto me pone
Código:
y nada mas,y si dou a copiar y pegar tampoco,y no es demasiado grande 92 lineas.
En línea

savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #5 en: 7 Octubre 2011, 19:04 pm »

Código:
En línea

savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #6 en: 7 Octubre 2011, 19:08 pm »

  Este es ,¿que tal esta  ?son dos jugadores cada uno tiene que dar una palabra y gana el primero que hacierte,la partida se debe poder guardar y cargar,en modo texto no en binario.Si hacierta con la letras sigues tirando si no pierdes turno.



 
Código:
  program ahorcado;
  uses crt;
  type
    cadena=string[9];
  var
    fich:text;

    palabra1,adivinar1:cadena;
    palabra2,adivinar2:cadena;
    letra:char;
    posicion1,posicion2,longuitud1,longuitud2:integer;
    {en el procedimiento las cadenas palabra,aux,adivinar las pasamos por referencia
    porque las modificaciones que vamos a efectuar en el parametro formal las realizaremos sobre
    el parametro real lo mismo sucede con la longuitud porque varia segun sea la palabra}
  procedure inicializarvector (var palabra,adivinar:cadena;var longuitud:integer);
  var
   i:integer;
   begin
   writeln('Escribe la palabra que quiere que adivinen: ');
   readln(palabra);
   {Calculamos la loguitud de la palabra introducida}
   longuitud:=lenght(palabra);

   for i:=1 to longuitud do
   {Inicializamos la palabra con guiones}
      adivinar:='_';
      end;
  {Pasamos todo los argumentos por referencia salvo "palabra" que la pasamos por valor porque no la vamos a modificar}
   procedure comprobarletra (var letra:char;var posicion:integer;var adivinar:cadena;palabra:cadena);
      var
      i:integer;

      begin
      repeat
      writeln('¿Que letra crees que esta en la palabra?');
      readln(letra);
      {Vemos en que posicion se encuentra la letra dada en la palabra que tenemos que adivinar}
      posicion:=pos(letra,palabra);
      if posicion<>0 then
      begin
      writeln('La posición es:',posicion);
      {Cambiamos en la palabra que tenemos que adivinar el guion por la letra dada}
          adivinar[posicion]:=letra;
      {Y mostramos por pantalla los cambios efectuados}
          writeln(adivinar);
          end
       {si no se encuentra la letra en la palabra}
        else
         begin
         writeln('La letra dada no se encuentra en la palabra.');
         writeln('¡¡¡PIERDES TURNO!!!');
         writeln('Lista de letras que no estan en la palabra que tienes que adivinar:');
         writeln(letra);
         end;
         until (posicion=0) ;
         end;

         {----------------------CUERPO DEL PROGRAMA-------------------------}
         begin
         clrscr;
         writeln('=================================JUEGO DEL AHORCADO============================');
         {$I-}{Desactivamos el control automático de errores de E/S.}
          assign(fich,'C:\juego.txt');
          append(fich);
          {$I+}{Activamos el control automático de errores de E/S.}
          if IOResult<>0 then {Comprobamos si ha habido errores}
          writeln('Error:',IOResult,'al abrir el fichero.')
          else
          begin
         writeln('Comencemos el juego del ahorcado,con el jugador 1.');
         inicializarvector(palabra1,adivinar1,longuitud1);
         clrscr;
         writeln('jugador 2 es su turno');
         clrscr;
         inicializarvector(palabra2,adivinar2,longuitud2);
         repeat
            writeln('Jugador 1');
            comprobarletra(letra,posicion2,adivinar2,palabra2);
            clrscr;
            writeln('Su turno,jugador 2');
            comprobarletra(letra,posicion1,adivinar1,palabra1);
            clrscr;
            until
             (adivinar1=palabra1) or (adivinar2=palabra2);
             if(adivinar2=palabra2)then
               writeln('¡¡¡¡GANASTE JUGADOR 1!!!')
               else
                writeln('¡¡¡GANASTE JUGADOR 2!!!');
          close(fich);
          end;
          end.
                                               
En línea

savag

Desconectado Desconectado

Mensajes: 8



Ver Perfil
Re: necesito ayuda con el ahorcado en pascal
« Respuesta #7 en: 8 Octubre 2011, 20:27 pm »

Por favor si alguien le puede hechar un vistazo,l tengo que entregar mañana.
En línea

Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

Mensajes similares
Asunto Iniciado por Respuestas Vistas Último mensaje
Necesito ayuda en pascal
Programación General
W0lFy 5 4,321 Último mensaje 16 Junio 2014, 15:29 pm
por Hustler001
Necesito ayuda con un ejercicio de turbo pascal
Programación General
Madsmarco 1 3,085 Último mensaje 10 Abril 2011, 22:17 pm
por skapunky
Necesito ayuda!! agenda electronica con archivos secuenciales creada en pascal
Ejercicios
colillo 1 4,348 Último mensaje 1 Mayo 2012, 23:02 pm
por colillo
Ayuda con el juego el ahorcado
Programación C/C++
Classic77 4 4,106 Último mensaje 7 Diciembre 2012, 15:21 pm
por durasno
Ayuda, programa en C .. El ahorcado....
Programación C/C++
TopoJunior 4 4,884 Último mensaje 15 Febrero 2013, 23:34 pm
por X3R4CK3R
WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines