nofri.exe

program sisipblakang;
uses crt;
type pointer = ^simpul;
     simpul = record
     data : string;

     end;
var p,baru : pointer;
    nama : string;
begin
clrscr;
     new(p);p :=nil;
     write('masukkan nama (x=selesai):');
     readln(nama);
     repeat
     new (baru);
     baru^.data :=nama;
     if p = nil then p:=baru;

program sisipblakang;
uses crt;
type pointer = ^simpul;
     simpul = record
     data : string;
     next : pointer;
     end;
var p,baru,ptr : pointer;
    nama : string;
begin
clrscr;
     new(p);p :=nil;
     write('masukkan nama (x=selesai):');
     readln(nama);
     repeat
     new (baru);
     baru^.data :=nama;
     baru^.next :=nil;
     if p = nil then p:=baru;


write ('masukkan nama (x=selesai):');
readln(nama);
until nama ='x';
ptr :=p;
while p^.next <> nil do
begin
write(p^.data,' ');
ptr :=p^.next;
end;
write(p^.data);
readln;
end.

1. Biaya transmisi. Biaya transmisi menjadi lebih murah dengan menggunakan salinan data berganda.
2. Waktu tanggap. Akses terhadap lokal dapat ditingkatkan.
3. Keberadaan (Availability). Akses terhadap data lokal atau mengubah salinan data dapat meningkatkan keberadaan data.
4. Sekuriti. Jika salah satu salinan data rusak, maka salinan data yang lain dapat digunakan.
5. Organisasi data. Data yang sama dapat diorganisasikan secara berlainan pada mesin yang berbeda, sebagai contoh pada sebuah sistem produksi pada sistem informasi.
6. Biaya konversi. File yang lama dapat dicadangkan/dipelihara/dilindungi setelah basisdata atau sistem terdistribusi diimplementasikan, sehingga akan mengurangi biaya dan waktu konversi program untuk bekerja dengan struktur data yang baru.