Results (
English) 1:
[Copy]Copied!
Chapter 7PASCAL English ver.A. Multiple choice1. Definition of file sekuensial is … a) Sekumpulan rekaman bertipe sama yang diakses secara berurutan.b) Sekumpulan data yang dapat diakses secara acakc) Sekumpulan data yang bermacam tipe dan dapat diakses secara berurutand) Sekumpulan data yang bermacam tipe dan dapat diakses secara acake) Semua benar2. Which operation that only can be used in file that has a type, that is …a) Filesize, truncate, appendb) Filesize, assign, appendc) Seek, filesize, truncated) Append, seek, eolne) Eof, eoln, writeln3. Berikut ini urutan penggunaan operasi yang benar, kecuali ... a) Assign, read, closeb) Assign, write, closec) Reset, read, closed) Assign, seek, closee) Seek, assign, close4. Fungsi dari assign adalah …a) Untuk menghubungkan / membuat koneksi antara file fisik dengan variabelnyab) Untuk membuat file baru dan membuka file baru tersebutc) Untuk membaca isi file yang ditunjuk oleh kursor lalu menyalin datanya ke variabel daftard) Untuk menuliskan isis dari variabel daftar ke file pada tempat yang ditunjuk oleh kursore) Menutup file setelah diproses5. Fungsi dari close adalah …a) Untuk menghubungkan / membuat koneksi antara file fisik dengan variabelnyab) Untuk membuat file baru dan membuka file baru tersebutc) Untuk membaca isi file yang ditunjuk oleh kursor lalu menyalin datanya ke variabel daftard) Untuk menuliskan isis dari variabel daftar ke file pada tempat yang ditunjuk oleh kursore) Menutup file setelah diproses6. Fungsi dari read adalah … a) Untuk menghubungkan / membuat koneksi antara file fisik dengan variabelnyab) Untuk membuat file baru dan membuka file baru tersebutc) Untuk membaca isi file yang ditunjuk oleh kursor lalu menyalin datanya ke variabel daftard) Untuk menuliskan isis dari variabel daftar ke file pada tempat yang ditunjuk oleh kursore) Menutup file setelah diprosesPerhatikan program di bawah ini!Program di bawah ini untuk soal no. 7 – 10!Program sekuensial;Uses crt;Type pegawai = record ( … )7 : string; gaji : longint; end;Var arsip : file of ( … ) 8; p : pegawai; i : integer; Begin Assign( ( … ) 9 , ‘cobacoba.dat’);Rewrite(arsip);For i:= 1 to n do begin Writeln(‘input pegawai ke-’,i);Write(‘Nama : ’); readln(p.nama);Write(‘Gaji : ’); readln( … )10;Write(arsip, p); End;Close(arsip);End.Lengkapilah bagian teks algoritma di atas!7. a) arsip b) namac) pegawaid) p.gajie) array8. a) arsip b) namac) pegawaid) p.gajie) array9. a) arsip b) namac) pegawaid) p.gajie) array10. a) arsip b) namac) pegawaid) p.gajie) arrayB. Essay1. Jelaskan yang dimaksud dengan file sekuensial!Jawaban :Sekumpulan rekaman bertipe sama yang diakses secara berurutan. Data-data yang ada dalam program akan disimpan di dalam harddisk2. Sebutkan dan jelaskan operasi-operasi yang ada pada file sekuensial!Jawaban :• Assign; untuk menghubungkan / membuat koneksi antara file fisik dengan variabelnya• Rewrite; untuk membuat file baru dan membuka file baru tersebut• Reset; untuk memindahkan kursor ke awal file atau membuka file yang sudah ada• Read; untuk membaca isi file yang ditunjuk oleh kursor lalu menyalin datanya ke variabel daftar• Write; untuk menuliskan isi dari variabel daftar ke file pada tempat yang ditunjuk oleh kursor• Close; untuk menutup file setelah diproses3. Sebutkan dan jelaskan operasi-operasi yang hanya dapat digunakan pada file sekuensial bertipe!Jawaban :• Seek; untuk menentukan / mencari data atau record pada file bertipe• Filesize; untuk mengetahui banyak record dari file yang tersedia• Truncate; untuk menghapus record tertentu4. Sebutkan keuntungan dan kekurangan file sekuensial!Jawaban :Keuntungan dari file sekuensial adalah dapat menyimpan data yang sudah diproses dalam program. Sedangkan kerugian dari file sekuensial adalah membutuhkan memori yang lebih besar5. Lengkapilah program di bawah ini!Program sekuensial;Uses crt;Type pegawai = record ( … )1 : string; gaji : longint; end;Var arsip : file of ( … )2; p : pegawai; i : integer; Begin Assign( ( … )3 , ‘cobacoba.dat’);Rewrite(arsip);For i:= 1 to n do begin Writeln(‘input pegawai ke-’,i);Write(‘Nama : ’); readln(p.nama);Write(‘Gaji : ’); readln( … )4;Write(arsip, p); End;Close(arsip);End.Jawaban :1. nama2. pegawai3. arsip4. p.gajiC. Jurnal1. Buatlah program dengan file sekuensial bertipe!Program sekuensial;Uses crt;Type mahasiswa = record nama,nim : string; end;Var arsip : file of mahasiswa; m : mahasiswa; i,n : integer; Begin Assign( arsip , ‘mahasiswa.dat’);Rewrite(arsip);Write(‘Masukkan banyak mahasiswa : ’); readln(n)For i:= 1 to n do begin Writeln(‘Input data mahasiswa ke-’,i);Write(‘Nama : ’); readln(m.nama);Write(‘NIM : ’); readln(m.nim);Write(arsip, m); End;Close(arsip);End.
Being translated, please wait..