Ir para o conteúdo
  • Revista PROGRAMAR: Já está disponível a edição #60 da revista programar. Faz já o download aqui!

x1co

Files

Mensagens Recomendadas

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

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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."

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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.

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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."

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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."

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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."

 

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros 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..

Partilhar esta mensagem


Ligação para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora

×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade. Este site usa cookies para disponibilizar funcionalidades personalizadas. Para mais informações visite esta página.