Jogo da forca em Pascal - duvida na logica

Hellsing · 23-02-2006, 22:31

Olá amigos. A 'fessora pediu pra montar um programa em pascal que simule um jogo da forca. Tem uma lista já pré-montada de palavras pra pessoa escolher às cegas, só pra ela não ter que digitar uma palavra antes. Até aí tudo bem, mas acontece que na segunda estrutura de repetição, mesmo que eu digite a palavra e acerte, não me mostra a mensagem de vitória. Invariavelmente ele espera chegar até um número de tentativas igual a zero pra sair e me mostrar a mensagem de "You Lose !!!" ^_^

O programa é esse ae:

Código:

program Forca;

uses
   crt;

var
   bancoStrings: array [1..10] of String;
   palavraCerta, palavraParcial :String;
   tentativa :Char;
   qtdTentativas, X, opc :Integer;
//------------------------------------------------------------------------------
begin
   bancoStrings[1] := 'macaco';
   bancoStrings[2] := 'caminhao';
   bancoStrings[3] := 'informatica';
   bancoStrings[4] := 'banco';
   bancoStrings[5] := 'onibus';
   bancoStrings[6] := 'mico-leao';
   bancoStrings[7] := 'computador';
   bancoStrings[8] := 'criptografia';
   bancoStrings[9] := 'psicologia';
   bancoStrings[10] := 'juiz de fora';

   qtdTentativas := 8;

   repeat
      writeln;
      writeln ('   Jogo da Forca');
      writeln;
      write (' Digite de 1 a 10 para escolher uma palavra: ');
      readln (opc);
   until (opc >= 1) or (opc <= 10);

   palavraCerta := bancoStrings[opc];

   for X := 0 to Length(palavraCerta) do
   begin
      if (palavraCerta[X] = ' ') then
         palavraParcial[X] := ' '
      else if (palavraCerta[X] = '-') then
         palavraParcial[X] := '-'
      else
         palavraParcial[X] := '@';
   end;

   repeat
      ClrScr;

      writeln;
      writeln (palavraParcial);
      writeln;

      if (palavraParcial <> palavraCerta) and (qtdTentativas > 0) then
      begin
         Writeln (' Voce tem ', qtdTentativas, ' tentativas restantes.');

         Write (' Digite uma letra (letra minuscula): ');
         tentativa := readkey;

         if Pos(tentativa, palavraParcial) = 0 then
         begin
            for X := 0 to Length(palavraCerta) do
            begin
               if (tentativa = palavraCerta[X]) then
               begin
                  palavraParcial[X] := tentativa;
               end
               else if Pos(tentativa, palavraCerta) = 0 then
               begin
                  qtdTentativas := qtdTentativas - 1;
                  Break;
               end;
            end
         end
         else
            qtdTentativas := qtdTentativas - 1;
      end
      else if (palavraParcial <> palavraCerta) and (qtdTentativas = 0) then
      begin
         Writeln (' Voce perdeu, tente novamente.');
         Readln;
         Exit;
      end
      else if (palavraParcial = palavraCerta) then
      begin
         Writeln (' Parabens, voce acertou a palavra.');
         Readln;
         Exit;
      end;

      until (tentativa = Chr(27)) or (palavraParcial = palavraCerta);
                            { Executa até o pressionamento do ESC
                              ou as palavras serem iguais }
end.

Tipo... eu mesmo que estou desenvolvendo, não é cópia de ninguém, mas chegou nessa parte da lógica do programa que eu mesmo não estou conseguindo ver onde errei, ou o que falta, sacaram ?! Alguém que conseguir ver o erro, por favor, me avise... isso já está me tirando o sono.
8O 8O
Estou desenvolvendo-o em Dev-Pas.

Falow...

Hellsing

colinzeal · 24-02-2006, 12:56

na minha opinião essa parte do código tá meio estranha:

Código:

         if Pos(tentativa, palavraParcial) = 0 then 
         begin 
            for X := 0 to Length(palavraCerta) do 
            begin 
               if (tentativa = palavraCerta[X]) then 
               begin 
                  palavraParcial[X] := tentativa; 
               end 
               else if Pos(tentativa, palavraCerta) = 0 then 
               begin 
                  qtdTentativas := qtdTentativas - 1; 
                  Break; 
               end; 
            end 
         end 
         else 
            qtdTentativas := qtdTentativas - 1;

eu modifiquei um pouco (sem compilar nada, tirando da minha cabeça):

