Dalam pascal file .txt dapat digunakan sebagai input dan output dengan menggunakan perintah assign. Perintah Assign dapat membaca file .txt dan membuat atau merewrite file .txt tersebut. Dibawah ini merupakan contoh penggunaan file .txt dalam pascal dengan program bilangan prima.
Buatlah input seperti pada gambar dengan notepad dan save dengan format .txt, misal kita buat pada D:/folder/why.txt
Lalu buka free pascal dan masukkan syntax seperti berikut:
var
a,b,c,n,i:integer;
fi,fo:text;
prima: array[1..300] of integer;
begin
assign(fi,'D:/folder/why.txt');
assign(fo,'D:/folder/yhw.txt');
reset(fi);
rewrite(fo);
readln(fi,n);
for i:=1 to n do
begin
readln(fi,c);
if (c=1) or (c=2) then writeln(fo,'Prima')
else
begin
prima[c]:=c;
for a:=2 to c-1 do
begin
b:=c mod a;
if b=0 then prima[c]:=0;
end;
if prima[c]=0 then writeln(fo,'Bukan Prima');
end;
if prima[c]<>0 then writeln(fo,'Prima');
end;
close(fi);
close(fo);
end.
Setelah memasukkan syntax tersebut cobalah compile lalu run(ctrl+F9). maka akan dibuatkan oleh pascal file yhw.txt dalam folder dan jika dibuka akan muncul seperti pada gambar.
Download programnya disini
download link mediafire DISINI
