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
Tidak ada komentar:
Posting Komentar