Text only | Text with Images

Fórum WebTuga

Tecnologia => Programação => Topic started by: Teotónio Ricardo on January 13, 2006, 12:54:08 PM

Title: [PASCAL] Jogo do numero!
Post by: Teotónio Ricardo on January 13, 2006, 12:54:08 PM
[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
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!
Title: [PASCAL] Jogo do numero!
Post by: tico on January 13, 2006, 01:59:25 PM
lol...
pois e!
Title: [PASCAL] Jogo do numero!
Post by: KTachyon on January 23, 2006, 02:01:43 PM
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.
Title: [PASCAL] Jogo do numero!
Post by: DvD on January 23, 2006, 02:03:40 PM
entao basta diminuir o numero para 100 ou como keiras!!!
Title: [PASCAL] Jogo do numero!
Post by: KTachyon on January 23, 2006, 02:16:23 PM
Se diminuires para 100 só precisas de 7 tentativas para acretar...
Title: [PASCAL] Jogo do numero!
Post by: BigPower on March 28, 2006, 12:22:11 AM
Muito fixe! : bom trabalho :
Text only | Text with Images