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  
flavio martins

o mitico jogo 'quem quer ser milionário'

Recommended Posts

conhecem o jogo???

um tenho de fazer um em turbo pascal 7.0 para apresentar ao meu professor e estou com um pouco de dificuldades...!!!!

Compartilhar este post


Link para o post
Compartilhar em outros sites

o jogo é simples é um jogo de perguntas em que cada pergunta tem quatro hipoteses mas so uma é que esta certa.o objectivo é que o programa escolha uma pergunta aleatoriamente e dê as quatro hipotese onde uma delas é a certa, espera que o utilizador responde, se estiver certo ele passa para a pergunta seguinte senao diz qual era a resposta certa e volta ao menu principal.

eu ainda so tenho feito o menu principal e nao sei como fazer para a parte das perguntas e das respostas...poderão me ajudar????

o que tenho é isto...

Program Milionarios;

uses crt;

type ST=string[30];

cliente=record

nome:st;

idade:integer;

salario:real;

pont:^cliente;

end;

var

vezes,i:integer;

pra mim,pg:^cliente;

questoes:array

procedure desenhar(x,y,c,v:integer);

var

vezes:integer;

begin

gotoxy(x,y);

for vezes:=1 to v do

write(chr©);

end;

Begin

clrscr;

textcolor(lightred);

desenhar(34,2,219,14);

desenhar(30,3,219,4);

desenhar(48,3,219,4);

desenhar(27,4,219,3);

desenhar(52,4,219,3);

desenhar(26,5,219,1);

desenhar(55,5,219,1);

desenhar(24,6,219,2);

desenhar(56,6,219,2);

desenhar(23,7,219,1);

desenhar(58,7,219,1);

desenhar(22,8,219,1);

desenhar(59,8,219,1);

for vezes:=9 to 10 do

begin

desenhar(21,vezes,219,1);

desenhar(21,vezes+6,219,1);

desenhar(60,vezes,219,1);

desenhar(60,vezes+6,219,1);

end;

for vezes:=11 to 14 do

begin

desenhar(20,vezes,219,1);

desenhar(61,vezes,219,1);

end;

desenhar(34,23,219,14);

desenhar(30,22,219,4);

desenhar(48,22,219,4);

desenhar(27,21,219,3);

desenhar(52,21,219,3);

desenhar(26,20,219,1);

desenhar(55,20,219,1);

desenhar(24,19,219,2);

desenhar(56,19,219,2);

desenhar(23,18,219,1);

desenhar(58,18,219,1);

desenhar(22,17,219,1);

desenhar(59,17,219,1);

textcolor(yellow);

gotoxy(23,10);

write('Quem quer ser');

for vezes:=11 to 14 do

begin

desenhar(23,vezes,219,1);

desenhar(27,vezes,219,1);

desenhar(29,vezes,219,1);

desenhar(35,vezes,219,1);

desenhar(41,vezes,219,1);

desenhar(44,vezes,219,1);

desenhar(50,vezes,219,1);

desenhar(54,vezes,219,1);

if vezes<>14 then desenhar(31,vezes,219,1);

if vezes<>11 then

begin

desenhar(46,vezes,219,1);

desenhar(48,vezes,219,1);

end;

if (vezes<>11) and (vezes<>14) then

begin

desenhar(37,vezes,219,1);

desenhar(39,vezes,219,1);

desenhar(56,vezes,219,1);

desenhar(58,vezes,219,1);

end;

desenhar(24,12,219,1);

desenhar(25,13,219,1);

desenhar(26,12,219,1);

desenhar(32,14,219,2);

desenhar(38,11,219,1);

desenhar(38,14,219,1);

desenhar(42,12,219,1);

desenhar(43,13,219,1);

desenhar(47,11,219,1);

desenhar(47,13,219,1);

desenhar(48,10,219,1);

desenhar(51,11,219,1);

desenhar(51,13,219,1);

desenhar(52,12,219,1);

desenhar(52,14,219,1);

desenhar(57,11,219,1);

desenhar(57,14,219,1);

end;

textcolor(lightgray);

for vezes:=13 to 14 do

begin

desenhar(61,vezes+2,176,1);

desenhar(62,vezes,176,1);

end;

for vezes:=17 to 19 do

desenhar(77-vezes,vezes,176,1);

desenhar(56,20,176,2);

desenhar(55,21,176,1);

desenhar(52,22,176,3);

desenhar(48,23,176,4);

desenhar(39,24,176,9);

gotoxy(80,25);

readkey;

clrscr;

End.

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

×