Pascal/Comandos de Entrada e Saída

Entrada de Dados

O comando de entrada é utilizado para receber dados digitados pelo usuário. Os dados recebidos são armazenados em variáveis. Esse comando é representado pela palavra-chave Read ou Readln.

Sintaxe :

  Readln (Nome-da-variavel);
  Readln (Nome-da-variavel1, Nome-da-variavel2);

Exemplo:

  Var X, Y : Integer;
  Begin
    Readln (X);
    Readln (Y);
    {As linhas acima tem a mesma função que as linhas abaixo, com apenas uma diferença que será explicado a seguir}
    Read (X);
    Read (Y);
  End.

Exemplo:

  Var X, Y : Integer;
  Begin
    Readln (X, Y);
    {A linha acima tem a mesma função que a linha abaixo, com apenas uma diferença que será explicado a seguir}
    Read (X, Y);
  End.

Diferença entre Read e Readln

Read e Readln desempenham a mesma função, a unica diferença é que após a entrada de dados com Read o cursor fica na mesma linha, e no caso do Readln o cursor vai para a linha de baixo.

Saída de Dados

O comando de saída de dados é utilizado para mostrar dados na tela. Esse comando é representado pelas palavras Write ou Writeln e os dados podem ser conteúdos de variáveis e/ou mensagens.

Sintaxe:

  Write (Nome-da-Variavel);
  Writeln (Nome-da-Variavel);
  Writeln ('Mensagem');
  Writeln ('Mensagem', Nome-da-variavel);

Exemplo:

  Var X : Integer;
  
  Begin
    X := 12;
    Writeln ('Bem Vindo ao GNOIA');
    Writeln ('O Valor de X é = ', X);
    {Podemos usar o comando Write Também, tem a mesma função do Writeln, com uma diferença que será explicada a seguir}
    Write ('O Valor de X é = ', X);
  End.

Diferença entre Write e Writeln

A diferença entre esses comandos é que o comando Writeln mostra o seu conteúdo e passa o cursor para a linha de baixo, enquanto o comando Write mantém o cursor na mesma linha.

Exercícios

1. Desenvolva um programa em Pascal que escreva pedindo para o usuário digitar um nome, em seguida faça que o programa leia este nome, depois escreva este nome.

Resolução:

Program nome ;
uses crt;
var
  nome:string;
Begin
   clrscr; {limpa a tela}
   write('Digite um nome ');
   read(nome);
   writeln(nome);
   readkey; {espera o usuário digitar alguma tecla}
End.

2. Desenvolva um programa que leia 2 números inteiros, em seguida some esses números e escreva o resultado.

Resolução:

program somaacomb;
uses crt;
var
 a,b,c:integer;
begin
 clrscr;
 write('Digite dois números inteiros ');
 read(a);
 read(b);
 c:=a+b;
 writeln(a,' + ',b,' = ',c);
 readkey;
end.