Ahorcado En Delphi

[Casimiro Noteví]

Empezado por Neftali

Suscribo lo dicho por Delphius.
Te podemos ayudar en lo que necesites; Pregunta las dudas que tengas, pero no hacemos programas "a medida".
Un saludo.

¿cómo que no?, ¿cuánto pagan?

[Alfonso Ramírez]

Hola todos y buenas noches (en México), yo tambien tengo una duda acerca del ahorcado, lo estoy haciendo en borland c++ y la verdad me marca un error que no se que cuernos pasa xD.

#include <iostream>
#include <conio.h>
#include <stdlib.h>
#include <ctype.h>
#include <string.h>
#include <stdio.h>

char palabras[10][20], palabra[20], letra, respuestas[20];
int h, longitud, intentos=0, y,band=0;

int main()
{

do
{

strcpy(palabras[0], "alfonso");
strcpy(palabras[1], "poncho");
strcpy(palabras[2], "delphi");
strcpy(palabras[3], "lazarus");
strcpy(palabras[4], "free");
strcpy(palabras[5], "pascal");
strcpy(palabras[6], "borland");
strcpy(palabras[7], "enbarcadero");
strcpy(palabras[8], "club");
strcpy(palabras[9], "delphi");
intentos = 0;

for (int i=0; i<26; i++)
{
gotoxy(12+i*2,7); // el error me lo marca aqui u.u y no se por que xD
textcolor(i+1);
cprintf("%c",65+i);// error de sintaxis con el cprintf o cout
}

srand(time(0));
h= 0+rand()%9;

strcpy(palabra, palabras[h]);
longitud = strlen(palabra);

for (int i=1; i<=longitud; i++)
{
gotoxy(25+i*4,19);
cout << "_" << endl;
}

do
{
gotoxy(25,4);
textcolor(10);
cout<< "EL AHORCADO" << endl;
gotoxy(25,9);
cout<< "Intenta Adivinar La Palabra" << endl;
gotoxy(28,12);
cout<< "Digite una Letra---->" << endl;
gotoxy(24,22);
cout<<"EL MAXIMO DE INTENTOS ES DE 6 Y LLEVAS[ "<<intentos<<" ]";
do
{
letra=toupper(getch());
}while (!isalpha(letra));


//cout << "El Maximo de Intentos es 6 y llevas[%d] " << intentos+1 << endl;

gotoxy(25+intentos+1*2,25);
cout<<""<<letra<<" ";

for (int i=0; i<longitud; i++)
{

if (letra==palabra[i])
{
gotoxy(29+i*4,18);
cout<<letra;
respuestas[i]=letra;
band=1;
}
y=strcmp (palabra, respuestas);

if (y==0)
{
gotoxy(25,23);
cout << "MUY BIEN ADIVINASTE LA PALABRA" << endl;
}
}

if(band!=1)
{
intentos++;
}
else
{
band=0;
}


}while(intentos<6 && y!=0);

if(intentos==6)
{
gotoxy(26,24);
cout<<"INCORRECTO LA PALABRA ERA: " << palabra << endl;
}

gotoxy(26,25);
cout<<"Quieres Juegar de Nuevo? (S/N)" << endl;
cin>>letra;
clrscr();

}while(letra!='n');


getch ();

return 0;

}

Gracias de ante mano por la ayuda y la atención prestada.

[Casimiro Noteví]

Bienvenido a clubdelphi, ¿ya leiste nuestra guía de estilo?, gracias por tu colaboración.

[ecfisa]

hgjhjhvj:
Por favor... hay que esforzase un poco mas. Con sólo una pasada por aquí, sin dificultad hubieses encontrado esto: Delphi Hangman Game (cortesía de Zarko Gajic). Pero también vá un consejo: Copiar y pegar código poco va a aportar a tu aprendizaje.

Alfonso Ramírez:
Te recomiendo poner tu consulta en el foro apropiado (C++ Builder), ya que tendrás mas posibilidades de obtener respuestas. Y por favor, cuando incluyas código en tus mensajes encierralo entre etiquetas

Saludos.