[PASCAL] Jogo do numero!

[Teotónio Ricardo]

[PASCAL] Jogo do numero!


Jogo espetacular feito por mim na aula de BP, este jogo gera um numero de 0 a mil e tu tens de adivinhar o numero que o computador gera!

Code Select Expand

program numero;

uses crt;



var mero,adivi: integer;



begin

clrscr;

randomize;

mero:=random(1000);

   repeat

write(\\'Introduza um numero para adivinhar?:\\');

readln(adivi);

if mero > adivi then  writeln(\\'Muito baixo\\');

if mero < adivi then  writeln(\\'Muito Alto\\');

readkey;

clrscr;

   until mero = adivi;

writeln(\\'Acertas-te\\');

readkey;

end.

Já temos com que nos entreter nas aulas de informatica!

[tico]

lol...
pois e!

[KTachyon]

E és capaz de fazer o algoritmo mais rápido para axar esse número?

No máximo precisas de 10 tentativas para axar o número k o computador gerou.

[DvD]

entao basta diminuir o numero para 100 ou como keiras!!!

[KTachyon]

Se diminuires para 100 só precisas de 7 tentativas para acretar...

[BigPower]

Muito fixe! : bom trabalho :