05)Comandos de Entrada e Saída de Dados

6.1 Comandos básicos de Saída

Comandos de saída são aqueles que permitem ao programador enviar dados para dispositivos periféricos de saída de dados (o monitor e a impressora, por exemplo) ou de armazenamento (tais como disquetes e discos rígidos).

6.1.1 Comando Write

O Comando Write permite ao programador escrever alguma coisa na tela (ou outro dispositivo qualquer de saída).

Sintaxe:

Write(<string> | <variável> [, <string> | <variável>]*);

Onde:

<string>     é uma seqüência de caracteres quaisquer, entre apóstrofes.
<variável> é uma variável qualquer
(neste caso, será impresso o conteúdo da variável)..

* os itens entre colchetes podem ser repetidos indefinidas vezes, mas devem estar separados por vírgula.

Exemplos:

Program Exemplo_Saida_Dados;

Var a, b: Integer;
    c, d: Real;

Begin

   write('Olá, como vai?');

   a := 10; b:= 20;

   c := 20.567; d := 23;

   write(a);

   write('A variável b vale: ', b);

   write('c: ', c, ' d: ', d);

   write('c + d = ', c + d);

End.

Note que você pode especificar o tamanho mínimo do que está sendo impresso colocando o sinal : após o que você quer imprimir. Isto é extremamente útil em variáveis do tipo Real, cujo padrão de impressão é o formato científico. Para mudá-lo, especifique o tamanho máximo em dígitos do número desejado e após o tamanho da mantissa:

Var d: Real;

d := 10.5;

{ Mostra o conteúdo da variável d com 5 dígitos, 
sendo dois deles após a vírgula: }

write(d:5:2);  { mostrará: 10.50 }

6.1.2 Comando Writeln

Similar ao anterior, porém, muda de linha após imprimir.

6.2 Comandos e funções básicos de Entrada

Comandos de entrada  são aqueles que permitem ao programador coletar dados a  partir de dispositivos periféricos (geralmente o teclado) ou de armazenamento (tais como disquetes e discos rígidos).

6.2.1 Comando Readln

O Comando Read permite ao programador solicitar que o usuário informe algum dado para ser colocado em uma variável. Após ler o dado, o cursor passa para o início da próxima linha.

Sintaxe:

Read(<variável>);

Onde:

<variável> é uma variável qualquer onde os dados lidos serão colocados.

Exemplos:

Program Exemplo_Entrada_Dados;

Var a: Integer;
    b: Real;

Begin

   write('Digite um número inteiro: ');

   readln(a);

   write('Digite um número real: ');

   readln(b);

   write('a / b = ', (a / b):5:2);

End.

6.1.2 Comando Read

Similar ao anterior, porém, não muda de linha após ler.

6.2.3 Função ReadKey

ReadKey (do Inglês “ler tecla”) é uma função que espera o usuário digitar uma única tecla (qualquer) e devolve-a para o programador. Este, geralmente coloca-a em uma variável do tipo Char.

OBS: Necessita da biblioteca CRT.

Exemplo:

Var tecla: Char;

Begin

write(‘pressione qualquer tecla!’);

tecla := readkey;

write(‘A tecla digitada foi: ‘, tecla, ‘ seu código ASCII é: ‘, ord(tecla));

End.

6.2.4 Função KeyPressed

KeyPressed (do Inglês “tecla pressionada”) é uma função que devolve true (verdadeiro) se o usuário pressionou uma tecla e false (falso) se ele não pressionou.

Esta função não espera o usuário digitar uma tecla. Ela somente informa se o usuário pressionou uma no momento em que foi chamada.

OBS: Necessita da biblioteca CRT.

Exemplo:

Var tecla: Char;

Begin

repeat

writeln(‘Pressione uma tecla!’);

until keypressed;

{ repete até que seja pressionada uma tecla! }

End.