SISTEM
BERKAS
MAKALAH ORGANISASI BERKAS PHYSICAL SEQUENTIAL
Disusun oleh:
Nama
: NUGROHO BAYU UTOMO
NIM
: 131051024
JURUSAN
TEKNIK INFORMATIKA
FAKULTAS
TEKNOLOGI INDUSTRI
INSTITUT
SAINS & TEKNOLOGI
AKPRIND
2016
Soal/Permasalahan
Membuat aplikasi untuk
menemukan nilai kunci yang dicari dengan inputan sejumlah (n) nilai-nilai
kunci, dan nilai kunci yang dicari dengan output data ke-n kunci tersebut
ditemukan serta lama waktu pencarian kunci tersebut.
Algoritma
1. Masuk program.
2. Menginputkan
sejumlah (n) kunci.
3. Menginputkan kunci
yang dicari.
4. Klik cari, maka
proses pencarian kunci akan berjalan dengan
menggunakan perulangan
for (i:=1 to n do)
5. Jika kunci ditemukan
maka true, dan jika tidak ditemukan maka false.
6. Menghitung waktu
pencarian
7. Menampilkan hasil
pencarian :
· Jika
true makan akan tampil data ditemukan dengan langkah/data
ke- serta waktu
pencarian kunci.
· Jika
false maka akan tampil data tidak ditemukan
Source
code
program soal 3;
uses wincrt;
var
ni:array[1..20] of string;
ktr:boolean;
a:real;
c:string;
n,i,pss,plh:byte;
begin
repeat;
clrscr;
writeln('-------------------------------------------------');
writeln('||Program Organisasi Berkas Physical Sequential||');
writeln('||
||');
writeln('||1. pilih
kunci
||');
writeln('||2. mencari
kunci
||');
writeln('||3.
keluar
||');
writeln('||
||');
writeln('-------------------------------------------------');
write('||Pilih 1-3 => ');readln(plh);
clrscr;
if (plh=1) then
begin
writeln('----Masukkan Kunci----');
writeln;
write('Jumlah Kunci => ');readln(n);
writeln;
for i:=1 to n do
begin
write('Kunci ke-',i,' : ');readln(ni[i]);
end;
writeln;
writeln('======================');
writeln('||---Daftar kunci---||');
writeln('||No Kunci ||');
writeln('||------------------||');
for i:=1 to n do
writeln('||',i:2,ni[i]:16,'||');
writeln('======================');
readln;
end
else if(plh=2) then
begin
writeln('----Cari Kunci----');
writeln;
write('Masukkan kunci yg dicari => ');readln(c);
for i:=1 to n do
begin
if(ni[i]=c) then
begin
ktr:=true;pss:=i;
a:=ln(n)/ln(10);
end;
end;
if(ktr) then
begin
writeln('nilai kunci ',c,' ditemukan pada langkah ke ',pss,' waktu pencarian
',a:10:8,' s');
end
else
write('nilai ',c,' tidak ditemukan');
readln;
end
else if(plh=3) then
begin
writeln('----Matur Nuwon----');
end
else
writeln('pilihannya gak ada lho!');
clrscr;
until (plh=3);
writeln('----Matur Nuwon----');
writeln;
writeln('Jangan lupa mencoba lagi program ini');
end.
Hasil running:
0 komentar:
Posting Komentar