TUGAS
03
SISTEM
BERKAS
ORGANISASI
BERKAS
Physical
Sequential
Disusun
oleh:
Nama
: Fikki Rian Irawan
NIM
: 141051080
JURUSAN INFORMATIKA
FAKULTAS
TEKNOLOGI INDUSTRI
INSTITUT
SAINS & TEKNOLOGI
AKPRIND
2020
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 soal3;
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:
TUGAS 03 SISTEM BERKAS Physical Sequential
4/
5
Oleh
fikkirian