TUGAS 03
SISTEM BERKAS
ORGANISASI BERKAS PHYSICAL SEQUENTIAL
Disusun
oleh:
Ermawati
121051111
JURUSAN TEKNIK INFORMATIKA
FAKULTAS TEKNOLOGI INDUSTRI
INSTITUT SAINS & TEKNOLOGI AKPRIND
YOGYAKARTA
2015
SOAL
/ PERMASALAHAN
Membuat
program untuk mencari kunci dari kunci-kunci yang diinputkan. Pada langkah ke
berapa kunci ditemukan dan berapa waktu yang diperlukan untuk pencarian
tersebut.
ALGORITMA
1.
Input jumlah kunci
(n).
2.
Isi nilai dari kunci
kunci tersebut (nilai[]).
3.
Input nilai kunci yang
akan dicari (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 ditemukan, lalu cetak hasil (ditemukan pada langkah ke berapa dan
membutuhkan waktu berapa lama). Jika ketemu=false, maka cetak pesan nilai tidak
ditemukan.
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(' || 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 PHYSICAL SEQUENTIAL
||');
writeln('
||_____________________________________________||');
writeln(' ||
||');
writeln(' || 1. Input Kunci ||');
writeln(' || 2. Cari Kunci ||');
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('berapa jumlah kunci? ');readln(n);
writeln;
for i:=1
to n do
begin
write('input nilai kunci ke ',i,' : ');readln(nilai[i]);
end;
writeln;
writeln('kunci yang anda inputkan');
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 nilai kunci 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,' ditemukan pada langkah ke ',pos);
writeln('dengan waktu pencarian ',waktu:10:8,' s');
end
else
write('nilai ',cari,' tidak ditemukan');
readln;
end
else if(pil=3)
then
begin
writeln('semoga bermanfaat');
end
else
writeln('Tidak ada dalam pilihan!');
clrscr;
until (pil=3);
writeln('semoga
bermanfaat');
end.
HASIL
RUNNING
Tampilan
awal saat program dirunning
Tampilan setelah ditekan enter :
\
Input kunci
Output (cari kunci)
Tidak ada komentar:
Posting Komentar