Ficheiros de Saída em Pascal “Standard”:

Ficheiros de Saída em Pascal “Standard”:

Problema:

Criar um ficheiro com uma tabela de senos e cossennos com o valor de x Î [0 , p/2[ com intervalos de 0.01 radianos.

Programa:

program

senosecossenos (tabela);

const

pi = 3.14159265;

var

tabela : text;

x, pi2 : real;

begin

rewrite(tabela);

(* Cabeçalho da Tabela *)

writeln(

tabela, 'x' : 6, 'sin(x)' : 8, 'cos(x)' : 8);

writeln;

x:= 0;

pi2:= pi/2;

while

x < pi2 do

begin

writeln(tabela, x:6:2, sin(x):8:4, cos(x):8:4);

x:= x + 0.01

end

end

O Ficheiro tabela foi indicado na Cabeça do Programa e declarado como Variável do Tipo text.

A Instrução rewrite( ) abre o Ficheiro para Modo de Escrita.
As Instruções de Escrita indicam o Ficheiro onde os resultados são escritos.






Reflexão: 
Confundi um pouco como se abre o ficheiro para escrita ou só para leitura mas agora já percebo melhor.