Tugas 3 SISTEM BERKAS(ORGANIZATION FILES SYSTEM)

TUGAS 3

SISTEM BERKAS

(ORGANIZATION FILES SYSTEM)  

 

Disusun oleh :

Nama   :Agusalim S.Pure

NIM    : 131.05.1046

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2016

I.SOAL PERMASALAHAN

Membuat program untuk mencari kunci dari kunci-kunci yang diinputkan.
 Padalangkah ke berapa kunci ditemukan dan berapa waktu yang diperlukan untuk pencariantersebut.

II.ALGORITMA

• 1.Input jumlah kunci (n).
• 2.Isi nilai dari kunci kunci tersebut (nilai).
• 3.Input nilai kunci yang akan dicari (cari).
• 4.Proses pencarian kunci menggunakan perulangan (for i to n do)
• 5.jika nilai[i]=cari,maka ketemu=true dan pos=i (untuk menentukan posisi)waktu=ln (n)/ln(10).
• 6.jika ketemu=true maka nilai ditemukan lalu cetak hasil (ditemukan pada langkah ke berapa dan membutuhkan waktu berapa lama),jika ketemu=false maka cetak pesan nilai tidak ditemukan.

III.SOURCES KODE

program sisber;
uses crt;
var
 nilai:array[1..20]of string;
 n,i,pos,pil:byte;
 cari:string;
 waktu:real;
 ketemu:boolean;
 begin
 repeat;
 ketemu:=false;
 writeln('  ----------------------------------------------------');
 writeln('     ! Tugas 3 Berkas Sistem ! ');
 writeln('  ----------------------------------------------------');
 writeln(' -----<<_______________________>>--------');
 writeln('   ====" Di Buat Oleh   "==== ');
 writeln('   ==  Nama : Agusalim Pure == ');
 writeln('   ==  Nim  : 131051046 == ');
 writeln(' ==-___ Dosen : Edhy Sutanta __-==  ');
 writeln('-------------------------------------------------------');
 write('   Silahkan Ketik Enter ');
 readln;

 clrscr;
 writeln('________________________________________________________________');
 writeln('  " ORGANISASI  BERKAS PHYSICAL SEQUENTIAL " ');
 writeln('_______________________________________________________________');
 writeln('                          ');
 writeln('     1.Input Kunci ');
 writeln('     2.Cari Kunci ');
 writeln('     3.Keluar  ');
 writeln('______________________________________________________________');
 writeln('_______________________________________________________________');
 write ('      your choice <1,2,3>?');readln(pil);
 clrscr;

 if(pil=1) then
 begin 
   writeln('========================');
   writeln('_____Input Kunci ________');
   write('berapa jumlah kunci ? ');readln(n);
   writeln;
   for i:=1 to n do
   begin
write('input nilai ke',i,':');readln(nilai[i]);
   end;
   writeln;
   writeln('Kunci yang anda inputkan');
   writeln('==============================');
   writeln('No  Kunci   ');
   writeln('==============================');
   for i:=1 to n do
     writeln('|',i:2,nilai[i]:6,'|');
     writeln('==========================');
     readln;
 end
 else if(pil=2) then
 begin
    writeln('=========================');
    writeln('_______Cari KUnci _____');
    writeln('Input nilai Kunci yang dari : ');readln(cari);
    for i:=1 to n do
    begin
    if(nilai[i]=cari) then
    begin
    ketemu:=true;pos:=i;
    waktu:=ln(n)/
    3ln(10);
    end;
   end;
   if(ketemu) then
   begin
writeln('nilai',cari,'ditemukan pada langkah ke',pos);
writeln('dengan waktu pencarian',waktu:10:8,'s');
end
else
writeln('nilai',cari,'tidak ditemukan');
readln;
end
else if(pil=3) then
begin
writeln('semoga bermanfaat');
end
else
writeln('Tidak ada dalam pilihan');
clrscr;
until(pil=3);
writeln('Semoga Bermanfaat');
end.

IV.Screnshoot

• Tampilan Awal

•  Input Kunci 

• Pencarian Kunci

• Pencarian Kunci Yang Tidak Ditemukan