Pascalda Dosyalama ,yazdırma-okutma,bir dosyadan digerine işlem yaparak aktarma.

Program ORNEK1;

uses crt;

var n1,n2:integer;
veri1:text;

begin

clrscr;

writeln('Program basladı');
assign(veri1,'D:/DATA.txt');
reset(veri1);
repeat
readln(veri1,n1);
writeln(n1);
until eof(veri1);{Until end of file=until eof=Kontrol amaçlı}
writeln('Program sonuclandı');
close(veri1);
readln;

end.

Program ORNEK2;

uses crt;
var n:integer;
sonuc1:text;
begin
clrscr;

writeln('Program basladı');
assign(sonuc1,'D:/cikti.son');
rewrite(sonuc1);
writeln(sonuc1,'Program basladi');
writeln('Program sonuclandı');
close(sonuc1);
writeln('Bir tusa basınız');
readln;

end.

Program ORNEK 3;

var n1,n2:integer;
sonuc1,veri1:text;
TOP,CARP:integer;
begin

writeln('Program basladı');
assign(veri1,'D:girdi.txt');
reset(veri1);
assign(sonuc1,'D:/cikti.abc');
rewrite(sonuc1);
readln(veri1,n1);
readln(veri1,n2);
TOP:=n1+n2;
CARP:=n1*n2;
writeln(sonuc1,' 2 sayinin toplam');
writeln(sonuc1,TOP:6);
writeln(sonuc1,' 2 sayinin carpim');
writeln(sonuc1,CARP:6);
close(sonuc1);
close(veri1);
writeln('Bir tusa basınız');
readln;

end.