TUGAS 3 SISTEM BERKAS "ORGANISASI BERKAS PHYSICAL SEQUENTIAL"

TUGAS 03

SISTEM BERKAS

ORGANISASI BERKAS PHYSICAL SEQUENTIAL

Disusun oleh:

Ermawati

121051111

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2015

SOAL / PERMASALAHAN

Membuat program untuk mencari kunci dari kunci-kunci yang diinputkan. Pada langkah ke berapa kunci ditemukan dan berapa waktu yang diperlukan untuk pencarian tersebut.

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:=1 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.

SOURCE CODE

program tgs3_sb;

uses wincrt;

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 SISTEM BERKAS           ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          ||                Dibuat Oleh:                 ||');

     writeln('          ||    ~*~  Nama        *  Ermawati     ~*~     ||');

     writeln('          ||    ~*~  NIM         *  121051111    ~*~     ||');

     writeln('          ||    ~*~  Bahasa Pemrg*  Pascal       ~*~     ||');

     writeln('          ||    ~*~  Dosen       *  Edhy Sutanta ~*~     ||');

     writeln('          ||                                             ||');

     writeln('          ||                                             ||');

     writeln('          ||_____________________________________________||');

     writeln('          || Teknik Informatika                          ||');

     writeln('          ||     IST AKPRIND Yogyakarta                  ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          =================================================');

     write('          Silahkan tekan enter');

     readln;

     clrscr;

     writeln('         __________________________________________________');

     writeln('          ||    ORGANISASI BERKAS PHYSICAL SEQUENTIAL    ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          ||              1. Input Kunci                 ||');

     writeln('          ||              2. Cari Kunci                  ||');

     writeln('          ||              3. Keluar                      ||');

     writeln('          ||_____________________________________________||');

     writeln('          || The Owner                                   ||');

     writeln('          ||     Ermawati :D                             ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          =================================================');

     writeln;

     write(           'your choice <1,2,3>? ');readln(pil);

     clrscr;

     if (pil=1) then

     begin

          writeln('=======================');

          writeln('////->INPUT KUNCI<-\\\\');

          writeln('=======================');

          write('berapa jumlah kunci? ');readln(n);

          writeln;

          for i:=1 to n do

          begin

               write('input nilai kunci 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]:16,'|');

          writeln('====================');

          readln;

     end

     else if(pil=2) then

     begin

          writeln('=======================');

          writeln('////->CARI KUNCI<-\\\\');

          writeln('=======================');

          write('input nilai kunci yang dicari : ');readln(cari);

          for i:=1 to n do

          begin

               if(nilai[i]=cari) then

               begin

                    ketemu:=true;pos:=i;

                    waktu:=ln(n)/ln(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

              write('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.

HASIL RUNNING

Tampilan awal saat program dirunning

Tampilan setelah ditekan enter :

\

Input kunci

Output (cari kunci)

TUGAS 01 SISTEM BERKAS (ORGANISASI BERKAS PADA MAGNETIC TAPE)

TUGAS 01

SISTEM BERKAS

ORGANISASI BERKAS PADA MAGNETIC TAPE

Disusun oleh:

Ermawati

121051111

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2015

SOAL / PERMASALAHAN

Dengan inputan sebagai berikut :

1.    Jumlah record

2.   Panjang record

3.   IRG/IBG

4.   Blocking Factor

5.    Data dencity

6.   Laju pita

Buatlah program untuk menghitung :

1.    Panjang pita

2.   Lama akses

3.   Transfer rate

Program menyediakan pilihan metode tanpa blocking dan blocking

Bahasa pemrograman yang saya pakai untuk membuat program ini adalah bahasa pascal.

ALGORITMA

Algoritma dari program yang akan saya buat adalah sebagai berikut :

1.         Memilih apakah akan menghitung dengan metode tanpa blocking atau blocking

2.  Jika memilih tanpa blocking maka baca jumlah record (jml_rec), panjang record (pjg_rec), irg, data dencity (dd) dan laju pita(laju_pita).

3.        Hitung panjang pita

pjg_pita = ((pjg_rec/dd)+irg)*jml_rec

4.        Hitung lama akses

lama_akses = pjg_pita/laju_pita

5.        Hitung transer rate

tr = (pjg_rec*jml_rec)/lama_akses

6.        Cetak pjg_pita,lama_akses dan tr.

7.   Jika memilih dengan metode blocking maka baca jumlah record (jml_rec), panjang record (pjg_rec), ibg, data dencity (dd), laju pita(laju_pita) dan blocking factor (bf).

8.       Hitung panjang pita

pjg_pita = (jml_rec/bf)*((bf*pjg_rec/dd)+ibg)

9.        Hitung lama akses

lama_akses = pjg_pita/laju_pita

10.    Hitung transer rate

tr = (pjg_rec*jml_rec)/lama_akses

11.     Cetak pjg_pita,lama_akses dan tr.

SOURCE CODE

program tugas01_sistem_berkas;

uses wincrt;

var

   jml_rec,pjg_rec,irg,ibg,bf,dd,laju_pita:real;

   pjg_pita,lama_akses,tr:real;

   pil:byte;

   jwb:char;

begin

     repeat;

     writeln('         __________________________________________________');

     writeln('          ||             TUGAS 1 SISTEM BERKAS           ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          ||                Dibuat Oleh:                 ||');

     writeln('          ||    ~*~  Nama        *  Ermawati     ~*~     ||');

     writeln('          ||    ~*~  NIM         *  121051111    ~*~     ||');

     writeln('          ||    ~*~  Bahasa Pemrg*  Pascal       ~*~     ||');

     writeln('          ||    ~*~  Dosen       *  Edhy Sutanta ~*~     ||');

     writeln('          ||                                             ||');

     writeln('          ||                                             ||');

     writeln('          ||_____________________________________________||');

     writeln('          || Teknik Informatika                          ||');

     writeln('          ||     IST AKPRIND Yogyakarta                  ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          =================================================');

     write('          Silahkan tekan enter');

     readln;

     clrscr;

     writeln('         __________________________________________________');

     writeln('          ||    ORGANISASI BERKAS PADA MAGNETIC TAPE     ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          ||            1. Metode Tanpa Blocking         ||');

     writeln('          ||            2. Metode Blocking               ||');

     writeln('          ||_____________________________________________||');

     writeln('          || The Owner                                   ||');

     writeln('          ||     Ermawati :D                             ||');

     writeln('          ||_____________________________________________||');

     writeln('          ||                                             ||');

     writeln('          =================================================');

     writeln;

     write(           'Pilih metode yang mana <1/2>? ');readln(pil);

     clrscr;

     if (pil=1) then

     begin

          writeln('     _______________________________________');

          writeln('     ||      Metode Tanpa Blocking        ||');

          writeln('     _______________________________________');

          write('     ||     Jumlah record <record>   = ');readln(jml_rec);

          write('     ||     Panjang record <byte>    = ');readln(pjg_rec);

          write('     ||     IRG <inchi>              = ');readln(irg);

          write('     ||     Data dencity <BPI>       = ');readln(dd);

          write('     ||     Laju pita <inchi/detik>  = ');readln(laju_pita);

          writeln('     =======================================');

          pjg_pita:=((pjg_rec/dd)+irg)*jml_rec;

          lama_akses:=pjg_pita/laju_pita;

          tr:=(pjg_rec*jml_rec)/lama_akses;

          writeln;

          writeln('     ___________________________________________');

          writeln('     ||                 HASIL                 ||');

          writeln('     ___________________________________________');

          writeln('     ||   Panjang pita   = ',pjg_pita:8:2,' inchi');

          writeln('     ||   Lama Akses     = ',lama_akses:8:2,' detik');

          writeln('     ||   Transfer Rate  = ',tr:8:2,' byte/detik');

          writeln('     ===========================================');

     end

     else if(pil=2) then

     begin

          writeln('     _________________________________________');

          writeln('     ||           Metode Blocking           ||');

          writeln('     _________________________________________');

          write('     ||     Jumlah record <record>   = ');readln(jml_rec);

          write('     ||     Panjang record <byte>    = ');readln(pjg_rec);

          write('     ||     IBG <inchi>              = ');readln(ibg);

          write('     ||     Data dencity <BPI>       = ');readln(dd);

          write('     ||     Laju pita <inchi/detik>  = ');readln(laju_pita);

          write('     ||     Blocking Factor          = ');readln(bf);

          writeln('     =========================================');

          pjg_pita:=(jml_rec/bf)*((bf*pjg_rec/dd)+ibg);

          lama_akses:=pjg_pita/laju_pita;

          tr:=(pjg_rec*jml_rec)/lama_akses;

          writeln;

          writeln('     _____________________________________________');

          writeln('     ||                 HASIL                   ||');

          writeln('     _____________________________________________');

          writeln('     ||   Panjang pita   = ',pjg_pita:10:2,' inchi');

          writeln('     ||   Lama Akses     = ',lama_akses:10:2,' detik');

          writeln('     ||   Transfer Rate  = ',tr:10:2,' byte/detik');

          writeln('     =============================================');

     end

     else

         writeln('Tidak ada dalam pilihan!');

     writeln;

     write('Mau hitung lagi <y/t>? ');readln(jwb);

     clrscr;

     until (jwb<>'y');

     writeln('thanks,semoga bermanfaat');

     halt;

end.

HASIL RUNNING

Tampilan awal saat program dirunning

Tampilan setelah ditekan enter :

Inputan metode tanpa blocking

Output Metode Tanpa Blocking

Jika kita ingin menghitung lagi, jawab ‘y’.

Inputan metode blocking

Ouput metode blocking