Logo Hardware.com.br
biriba_di
biriba_di Novo Membro Registrado
4 Mensagens 0 Curtidas

Problemas em Pascal

#1 Por biriba_di 16/05/2007 - 20:59
Iae galera bleza!!..
intao..eu to terminando o primeiro modulo de pascal...
ai a professora passou um projeto pra conclusao neh..
nos precisamos fazer um "SHOW DO MILHaO"...
Eu jah fiz tdu bunitinho tals...
Mais ela qué, que as perguntas sejam aleatorias...nao sempre as mesmas na mesma sequencia...!
Ai eu queria saber c alguem poderia me ajudar a colocar as perguntas aleatorias..!

VLWW GALERAA!
ABRAÇOS!
problemas modulo terminando passou iae intao pascal bleza professora
philix
philix Super Participante Registrado
946 Mensagens 14 Curtidas
#3 Por philix
17/05/2007 - 19:14
Na verdade o computador gera números pseudo_randômicos.

É um Random falso. Esse random é só um a"lgoritmo meio embaralhado".

Por ele ser apenas um algoritmo embaralhado, toda vez que a pessoa for jogar as perguntas aparecerão na mesma ordem.

O que eu recomendo é que vc faça um "algoritmo embaralhado" baseado no horário em segundos que passaram desde algum horário que vc pode definir ramdomicamente tb.

A solução profissional para gerar um número Ramdom em PCs é um aparelho que trabalha com um metal radioativo e num sei o que mais...big_green.png
"A Matemática é a ginástica mental necessária na tentativa da compreenssão do universo" Linus Torvalds
Guitarrista Kurumin
Guitarrista... Super Participante Registrado
837 Mensagens 14 Curtidas
#4 Por Guitarrista...
18/05/2007 - 10:05
Philix acho que não precisa, basta usar a função ramdomize(ou seria randonize?) antes de usar o ramdom, basta usar apenas uma vez no programa, isso irá gerar uma nova "semente aleatória" para o ramdom.

Biriba, da uma pesquisada sobre essa função ramdom que foi falada aí em cima que vc faz isso fácil fácil... No manual do compilador deve ter tudo sobre ela.
Conhecimento é saber que tomate é fruta. Sabedoria é saber que não se coloca tomates em uma salada de frutas.
biriba_di
biriba_di Novo Membro Registrado
4 Mensagens 0 Curtidas
#6 Por biriba_di
18/05/2007 - 17:02
O cara num entendi direito essa funçao random...!
Me da um exemplo ai plx!!!
Vlws

Olha se ajudar...
A arquitetura do meu trabalho tah ae como tah ficano:

program show_do_milhao;
uses crt;
var
n:string;
op: char;
p1,p2,p3,p4,p5,a:char;
begin
clrscr;

writeln(' ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ Û ÛÛ ');
writeln(' ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛ ÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛ ÛÛÛÛ ');
writeln;
writeln(' ÛÛÛÛÛÛÛ ÛÛÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛÛÛÛÛÛ ÛÛÛÛ');
writeln;
writeln(' ÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ Û ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ');
writeln;
writeln(' Por: Diego e Diogo');


write('Digite seu nome: ');
readln(n);
clrscr;
writeln('Valendo R$ 100.000,00');
writeln('Quem descobriu o Brasil?');
writeln('a)CristovÆo Colombo');
writeln('b)Dom Pedro I');
writeln('c)Pedro µlvares Cabral');
writeln('d)Vasco da Gama');
readln(p1);
writeln('Voce esta certo disso? (s ou n)');
readln(op);
if(op='s') then
p1:=p1