Código:

         { verificando se a tentativa já foi feita antes e acertada }
         if Pos(tentativa, palavraParcial) = 0 then 
         begin
            { verificando se a tentativa está na palavra correta }
            if Pos(tentativa, palavraCerta) > 0 then
            begin
               { se estiver, substitui as letras }
               for X := 0 to Length(palavraCerta) do
                  if (tentativa = palavraCerta[X]) then
                     palavraParcial[X] := tentativa;
            end
            else
            begin
               { se não, tira uma tentativa }
               qtdTentativas := qtdTentativas - 1;
            end;
         end
         else
         begin
            writeln('Você já tentou essa letra!');
            readln;
            exit;
         end;

repare que eu nem lembro como é o comentário de uma linha no pascal... eehhe não lembro se era // ... é, né?

DCNunes · 25-02-2006, 14:29

Vou só dar uma dica: em Pascal, o primeiro elemento de uma variável do tipo "string" é usado para armazenar a quantidade de caracteres que a variável possui no momento (não confundir com a quantidade de memória ocupada pela variável). Sendo "s" uma variável do tipo string, s[0] contém a quantidade de caracteres dessa string. Atribuindo:

Código:

s := 'abc';

, s[1] contém 'a', s[2] contém 'b', s[3] contém 'c' e s[0] contém #3.

Para comprovar, testa esse código:

Código:

program tam_str;
var
  s : string;
  t : byte absolute s;
begin
  repeat
    write('digite uma string: ');
    readln(s);
    writeln('Numero de caracteres: ',t);
    writeln;
  until t = 0;
end.

Eu declarei uma varável t no mesmo endereço de s[0]. Imprimindo s[0], se imprime um caracter. Imprimindo t, se imprime um inteiro.

Hellsing · 25-02-2006, 18:12

Uhn... não sabia dessa não. Vou ter que analisar novamente o código.

E valew colinzeal, mas infelizmente o erro persiste !!

SE eu conseguir encontrar o erro, posto aqui. É interessante...

Valew amigos !!!

Falow...

Hellsing

jackinabox · 25-02-2006, 20:15

Isso aqui, por exemplo, não é a causa do problema, mas está errado:

Código:

until (opc >= 1) or (opc <= 10);

Esse or deveria ser um and.

Hellsing · 26-02-2006, 20:24

Citação:

Postado Originalmente por jackinabox

