Operasi File
Kali ini kita akan berlatih untuk membuat program yang berurusan dengan file. File yang banyak dijumpai biasanya berupa file .txt. File ini menyimpan data berupa teks yang dapat kita buat, baca, dan ubah menggunakan pascal. Untuk mengakses file pascal memerlukan uses ke sistem utility, sehingga perlu memanggil Sysutils dibagian uses.
Pada kesempatan kali ini, saya menggunakan Compiler Free Pascal untuk membuat program. Langsung saja kodenya sebagai berikut:
program latihan10;
uses Sysutils,crt;
var
f:textfile;
s:string[20];
BEGIN
clrscr;
writeln('Ketik nama file yang anda inginkan: ');readln(s);
Assign(f,s+'.txt');
rewrite(f);
writeln(f,'Hai Semua!');
writeln(f,'Coba ditulis ya');
close(f);
writeln('File ',s,'.txt telah berhasil dibuat');
readln;
END.
Tampilan programnya sebagai berikut:
Hasil .exe dari program diatas dapat anda unduh disini
Posting Komentar