Tugas 03 Sistem Berkas - Organisasi berkas physical sequential

TUGAS 03

SISTEM BERKAS

"ORGANISASI BERKAS PHYSICAL SEQUENTIAL"

Disusun Oleh :

Jeck Anderson (182052001)

JURUSAN TEKNIK INFORMATIKA

FAKULTAS TEKNOLOGI INDUSTRI

INSTITUT SAINS & TEKNOLOGI AKPRIND

YOGYAKARTA

2020

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

Input jumlah kunci (n)
Isi nilai dari kunci tersebut (nilai[])
Input nilai kunci yang akan dicari (cari)
Proses pencarian kunci menggunakan perulangan (for i:=1 to n do)
Jika nilai [i]= cari, maka ketemu = true dan pos=i (untuk menentukan posisi) waktu =ln (n)/ln (10)
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 Sistem_Berkas_03;
uses crt;
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 03 SISTEM BERKAS ');
writeln(' ');
writeln('_________________________________________________');
writeln(' ');
writeln(' Program Ini Dibuat Oleh : ');
writeln(' Nama : Jeck Anderson ');
writeln(' Nim : 182052001 ');
writeln(' Bahasa Pemrograman : Pascal ');
writeln(' ');
writeln('_________________________________________________');
writeln(' ');
writeln(' ORGANISASI BERKAS PHYSICAL SEQUENTIAL ');
writeln('_________________________________________________');
writeln(' ');
writeln(' 1. Input Kunci ');
writeln(' 2. Cari Kunci ');
writeln(' 3. Keluar ');
writeln('_________________________________________________');
writeln(' ');
write(' Silahkan Dipilih <1,2,3>?');readln(pil);
clrscr;

if(pil=1) then
begin
writeln('_________________________________________________');
writeln(' ');
writeln(' INPUT KUNCI ');
writeln('_________________________________________________');
write(' Berapa Jumlah Kunci?');readln(n);
writeln;
for i:=1 to n do
begin
writeln(' Input Nilai Kunci Ke ',1,':');readln(nilai[1] );
end;
writeln(' Kunci Mana Yang Anda Inputkan ');
writeln('_________________________________________________');
writeln(' ');
writeln(' No Kunci ');
writeln('_________________________________________________');
for i:=1 to n do
writeln('|',i:2,nilai[i]:16,'|' );
writeln('_________________________________________________');
readl;
end
else if(pil=2) then
begin
writeln('_________________________________________________');
writeln(' CARI KUNCI ');
writeln('_________________________________________________');
write(' Input Nilai Kunci Yang Dicari' );
for i:=1 to n do
begin
if(nilai[i]=car) then
begin
ketemu:=true;pos:=i;
waktu:=ln(n)/ln(10);
end;
end;
if(ketemu) then
begin
writeln(' ');
writeln(' Nilai',cari,'ditemukan pada langkah ke',pos );
writeln(' ');
writeln(' Dengan waktu pencarian',waktu:10:8,'s' );
end
else
writeln('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.

OUTPUT HASIL EKSEKUSI PROGRAM:

Tampilan awal saat program di jalankan

Tampilan setelah menekan enter

Tampilan inputan dan hasilnya

Tampilan cari kunci yang sudah inputkan

Tampilan cari kunci yang tidak di temukan