Ir ao conteúdo
  • Comunicados

    • Gabriel Torres

      Seja um moderador do Clube do Hardware!   12-02-2016

      Prezados membros do Clube do Hardware, Está aberto o processo de seleção de novos moderadores para diversos setores ou áreas do Clube do Hardware. Os requisitos são:   Pelo menos 500 posts e um ano de cadastro; Boa frequência de participação; Ser respeitoso, cordial e educado com os demais membros; Ter bom nível de português; Ter razoável conhecimento da área em que pretende atuar; Saber trabalhar em equipe (com os moderadores, coordenadores e administradores).   Os interessados deverão enviar uma mensagem privada para o usuário @Equipe Clube do Hardware com o título "Candidato a moderador". A mensagem deverá conter respostas às perguntas abaixo:   Qual o seu nome completo? Qual sua data de nascimento? Qual sua formação/profissão? Já atuou como moderador em algo outro fórum, se sim, qual? De forma sucinta, explique o porquê de querer ser moderador do fórum e conte-nos um pouco sobre você.   OBS: Não se trata de função remunerada. Todos que fazem parte do staff são voluntários.
    • DiF

      Poste seus códigos corretamente!   21-05-2016

      Prezados membros do Fórum do Clube do Hardware, O Fórum oferece um recurso chamado CODE, onde o ícone no painel do editor é  <>     O uso deste recurso é  imprescindível para uma melhor leitura, manter a organização, diferenciar de texto comum e principalmente evitar que os compiladores e IDEs acusem erro ao colar um código copiado daqui. Portanto convido-lhes para ler as instruções de como usar este recurso CODE neste tópico:  
Entre para seguir isso  
Unit-A01

Problemas [Vetor Random]

Recommended Posts

:confused::confused:Olá pessoal, estou fazendo um trabalho para faculdade e estou com a seguinte dificuldade, não consigo fazer um vetor que sorteia uma palavra dentre as quarenta possíveis e informa a qual das quatro classes a palavra pertence, o programa tambem deve sublinhar as letras ('_ _ _ _')

da palavra sorteada, e a cada erro deve apresentar uma parte de um boneco

('O','/!\','/\');

classe '0' país

classe '1' Fruta

classe '2' Flor

classe '3' Animal

Quem puder me dar dicas eu agradeço

:eek::eek::eek::eek:

Bom como niguém me ajudou acabei resolvendo sozinho!!,

não ficou muito bom mais funciona, o unico problema é na sublinhação, no programa ficou assim "________" e o correto seria assim "_ _ _ _" esse problema eu não consegui resolver.

program Forca;

Uses Crt;

const max = 40;

vetor : array[1..max] of string = ('afeganistao','brasil','canada',

'dinamarca','franca','grecia','italia','noruega','suecia','tanzania',

'abacaxi','ameixa','carambola','caju','graviola','jaca','laranja',

'maca','morango','pessego','azaleia','cravo','dalia','espatodea',

'girassol','hibisco','jasmim','lirio','rosa','tulipa','asno','baleia',

'cao','camelo','cavalo','dromedario','elefante','esquilo','gato','rato');

var

palavracerta,parcial : string;

acerto : boolean;

tentativas : char;

qtentativas, x,ind, aux : integer;

procedure Dica;

begin

aux:=(ind-1) div 10;

if aux = 0 then

writeln ('Dica : Pa¡s ') else

if aux = 1 then

writeln ('Dica : Fruta ') else

if aux =2 then

writeln (' Dica : Flor ') else

if aux = 3 then

writeln ('Dica : Animal ');

end;

begin

Qtentativas :=3;

randomize;

gotoxy(31,10);

ind := 1+random(max);

palavracerta := vetor[ind];

for x := 0 to length(palavracerta) do

begin

if (palavracerta[x] = '') then

parcial[x] := ' 'else

if (palavracerta[x] = ' -')then

parcial[x] := '-'else

parcial[x] := '_'

end;

repeat

Clrscr;

gotoxy(26,4);

writeln(' ',parcial);

dica;

writeln;

acerto := true;

for x := 1 to length(palavracerta) do

if parcial[x] = '_' then

acerto := false;

if acerto = true then

begin

Writeln;

Writeln ('Nada mau');

readln;

break;

end

else

gotoxy(10,10); if (qtentativas = 2) then writeln (' O')else

gotoxy(10,10); if (qtentativas = 1) then writeln (' O');

gotoxy(10,11); if (qtentativas =1 ) then writeln('/!\');

if (qtentativas > 0) then

begin

gotoxy(15,15);writeln ('Vocˆ ainda tem ',qtentativas);

writeln;

write('Digite uma letra');

tentativas := readkey;

if pos(tentativas, parcial) = 0 then

for x := 1 to length(palavracerta) do

begin

if (palavracerta[x] = tentativas) then

begin

parcial[x] := tentativas;

end

else

if pos(tentativas,palavracerta) = 0 then

begin

qtentativas := qtentativas - 1;

break;

end;

end

else

qtentativas:= qtentativas - 1;

end

else

begin

gotoxy(15,15);writeln ('Vocˆ ‚ muito ruim');

writeln;

GOTOXY(10,10);writeln (' 0');

GOTOXY (10,11);WRITELN ('/!\');

GOTOXY (10,12);WRITELN ('/ \');

writeln ('A palavra era ', vetor[ind]);

readln;

break;

end;

until tentativas = chr(27);

end.

writeln('tecle <enter>para encerrar');

readln;

end;

end.

att,:wacko::wacko::wacko::wacko:

Editado por Unit-A01

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Entre para seguir isso  





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×