Pemrosesan Arsip Arsip Struktur penyimpanan data di dalam

  • Slides: 10
Download presentation
Pemrosesan Arsip

Pemrosesan Arsip

Arsip • Struktur penyimpanan data di dalam memori sekunder seperti disk. • Data yang

Arsip • Struktur penyimpanan data di dalam memori sekunder seperti disk. • Data yang disimpan dalam arsip disebut record. • Cara pengorganisasian : sequential, random.

Sequential File • Sekumpulan record dengan tipe sama yang diakses secara berurutan mulai dari

Sequential File • Sekumpulan record dengan tipe sama yang diakses secara berurutan mulai dari record pertama sampai record terakhir yang dituju.

Deklarasi Arsip • Sebagai peubah Deklarasi arsip : file of tipe rekaman • Sebagai

Deklarasi Arsip • Sebagai peubah Deklarasi arsip : file of tipe rekaman • Sebagai tipe bentukan Deklarasi type nama tipe arsip : file of tipe rekaman arsip : nama tipe arsip

Fungsi Pustaka (1) Open : Membuka arsip untuk dibaca/ditulis. • Contoh : open(mhs, 1)

Fungsi Pustaka (1) Open : Membuka arsip untuk dibaca/ditulis. • Contoh : open(mhs, 1) {arsip mhs dbuka untuk dibaca) open(mhs, 2) {arsip mhs dbuka untuk ditulis) • Jika arsip dibuka untuk di baca, maka menunjuk ke rekaman pertama, sedangkan jika arsip dibuka untuk ditulis maka menunjuk ke rekaman akhir.

Fungsi Pustaka (2) Fread : Membaca rekaman yang sedang ditunjuk oleh pointer. • Contoh

Fungsi Pustaka (2) Fread : Membaca rekaman yang sedang ditunjuk oleh pointer. • Contoh : Fread(mhs, rekmhs) {rekmhs bertipe datamhs} Fwrite : Menulis rekaman ke arsip beruntun • Contoh : Fwrite(mhs, rekmhs) {menulis rekmhs ke arsip mhs} Fwrite(bil, 4)

Fungsi Pustaka (3) Close : menutup arsip yang sedang dibuka Contoh : Close(mhs) Close(bil)

Fungsi Pustaka (3) Close : menutup arsip yang sedang dibuka Contoh : Close(mhs) Close(bil)

Contoh Program buatarsipbilangan Deklarasi Bil: file of integer n, i : integger Algoritma Open(bil,

Contoh Program buatarsipbilangan Deklarasi Bil: file of integer n, i : integger Algoritma Open(bil, 2) input(n) For i 1 to n do fwrite(bil, i) End for Close(bil)

Program buat arsipmhs Deklarasi Type datamhs : record nim : integer; nama : string;

Program buat arsipmhs Deklarasi Type datamhs : record nim : integer; nama : string; ipk : real; end record Msiswa : datamhs Mhs : file of datamhs Algoritma open(mhs, 2) input(msiswa. nim) while(msiswa. nim <> 9999) do input(msiswa. nim, msiswa. ipk) fwrite(mhs, msiswa) input(msiswa. nim) end while close(mhs)

Program baca arsipmhs Deklarasi Type datamhs : record nim : integer; nama : string;

Program baca arsipmhs Deklarasi Type datamhs : record nim : integer; nama : string; ipk : real; end record Msiswa : datamhs Mhs : file of datamhs Algoritma open(mhs, 2) while not EOF(mhs)do fread(mhs, msiswa) input(msiswa. nim, msiswa. ipk) end while close(mhs)