Ir ao conteúdo
  • Cadastre-se
Entre para seguir isso  
flavio martins

o mitico jogo 'quem quer ser milionário'

Recommended Posts

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

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora
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

×