Jump to content
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

Sign in to follow this  
x1co

Files

Recommended Posts

x1co

Olá!

No jogo de pascal (snake) que tou a fazer para a escola, tenho codigo para guardar score e mostrar.

Há alguma maneira de mostrar o score, mas só apenas os 3 melhores?

Mostrar:

 gotoxy(3,posy+16); writeln ('High Score:');
   begin
   assign (f, 'f:\\pascal\asda\scorexd1.txt');
    reset (f);

    i:=1;
	while ((NOT Eof (f))and (i <4)) do
	begin
	readln (f, s);
 gotoxy(3,posy+17+i);
 textcolor(9);
writeln(s);
	 i:=i+1;
 end;
	close(f);
	readln ;
  	end;

Gravar:

   begin
Assign (f, 'scorexd1.txt');
append (f);
writeln (f, nome,':  ', pontos);
close (f);
   end;

Há alguma maneira?

obrigado

EDIT: A mostrar só 3 já está, so falta ordenar

Share this post


Link to post
Share on other sites
M6

Sim.

No mostrar só fazes o writeln(s); quando o i <= 3.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
x1co

Sim.

No mostrar só fazes o writeln(s); quando o i <= 3.

se meto 3, só aparecem 2, não sei porque, meti 4 é ja aparecem 3.

Não estou é a conseguir meter o bubble sort.

Share this post


Link to post
Share on other sites
M6

Para a ordenação podes ver aqui: http://sandbox.mc.edu/~bennet/cs404/doc/sort_pas.html

Tens é de ordenar antes de escrever o ficheiro.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
M6

Deves ordenar antes de mandar guardar, todas as vezes, claro.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
M6

x1co, o código que te mostrei é para te ajudar, não te limites a copiar um pedaço de código, tenta compreendê-lo.

Se isso se está a queixar de algo, procura a razão. Nesse caso creio que é por não estar definido.


10 REM Generation 48K!
20 INPUT "URL:", A$
30 IF A$(1 TO 4) = "HTTP" THEN PRINT "400 Bad Request": GOTO 50
40 PRINT "404 Not Found"
50 PRINT "./M6 @ Portugal a Programar."

 

Share this post


Link to post
Share on other sites
x1co

x1co, o código que te mostrei é para te ajudar, não te limites a copiar um pedaço de código, tenta compreendê-lo.

Se isso se está a queixar de algo, procura a razão. Nesse caso creio que é por não estar definido.

Pois é isso ;)

obrigado pela ajuda..

Nestas férias tenho de trabalhar nisto. Eu ja tinha um feito, perdi-o. Vou ter de fazer outro..

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
Sign in to follow this  

×

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.