Isso aqui, por exemplo, não é a causa do problema, mas está errado:
[code]
until (opc >= 1) or (opc ...

É... realmente...
O REPEAT é executado enquanto a expressão for falsa. Se por exemplo eu digitar 11, ele para de executar e dá resultado errado.
Valew...

Mas o programa ainda está dando erro. :-/
Tou tentando resolver essa parada...

Falow...

Hellsing

jqueiroz · 27-02-2006, 14:21

sugestão: use o tipo primitivo do Pascal 'set'. Um set é um conjunto não ordenado de elementos de um tipo escalar.

Ex.:

Código:

var
   tentativas : set of char;

As operações que te interessam em um 'set' são 'pertinência' (elemento pertence ao set???) e 'inclusão' (set <- elemento).

Assim vc pode fazer

Código:

tentativas := tentativas + letra

e também

Código:

if letra in tentativas then
begin
   println('Você já tentou essa letra!!!');
(...)

Hellsing · 02-03-2006, 14:46

Olá amigos. Muito obrigado pela atenção dispendida com esse meu problema. Eu fiquei tentando conciliar as idéias indicadas com o que eu havia feito, e talvez por inépcia minha eu não tenha conseguido conciliar as idéias. Assim sendo, praticamente recomecei o projeto, mas segui por um pensamento ligeiramente diferente ao que eu havia iniciado anteriormente. Aí está o código completo e funcional.

Código:

program Forca;

uses
   crt;

var
   bancoStrings: array [1..10] of String;
   palavraCerta, palavraParcial:String;
   tentativa :Char;
   qtdTentativas, X, opc :Integer;
   acertouPalavra: Boolean;
//------------------------------------------------------------------------------
begin
   bancoStrings[1] := 'macaco';
   bancoStrings[2] := 'caminhao';
   bancoStrings[3] := 'informatica';
   bancoStrings[4] := 'banco';
   bancoStrings[5] := 'onibus';
   bancoStrings[6] := 'mico-leao';
   bancoStrings[7] := 'computador';
   bancoStrings[8] := 'criptografia';
   bancoStrings[9] := 'psicologia';
   bancoStrings[10] := 'juiz de fora';

   qtdTentativas := 8;

   repeat
      writeln;
      writeln ('   Jogo da Forca');
      writeln;
      write (' Digite de 1 a 10 para escolher uma palavra: ');
      readln (opc);
   until (opc >= 1) and (opc <= 10);

   palavraCerta := bancoStrings[opc];

   for X := 0 to Length(palavraCerta) do
   begin
      if (palavraCerta[X] = ' ') then
         palavraParcial[X] := ' '
      else if (palavraCerta[X] = '-') then
         palavraParcial[X] := '-'
      else
         palavraParcial[X] := '@';
   end;

   repeat
      ClrScr;

      writeln;
      writeln (' ',palavraParcial);
      writeln;

      acertouPalavra := true; //inicio dizendo que a pessoa acertou a palavra

      for X := 1 to Length (palavraCerta) do
         if palavraParcial[X] = '@' then
            acertouPalavra := false;

      if acertouPalavra = true then
      begin
         writeln (' Parabens, voce acertou a palavra.');
         readln;
         break;
      end
      else if qtdTentativas > 0 then
      begin
         writeln (' Voce tem ', qtdTentativas, ' tentativas restantes.');

         write (' Digite uma letra (letra minuscula): ');
         tentativa := readkey;
         if Pos(tentativa, palavraParcial) = 0 then
            for X := 1 to Length(palavraCerta) do
            begin
               if (palavraCerta[X] = tentativa) then
               begin
                  palavraParcial[X] := tentativa;
               end
               else if Pos(tentativa, palavraCerta) = 0 then
               begin
                  qtdTentativas := qtdTentativas - 1;
                  break;
               end;
            end
         else
            qtdTentativas := qtdTentativas - 1;
      end
      else
      begin
         writeln (' Voce perdeu, tente novamente.');
         readln;
         break;
      end;
      until tentativa = Chr(27);
end.

Falow...

Hellsing

25-02-2006, 18:12	#4 (permalink)
Hellsing Novo Membro Registrado em: Sep 2004 Localização: Juiz de Fora - MG Mensagens: 145 Reputação: 16	Uhn... não sabia dessa não. Vou ter que analisar novamente o código. E valew colinzeal, mas infelizmente o erro persiste !! SE eu conseguir encontrar o erro, posto aqui. É interessante... Valew amigos !!! Falow... Hellsing __________________ "Conhecimento e força dão poder, mas só o caráter granjeia respeito" Bruce Lee

25-02-2006, 20:15	#5 (permalink)
jackinabox Veterano Registrado em: Nov 2004 Mensagens: 1.055 Reputação: 16	Isso aqui, por exemplo, não é a causa do problema, mas está errado: Código: until (opc >= 1) or (opc <= 10); Esse or deveria ser um and. __________________ Jeferson Charles Mayer "Como é que eu vou enxergar a tal floresta, com todas essas árvores atrapalhando a visão?"

27-02-2006, 14:21	#7 (permalink)
jqueiroz Highlander Registrado em: May 2002 Localização: Tijuca/RJ Idade: 9 Mensagens: 87.724 Reputação: 778	sugestão: use o tipo primitivo do Pascal 'set'. Um set é um conjunto não ordenado de elementos de um tipo escalar. Ex.: Código: var tentativas : set of char; As operações que te interessam em um 'set' são 'pertinência' (elemento pertence ao set???) e 'inclusão' (set <- elemento). Assim vc pode fazer Código: tentativas := tentativas + letra e também Código: if letra in tentativas then begin println('Você já tentou essa letra!!!'); (...) __________________ Visite Quepolis (link de indicação) \| "chmod 777 nunca ajudou ninguém" (c) 2002-2010 JQueiroz/FGdH CCNP: √ ² CCSI: □ \| Conheça o Novo Bebuns

		FórumGdH > Profissional > Programação, scripts, web e banco de dados
Jogo da forca em Pascal - duvida na logica

1. jogo da forca em pascal,quase pronto.help-me
Mais resultados? Use nossa pesquisa.

25-02-2006, 14:29	#3 (permalink)
DCNunes Veterano Registrado em: Jan 2003 Localização: Juiz de Fora-MG Mensagens: 1.341 Reputação: 81	Vou só dar uma dica: em Pascal, o primeiro elemento de uma variável do tipo "string" é usado para armazenar a quantidade de caracteres que a variável possui no momento (não confundir com a quantidade de memória ocupada pela variável). Sendo "s" uma variável do tipo string, s[0] contém a quantidade de caracteres dessa string. Atribuindo: Código: s := 'abc'; , s[1] contém 'a', s[2] contém 'b', s[3] contém 'c' e s[0] contém #3. Para comprovar, testa esse código: Código: program tam_str; var s : string; t : byte absolute s; begin repeat write('digite uma string: '); readln(s); writeln('Numero de caracteres: ',t); writeln; until t = 0; end. Eu declarei uma varável t no mesmo endereço de s[0]. Imprimindo s[0], se imprime um caracter. Imprimindo t, se imprime um inteiro.

Opções do Tópico
Exibir Versão para Impressão Envie essa página por e-mail