o mitico jogo 'quem quer ser milionário'

[flavio martins]

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...!!!!

[Urameshii]

como e esse jogo? nunca ouvi falar...

[Mog.Lucas]

nunca ouvi falar também.. dê-nos mais informações

[flavio martins]

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.