write

Pascalzim

write

Os comandos write e writeln são usados para imprimir o valor de uma sequência de expressões em um dispositivo de saída de dados. A diferença entre os dois comandos é que o comando writeln processa uma quebra de linha após imprimir o valor de uma sequência de expressões.

A escrita de dados pode ser direcionada para um arquivo, identificado através de uma variável do tipo TEXT.


A sintaxe de um comando write / writeln para impressão na tela de uma sequência de expressões é:


  write( expressão1 , expressão2 , .... , expressãon ) ;


A sintaxe de um comando write / writeln para impressão em arquivo de uma sequência de expressões é:


  write( variavelArquivo, expressão1 , expressão2 , .... , expressãon ) ;


Onde variavelArquivo é uma variável do tipo TEXT.



Exemplo


   Program PascalZIM ;  

    var

      c: char ;

    begin

      writeln( 'Please press a key' );

      c := Readkey;

      writeln( ' Você pressionou ', c, ', cujo valor ASCII é ', ord(c), '.' ) ;

    end.



Os parâmetros do comando write podem conter a especificação do seu comprimento. Tal especificação é definida através da seguinte regra sintática:


   expressão : tamanho


Onde expressão define um parâmetro e tamanho é uma expressão do tipo inteiro.


A impressão de constantes em ponto flutuante pode conter, além da especificação de comprimento, a especificação do número de casas decimais a serem impressas. Essa especificação é dada através da seguinte regra sintática:


   expressão : tamanho : casas decimais


Onde expressão é um parâmetro do tipo real, tamanho e casas decimais são expressões do tipo inteiro.


A impressão de uma linha em branco é dada através de um comando writeln como abaixo:


   writeln ;



Exemplo


    Program PascalZIM ;

     var

        arq: text;

      begin

        assign( arq,'teste.txt' ) ;

        rewrite( arq ) ;

        writeln;                             { Impressão na tela }

        writeln( 1:10, 2:20, 3:30 ) ;

        writeln( 'a':10, 'b':20, 'c':30 ) ;

        writeln( 'asd':10, 'bnm':20, 'cvb':30 ) ;

        writeln( 2.1:10, 3.2:20, 4.3:30 ) ;

        writeln( 2.1:10:2, 3.2:20:3, 4.3:30:4 ) ;

        writeln;                               { Impressão em arquivo }

        writeln( arq, 1:10, 2:20, 3:30 ) ;

        writeln( arq, 'a':10, 'b':20, 'c':30 ) ;

        writeln( arq, 'asd':10, 'bnm':20, 'cvb':30 ) ;

        writeln( arq, 2.1:10, 3.2:20, 4.3:30 ) ;

        writeln( arq, 2.1:10:2, 3.2:20:3, 4.3:30:4 ) ;

        close( arq ) ;

      End.


Created with the Freeware Edition of HelpNDoc: Full featured Documentation generator