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