Jogo da força pascalzim

[Izacael.Silva]

Boa tarde a todos pessoal sou novo aqui no canal e queria pedir uma ajuda estou fazendo esse trabalho importante, porém não estou conseguindo colocar uma estrutura para evitar que a mesma palavra seja escolhida por outros jogadores nesse pequeno jogo e mostre em tela. por favor ajudem !!!!

 

Program AV2; // Nome do programa.

  var  //Declaração de variáveis.

p,h:string; //Variável que armazena palavras.

le,r:char; //Variável que representa caracteres.

enc,fim:boolean; //Variável que verifica condição.

ac,er,tl:integer; //Variável que armazena números inteiros.

 

//Desenha da tela

procedure menu; //Criação de um procedimento (menu).

begin //Começo do procedimento (menu).

clrscr; //Comando para limpar a tela.

textcolor(white); //Cor do texto: Branca.

textbackground(red); //Cor de fundo: Vermelho.

gotoxy(15,10);write('==========================================='); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,11);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,12);write('|   Digite a palavra:[                  ] |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,13);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,14);write('|   Advertência [                   ]     |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,15);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,16);write('|   Historico [                     ]     |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,17);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,18);write('|   Palavra:                              |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,19);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,20);write('|   Digite a letra: [   ]                 |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,21);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,22);write('|   Acertos:                              |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,23);write('|   Erros:                                |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

  gotoxy(15,24);write('|                                         |'); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

gotoxy(15,25);write('==========================================='); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada)|Write(Comando que mostra os dados na tela).

end; //Fim do procedimento

 

  //Substitui a letra por asterisco e apresenta o total de letras da palavra. 

procedure asterisco; //Criação do procedimento (asterísco).

begin //Começo do procedimento (asterísco).

fim:=false; //Variável começa como falsa. 

menu; //Chamar o procedimento (menu).

gotoxy(38,12); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

while fim=false do //Enquanto fim for igual a falso, faça:.

begin //Começo do bloco do procedimento.

le:=readkey; //Esperar o usuário digitar a palavra.      

    if le<>#13 then //Se o número de letras for diferente de 13, então.

begin //Começo de um bloco.

write('*'); //Substituir a palavra por asteríscos.

p:=p+le; //Atribuição de valores para a variável.

end //Final de uma condição.

else //Início de outra condição (se não).

fim:=true; //Variável termina como verdadeira.

end; //Fim do bloco do procedimento.

tl:=length(p); //Atribuição de valor a variável.

ac:=0; //Dizer que a variável começa com zero.

er:=0; //Dizer que a variável começa com zero.

h:=''; //Dizer que a variável não tem informações.

gotoxy(28,22);write(ac); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

gotoxy(26,23);write(er); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

end; //Fim do procedimento (asterísco).

 

//Coloca os traços da palavra

procedure tracejar(p:string); //Criação do procedimento (tracejar).

var //Declaração de variáveis.

y:integer; //Variável que armazena números inteiros.

begin //Começo do procedimento (tracejar).

gotoxy(27,18); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

for y:=1 to length(p) do //Contagem da quantidade de letras.

     write (' _'); //Escrever os traços.     

end; //Fim do procedimento (tracejar).

 

//Verifica se a letra consta no histórico

function consultarhistorico(h:string;le:char):boolean; //Criação de uma função.

var //Declaração de variáveis

x:integer; //Variável que armazena números inteiros.

enc:boolean; //Variável que verifica condição.

begin //Começo da função.

enc:=false; //Variável começa como falsa.

for x:=1 to length(h) do //Executar até o x ter o valor da variável h.

if upcase(h[x])=upcase(le) then //Se h for igual a le, então... 

begin //Criação de um bloco na função.

enc:=true; //Variável terminando verdadeira.

h:=h+upcase(le); //Transformar todas as letras minúsculas em maiúsculas.

end; //Fim do bloco na função.

consultarhistorico:=enc; //Atribuição de valor a função.

end; //Fim da função.

 

//Adiciona acertos, erros e histórico

procedure verificar(pa:string;le:char); //Criação de um procedimento.

var //Declaração de variáveis.

p,x:integer; //Variável que armazena números inteiros.

enc:boolean; //Variável que verifica condição.

begin //Começo do procedimento.

enc:=false; //Variável começando falsa.

for x:=1 to length(pa) do //Executar até o x ter o valor da variável pa.

if upcase(pa[x])=upcase(le) then //Se pa[x] for igual a le, então...

begin //Criação de um bloco no procedimento.

inc(ac); //iniciar contagem da variável.

enc:=true; //Variável terminando verdadeira.

p:=x*2; //Atribuição de valor a variável p (x multiplicado por 2).

gotoxy(26+p,18); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write(upcase(le)); //Escrever a palava com letras maiúsculas.

gotoxy(33,14); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write('Você acertou'); //Write(Comando que mostra os dados na tela).

end; //Fim de um bloco no procedimento.

h:=h+upcase(le); //Atribuição de valor para a variável h.

if enc=false then //Se enc for falso, então...

begin //Começo de um bloco.

gotoxy(33,14); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write('Você errou   '); //Write(Comando que mostra os dados na tela).

inc(er); //iniciar contagem da variável.

end; //Fim de um bloco.

gotoxy(28,22);write(ac); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

gotoxy(26,23);write(er); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

gotoxy(31,16);write(h);  //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

 

if ac=tl then //Se ac=tl então...

  begin //Criação de um bloco no procedimento.

     gotoxy(32,24); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write('Jogar novamente S/N [   ]'); //Write(Comando que mostra os dados na tela).

gotoxy(54,24); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

r:=readkey; //Esperar o usuário digitar uma tecla.

  end; //Fim do bloco no procedimento.

end; //Fim do procemento.

 

//Repetir o jogo.

procedure iniciar;//Criação do procedimento (iniciar).

begin //começo do procedimento (iniciar).

  p:=''; //Dizer que a variável não tem informações.

menu; //Chamar o procedimento (menu).

   gotoxy(38,12); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

   asterisco; //Chamar o procedimento (asterico).

   tracejar(p); //Chamar o procedimento (tracejar).

end; //Fim do procedimento (iniciar).

 

Begin //Começo.

  r:='S'; //Atribuição de valor para a variável r.

iniciar; //Chamar o procedimento iniciar.

repeat //Repetir

if (ac=tl)and(upcase®='S')then iniciar; //Se ac=tc e r=s repetir o procedimento iniciar.

gotoxy(37,20); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

le:=readkey; //Esperar o usuário apertar uma tecla para atribuir a variável.

if consultarhistorico(h,le)=true then //Se a função for verdadeira faça...

begin //Criação de um bloco.

gotoxy(31,16); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write(h); //Write(Comando que mostra os dados na tela).

end //Fim de um bloco.

else //Senão (começo de outra condição).

verificar(p,le); //Chamar o procedimento (verificar). 

until (ac=tl)and(upcase®='N'); //Repetir até ac=tl e r=N. 

clrscr; //Comando para limpar a tela.

gotoxy(15,18); //Gotoxy(Comando que indica o local onde os dados deve ser mostrada).

write('Game Over'); //Write(Comando que mostra os dados na tela).

readkey; //Esperar o usuário apertar uma tecla.

End. //Fim do algorítmo.