else
Begin
writeln('Digite a alternativa correta: ');
readln(p1);
end;
clrscr;
case(p1) of
'c':
begin
writeln('Certa resposta');
writeln('Valendo R$ 200.000,00');
writeln('Quantos 9(nove) tem de 1 a 100?');
writeln('a)10');
writeln('b)20');
writeln('c)17');
writeln('d)15');
readln(p2);
writeln('Voce esta certo disso? (s ou n)');
readln(op);
if(op='s') then
p2:=p2
else
Begin
writeln('Digite a alternativa correta: ');
readln(p2);
end;
clrscr;
case(p2) of
'b':
Begin
writeln('Certa resposta');
writeln('Valendo R$ 300.000,00');
writeln('Como se escreve 472 em algarismos romanos?');
writeln('a)DLXXII');
writeln('b)DCCXXII');
writeln('c)CDLXVII');
writeln('d)CDLXXII');
readln(p3);
writeln('Voce esta certo disso? (s ou n)');
readln(op);
if(op='s') then
p3:=p3
else
begin
writeln('Digite a alternativa correta: ');
readln(p3);
end;
clrscr;
case(p3) of
'd':
begin
writeln('Certa resposta');
writeln('Valendo R$ 500.000,00');
writeln('Qual ‚ a metade de dois mais dois?');
writeln('a)3');
writeln('b)1');
writeln('c)4');
writeln('d)2');
readln(p4);
writeln('Voce esta certo disso? (s ou n)');
readln(op);
if(op='s') then
p4:=p4
else
Begin
writeln('Digite a alternativa correta: ');
readln(p4);
end;
clrscr;
case(p4) of
'a':
Begin
writeln('Certa resposta');
writeln('Valendo R$ 1.000.000,00');
writeln('Haviam trˆs palmeiras, cada uma com sete cocos. Quantos cocos tem ao todo?');
writeln('a)21');
writeln('b)14');
writeln('c)29');
writeln('d)Nenhum');
readln(p5);
writeln('Voce esta certo disso? (s ou n)');
readln(op);
if(op='s') then
p5:=p5
else
Begin
writeln('Digite a alternativa correta: ');
readln(p5);
end;
clrscr;
case(p5) of
'd':
Begin
writeln('Certa resposta');
writeln('Parabens ! ',n);
writeln('Vocˆ acertou as 5 perguntas');
writeln(' ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛ ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ');
writeln;
writeln(' ÛÛ ÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ');
writeln(' ÛÛÛ ÛÛ ÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ');
writeln(' ÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛÛÛÛÛ');
writeln;
writeln(' ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ÛÛ ÛÛÛÛÛÛ ');
writeln(' ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ÛÛ ');
writeln(' ÛÛÛÛÛ ÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛÛ ÛÛ ÛÛ ÛÛÛÛ ÛÛÛÛÛÛ ');
end;
else
begin
writeln('Que pena! Vocˆ errou');
writeln('Voce acertou 4 perguntas e ganhou R$ 500.00,00');
end;
end;
end;
else
begin
writeln('Que pena! Vocˆ errou');
writeln('\nVoce acertou 3 perguntas e ganhou R$ 300.00,00');
end;
end;
end;
else
begin
writeln('Que pena! Vocˆ errou');
writeln('Voce acertou 2 perguntas e ganhou R$ 200.00,00');
end;
end;
end;
else
begin
writeln('Que pena! Vocˆ errou');
writeln('Voce acertou 1 pergunta e ganhou R$ 100.00,00');
end;
end;
end;
else
begin
writeln('Que pena! Vocˆ errou');
writeln('Voce nao acertou nenhuma pergunta e nao ganhou nada');
end;
end;
readkey;
end.

Vlwss!
philix
philix Super Participante Registrado
946 Mensagens 14 Curtidas
#8 Por philix
19/05/2007 - 23:19
Já tá meio tarde para pensar em Pascal e lógica agora. Amanhã eu mostro aqui o que vc terá que fazer no seu algoritmo.

*Use as tags [ code ] e [ /code ] sem os espaços.

Assim



Program x;

var ccc

begin

       comando

if 

          else


Assim vc conserva a identação do seu código;
"A Matemática é a ginástica mental necessária na tentativa da compreenssão do universo" Linus Torvalds
© 1999-2024 Hardware.com.br. Todos os direitos reservados.
Imagem do Modal