Fórum Funcao para limpar a tela (Aplicacao Console) #344077

Acho que e +- isso

Uses CRT;
Var op:byte;

Procedure Menu;
begin
ClrScr;
WriteLN(´Digite sua Opção:´);
WriteLN;
WriteLN(´1- Mostrar Registros´);
WriteLN(´2- Fechar e Sair´);
OP:=readkey;
End;

BEGIN
Clrscr;
Write(´Aguarde carregando o programa...´);
menu; {Aqui a procedure é chamada}
Case Op of
1:
2:
END.

FUNCTION

A FUNCTION é uma rotina que nos retorna um determinado valor. Da mesma
forma que uma procedure, uma FUNCTION deve ser declarada antes de ser
utilizada.

Ex.:
PROGRAM Ex_Function;
USES CRT;
VAR X:INTEGER;

FUNCTION RESULTADO (Y:INTEGER): INTEGER;
BEGIN
Y:=Y*Y;
RESULTADO:=Y;
END;

BEGIN
CLRSCR;
WRITE (´DIGITE UM VALOR: ´);
READLN(X);
X:=RESULTADO(X);
WRITELN (´O RESULTADO É : ´,X);
DELAY (10000);
END.






baixei isto da net não sei se funciona
http://www.dcc.ufla.br/~olinda/Pascal¬20Tutor¬20-¬20por¬20Fabio¬20Bocassanta.htm

Inclua a unit Console que você pode baixar :arrow: [url=http://rvelthuis.de/programs/console.html]desta página[/url] no seu DPR.

Muitissimo obrigado, nobre Massuda. Sempre nos proporcionando bons codigos.

Grato,

Alcantarus.