TUGAS 3
SISTEM BERKAS
ORGANISASI BERKAS
PADA PHYSICAL SEQUENTIAL
Disusun Oleh
Samuel Karel L 111051005
JURUSAN TEKNIK INFORMATIKA
FAKULTAS TEKNOLOGI INDUSTRI
INSTITUT SAINS DAN TEKNOLOGI AKPRIND YOGYAKARTA
2016/2017
Membuat program untuk mencari kunci dari
kunci-kunci yang diinputkan. Pada langkah ke berapa kunci di temukan dan berapa
waktu yang di perlukan untuk pencarian tersebut.
ALGORITMA
1. Input jumlah kunci (n).
2. Nilai dari kunci-kunci tersebut (nilai []).
3. Input nilai kunci yang akandicari (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 di temukan, lalu cetak hasil (di temukan
pada langkah ke berapa dan membutuhkan waktu berapa lama). Jika ketemu =
false, maka cetak pesan nilai tidak di temukan.
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('
||
DibuatOleh:
||');
writeln('
|| ~*~ Nama
* Ilham A ~*~ ||');
writeln('
|| ~*~
NIM *
161052067 ~*~ ||');
writeln('
|| ~*~ Bahasa Pemrg*
Pascal ~*~ ||');
writeln(' ||
~*~ Dosen * EdhySutanta
~*~ ||');
writeln('
||
||');
writeln('
||
||');
writeln('
||_____________________________________________||');
writeln(' ||
TeknikInformatika
||');
writeln('
|| IST AKPRIND
Yogyakarta
||');
writeln('
||_____________________________________________||');
writeln('
||
||');
writeln('
=================================================');
write(' Silahkantekan
enter');
readln;
clrscr;
writeln(' __________________________________________________');
writeln('
|| ORGANISASI BERKAS PHYSICAL SEQUENTIAL
||');
writeln('
||_____________________________________________||');
writeln('
||
||');
writeln('
||
1. Input
Kunci
||');
writeln('
||
2.
CariKunci
||');
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('berapajumlahkunci? ');readln(n);
writeln;
for i:=1 to n do
begin
write('input nilaikuncike ',i,' : ');readln(nilai[i]);
end;
writeln;
writeln('kunci yang andainputkan');
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 nilaikunci 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,' ditemukanpadalangkahke ',pos);
writeln('denganwaktupencarian ',waktu:10:8,' s');
end
else
write('nilai ',cari,' tidakditemukan');
readln;
end
else if(pil=3) then
begin
writeln('semogabermanfaat');
end
else
writeln('Tidakadadalampilihan!');
clrscr;
until (pil=3);
writeln('semogabermanfaat');
end.
HASIL RUNING
Tampilan Saat Program di Runing
Tampilan setelah di tekan Enter
Input Kunci
Output Cari Kunci
Output Cari Kunci
Tidak ada komentar:
Posting Komentar