Kel 4 :Menyalin arsip (dengan mark)

 Kel 4 :Menyalin arsip (dengan mark)

Tugas Group 4 MJ1A Karyawan

Nama / Nim

1.       Narupi                  4311211010

2.       Almuaini              4311211011

3.       Rikardo                 4311211012

mas rikardo dan mbak iin please check and give me advice

Menyalin arsip ke arsip yang lain

Procedure SalinArsip(input namaArsip 1:tipeArsip,  input namaArsip 2:tipeArsip) {Menyalin arsip ke dalam arsip yang lain: K.Awal : Membaca data ada pada arsip 1 yang ada marknya. K.Akhir : Arsip 1 tersalin ke arsip 2 beserta marknya. Pointer maju satu posisi ke depan} Type DataMhs : record <NIM:integer, Nama : string, IP:real> Type ArsipMhs : File of DataMhs Data_1 : ArsipMhs Data_2 : ArsipMhs //deklarasi RekMhs:DataMhs //algoritma Open(Data_1, 1) Open(Data_2, 1) Repeat Fread(Data_1, RekMhs)        Fwrite(Data_2, RekMhs) Until RekMhs.Nim ≠ 9999 Close(Data_1) Close(Data_2)