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

Angel

pascal

9 mensagens neste tópico

Bom dia! Gostava de saber o que se passa quando faço o run do programa em Pascal e ele trabalha, insiro os valores e quando dou enter para ele dar o resultado, ele sai e vai novemente para a linha de comando, vai para o caódigo em pascal, para depois ver o resultado tenho de carregar novemante em run, aparece o resultado, mas se for correr outro programa a seguir, ele não me limpou o resultado anterior, já tentei usar o ctrlscr, mas o Pascal não aceita. Podem me dizer o que fazer???

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigado, só consigo com o repeat no fim do programa, mas não em todos, e se correr vários programas de seguida, ou seja agora corro um programa e dá-me valores, depois corro outro programa e os valres do anterior estão lá, se tento meter o comando clrscr ele não aceita, não reconhece, o que posso fazer????

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

pode nao ter program  ;)

antes do Begin poem

uses crt; ou seja estas a chamar a livraria crt que tem la a funcao clrscr;

eu acho que tenho uma pekena ideia porque so te da com o repeat :(

exprimenta com o readln; mas coloca dois seguidos

readln;

readln;

ou seja num pequeno prog

uses crt;
Begin
  clrscr;
  write('ola mundo xD ');
  readln;
  readln;
End.

ou com o repeat

uses crt;
Begin
  clrscr;
  write('ola mundo xD ');
  repeat until keypressed;
End.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigado pela ajuda, mas continuo sem conseguir limpar os resultados da tela, ou seja continua sempre lá aparecer os resultados anteriores. Quando uso o uses crt antes do begin, para chamar a livraria, e depois coloco o clrscr ele dá erro, não reconhece, já tentei de várias maneiras e não dá, o que posso fazer???? Help :P

O programa é simples vou cola-lo aqui

Program Maior_de_Dois; {Lê dois números e decide qual deles é o maior}

  var X, Y: Integer;

Begin

writeln (´Digite 2 numeros : ‘);

readln (X,Y);

if X>Y

then writeln (‘o maior e: ‘, X)

else writeln (‘o maior e: ‘, Y);

end.

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

já descobri o problema, já esta a funcionar, já limpa, obrigado na mesma pela ajuda

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

obrigado pela ajuda, mas continuo sem conseguir limpar os resultados da tela, ou seja continua sempre lá aparecer os resultados anteriores. Quando uso o uses crt antes do begin, para chamar a livraria, e depois coloco o clrscr ele dá erro, não reconhece, já tentei de várias maneiras e não dá, o que posso fazer???? Help :P

O programa é simples vou cola-lo aqui

Program Maior_de_Dois; {Lê dois números e decide qual deles é o maior}

  var X, Y: Integer;

Begin

writeln (´Digite 2 numeros : ‘);

readln (X,Y);

if X>Y

then writeln (‘o maior e: ‘, X)

else writeln (‘o maior e: ‘, Y);

    --------->>>> clrscr;

end.

0

Partilhar esta mensagem


Link 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