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

BurnInEvil

Usar Clear Screen no Free Pascal

Recommended Posts

BurnInEvil

[move]Boa tarde pessoal. :P [/move]

não sei bem onde postar. Mas vai ser mesmo aqui... :thumbsup:

Eu estou a fazer um projecto em pascal para o modulo da disciplina de Linguagens de Programação.

O compilador que estou a utilizar é o Free Pascal.

So tem um mal, muitas das tags ele não reconhece. como por exemplo a tag do Clear Screen. Dá um erro a dizer que não reconhecia o comando ClrScr e não funciona.  :nono:

Tentei utilizar o Pascal Zim mas este não reconhece a extensão quando utilizamos o genero de "variavel:file of recorde".

Já não sei mais qual compilador utilizar  :wallbash:

Gostava de ajuda.

Se alguém souber de algum compilador que reconheça estas duas formas de programar agradecia que me informassem.

Espero uma resposta rápida pois tenho de entregar o projecto até Sexta-Feira (12-03-2010).

Desde já obrigado

Melhores cumprimentos de

[move]BurnInEvil[/move]

Share this post


Link to post
Share on other sites
renafi

Acabei de fazer download do FreePascal, e comigo deu...  😲

Qual é o código que tens?

Eu fiz este exemplo:

Program Example8;
uses Crt;

{ Program to demonstrate the ClrScr function. }

begin
  Writeln('Press any key to clear the screen');
  ReadKey;
  ClrScr;
  Writeln('Have fun with the cleared screen');
end.


Oracle Certified Professional - AdministraçãoOracle Certified Professional - Pl/sqlMCPD - Microsoft Certified Professional DeveloperMCTS - Microsoft Certified Technology Specialist

Share this post


Link to post
Share on other sites
BurnInEvil

estranho  ;)

tipo eu estava a utilizar apenas o Clrscr.

estava a fazer um programa com vários menus, e ao carregar para mudar de menu escrevia no codigo clrscr para apagar o ecra e aparecer o novo menu ou sub-menu.

estava a fazer uma coisa do genero.

program exemplo;
var opcao:integer;
begin
writeln('1--motas');
writeln('2--carros');
writeln('3--bicicletas');
readln(opcao);
case opcao of
1:begin
           clrscr;
           writeln('1--marcas');
           writeln('2-celindrada');
    end;
2:begin
           clrscr;
           writeln('1--marcas');
           writeln('2--celindrada');
   end;
3:begin
           clrscr;
           writeln('1--tipo');
           writeln('2--cor');
   end;
end.

estava a tentar fazer uma coisa do genero (não sei se este exemplo funciona não experimentei! :nono:) mas e essa a ideia apagar o ecra sem qualquer pergunta ao utilizador se este quer apagar o ecra ou não.

Share this post


Link to post
Share on other sites
perez

estranho  ;)

tipo eu estava a utilizar apenas o Clrscr.

estava a fazer um programa com vários menus, e ao carregar para mudar de menu escrevia no codigo clrscr para apagar o ecra e aparecer o novo menu ou sub-menu.

estava a fazer uma coisa do genero.

program exemplo;
var opcao:integer;
begin
writeln('1--motas');
writeln('2--carros');
writeln('3--bicicletas');
readln(opcao);
case opcao of
1:begin
           clrscr;
           writeln('1--marcas');
           writeln('2-celindrada');
    end;
2:begin
           clrscr;
           writeln('1--marcas');
           writeln('2--celindrada');
   end;
3:begin
           clrscr;
           writeln('1--tipo');
           writeln('2--cor');
   end;
end.

estava a tentar fazer uma coisa do genero (não sei se este exemplo funciona não experimentei! :nono:) mas e essa a ideia apagar o ecra sem qualquer pergunta ao utilizador se este quer apagar o ecra ou não.

falta-te definir as uses

logo por baixo de program poes:

uses crt;

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

×

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.