Tugas 01 Sistem Berkas - Organisasi berkas pada magnetic tape

TUGAS 01

SISTEM BERKAS

"ORGANISASI BERKAS PADA MAGNETIC TAPE"

Disusun Oleh:

Jeck Anderson (182052001)

Dosen Pengampu:

Edhy Sutanta, S.T., M.Kom

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2020

_________________________________________________________________________________

SOAL: PERMASALAHAAN

Dengan Inputan sebagai berikut:

Jumlah Record
Panjang Record
IRG
IBG
Blocking Factor
Data Dencity
Laju Pita

Bahasa Pemrogrman Yang Digunakan : Pascal

Buatlah Program Untuk Menghitung

Panjang Pita
Lama Akses
Transfer Rate

Program Menyediakan Pilihan Metode Tanpa Blocking dan Blocking

Algoritma

Memilih apakah akan menghitung dengan metode tanpa blocking atau blocking

Jika memilih tanpa blocking maka baca jumlah

record (jml_rec), panjang record (pjg_rec), irg, data dencity (dd) dan laju pita (laju_pita)
hitung panjang pita pjg_pita = ((pjg_rec/dd)+irg)*jml_rec
hitung lama akses lama_akses = pjg_pita/laju_pita
hitung transfer rate tr = (pjg_rec*jml_rec)/lama_akses
cetak pjg_pita, lama_akses dan tr

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)
hitung panjang pita pjg_pita = (jml_rec/bf)*pjg_rec/dd)++ibg)
hitung lama akses lama_akses = pjg_pita/laju_pita
hitung transfer rate tr = (pjg_rec*jml_rec)/lama_akses
cetak pjg_pita, lama_akses dan tr

Source Code

program Sistem_Berkas_01;
uses crt;
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 SISTEM BERKAS 01 ');
writeln('_________________________________________________');
writeln(' ');
writeln(' ');
writeln(' Program ini Dibuat Oleh: ');
writeln(' Nama : Jeck Anderson ');
writeln(' Nim : 182052001 ');
writeln(' Bahasa Pemrograman : Pascal ');
writeln(' ');
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(' ');
writeln('_________________________________________________');
writeln(' ');
writeln(' 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);
writeln(' Panjang record <record> ='); readln(pjg_rec);
writeln(' IRG <inchi> ='); readln(irg);
writeln(' Data dencity <BPI> ='); readln(dd);
writeln(' 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*jlm_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('_________________________________________________');
writeln(' Jumlah record <record> = ');readln(jml_rec);
writeln(' Panjang record <byte> = ');readln(pjg_rec);
writeln(' IBG <inchi> = ');readln(ibg);
writeln(' Data dencity <BPI> = ');readln(dd);
writeln(' Laju pita <inchi/detik> = ');readln(laju_pita);
writeln(' Blocking Factor = ');readln(bf);
writeln('===========================================');
pjg_pita:=(jml_rec/bf)*((bf*pjg_rec/dd)+ibg);
lama_akses:=pjg_pita/laju_pita;
tr:=(pjg_rec*jlm_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;
writeln(' Mau hitung lagi <y/t>?');readln(jwb);
clrscr;
until(jwb<>'y' );
writeln('thanks, semoga bermanfaat' );
halt;
end.

_________________________________________________________________________________

Output hasil eksekusi program:

Tampilan awal program di jalankan

Tampilan setelah di tekan enter, akan ada dua pilihan untuk metode tanpa blocking dan metode blocking

Tampilan inputan Metode Tanpa Blocking dan Hasilnya

Tampilan inputan Metode Blocking dan Hasilnya

_________________________________________________________________________________