ABSTRAKSI Nama
: Jepri Sinaga
NPM
: 30400352
Jurusan
: Manajemen Informatika
Judul
:MENCARI
ANGKA
PENJUALAN
INDEKS
MOBIL
LASPEYRES
PADA PT.ASTRA
INTERNATIONAL TBK TOYOTA KEBUN JERUK DENGAN MENGGUNAKAN APLIKASI TURBO PASCAL VERSI 7.0 Kata Kunci
: Indeks Laspeyres , Penjualan Mobil
Jumlah Hal.
: (ix + 31 , Lampiran), 2006
Angka yang
Indeks
populer
Laspeyres
guna
merupakan
mengukur
peralatan
perubahan
atau
statistik
melakukan
perbandingan antara variabel-variabel dalam beberapa tahun perbandingan. Dalam penulisan ini dibahas tentang bagaimana rumus mencari
Angka
Indeks
Laspeyres
diterapkan
kedalam
pemrograman Pascal, baik diimplementasikan kedalam rumus Indeks Laspeyres beserta data-data yang ada dan membahas masalahnya dengan menggunakan Algoritma dan Flowchart yang untuk selanjutnya dilakukan pembuatan program menggunakan bahasa pemrograman Turbo Pascal 7.0.
Daftar Pustaka
: 8, (1981 – 1997)
Dosen Pembimbing
: Aqwam Rosadi,SKom.,MM
iii
KATA PENGANTAR
Dengan mengucapkan puji syukur kehadirat Tuhan Yang Maha Esa,karena berkat rahmat dan karunia-Nya penulisan ini dapatdiselesaikan. Berhasilnya penulisan penelitian ini tentu tak lepas dari bantuan
dan
dukungan
semua
pihak
yang
telah
banyak
ini
penulis
membantu penulis. Pada
kesempatan
ingin
mengucapkan terima kasih yang sebesar-besarnya kepada : 1. Bapak Eko Hadiyanto,SSi.,MMSI, selaku Ketua Sekolah Tinggi
Manajemen
Informatika
&
Komputer
(STMIK)
Jakarta. 2. Bapak
Aqwam
Manajemen
Rosadi,SKom.,MM,selaku
Informatika
Sekolah
Ketua
Tinggi
Jurusan
Manajemen
Informatika & Komputer (STMIK) Jakarta. 3. Bapak
Aqwam
Pembimbing pentunjuk
Rosadi,SKom.,MM,
Materi
kepada
yang
telah
penulis
dalam
selaku
banyak
Dosen
memberikan
menyusun
penulisan
Penasehat
Akademik
pemelitian ini. 4. Ibu
Yulina,SKom.,MMSI,
Sekolah
Tinggi
selaku
Manajemen
(STMIK) Jakarta.
iv
Informatika
&
Komputer
5. Segenap Dosen dan Karyawan Sekolah Tinggi Manajemen Informatika & Komputer (STMIK) Jakarta. 6. Bapak
Drs.Roy
Ibrahim,
selaku
Customer
Relation
PT.Astra International Tbk-Toyota Kebun Jeruk. 7. Kedua Orang Tua saya beserta Saudara-Saudara saya yang telah memberikan dukungan moril
selama menyelesaikan
penulisan penelitian ini. 8. Sahabat-Sahabat berpartisipasi
dan
semua
memberikan
Rekan-Rekan
bantuan
dalam
yang
turut
penyelesaian
penulisan ini.
Jakarta, Mei 2006
Penulis
v
DAFTAR PSUTAKA
Anonim,Algoritma dan Pemrograman, Edisi I, Cetakan Kedua, Gunadarma, Jakarta, 1993
Dajan, Anto, Pengantar Metode Statistik, Jilid I, cetakan Ketujuhbelas, PT.Pustaka LPBES, Jakarta, 1994
Jogiyanto
H.M.,
Teori
dan
Aplikasi
Program
Komputer
Bahasa Turbo Pascal 5.0, Jilid I, Cetakan Keenam, Andi Offset, Yogyakarta, 1994
Kustituanto,
Bambang
dan
Badrudin,
Rudy,Statistika
1
(Deskriptif), Gunadarma, Jakarta, 1994
Sudjana,Statistika Untuk Ekonomi Dan Niaga, Edisi Kelima, Tarsito, Bandung, 1981
Sumin, Agus dan Suryadi H.S., Pengantar Algoritma Dan Pemrograman Teknik Diagram Alur Dan Bahsa Basic Dasar, Gunadarma, Jakarta, 1991
Santosa, Insap , Dasar-Dasar Pemrograman Pascal Teori Dan Program
Terapan,
Edisi
IV,
Cetakan
Pertama,
Andi
Pengantar
Ilmu
Offset, Yogyakarta, 1997
Sumin,
Agus
dan
Soeparlan,
Soepono.,
Komputer, Gunadarma, Jakarta, 1995
LAMPIRAN
Lampiran-I : Input Data
(a)
Input Data Pertama
BERAPA TAHUN :3 TAHUN DASARNYA :1997 JUMLAH PRODUK :5
(b)
Input Data Kedua
TAHUN : 1997 MASUKKAN DATA PENJUALAN MOBIL KIJANG PT. ASTRA INTERNASIONAL Tbk-Kebun Jeruk TAHUN 1997 -------------------------------------------------------------------------------------NAMA BARANG HARGA KUANTITAS -------------------------------------------------------------------------------------LX 64000000 153 LX –D 87500000 129 LSX 98000000 200 LSX –D 60120000 110 LGX 79900000 134 ------------------------------------------------------------
L-1
(c)
Input Data Ketiga
TAHUN : 1998 MASUKKAN DATA PENJUALAN MOBIL KIJANG PT. ASTRA INTERNASIONAL Tbk-Kebun Jeruk TAHUN 1998 --------------------------------------------------------------------------------------NAMA BARANG HARGA KUANTITAS --------------------------------------------------------------------------------------LX 67050000 140 LX –D 91000000 135 LSX 101250000 138 LSX –D 68150000 130 LGX 83150000 146 ---------------------------------------------------------------------------------------
(d)
Input Data Keempat
TAHUN : 1999 MASUKKAN DATA PENJUALAN MOBIL KIJANG PT. ASTRA INTERNASIONAL Tbk-Kebun Jeruk TAHUN 1999 ------------------------------------------------------------------------------NAMA BARANG HARGA KUANTITAS ------------------------------------------------------------------------------LX 80450000 142 LX –D 106500000 136 LSX 118950000 132 LSX –D 82380000 139 LGX 97650000 142 -------------------------------------------------------------------------------
L-2
Lampiran-II : Output Program
(a)
Output data penjualan yang telah di input.
--------------------------------------------------------------------------------------------NAMA BARANG HARGA(P) KUANTITAS(Q) --------------------------------------------------------------------------------------------1997 LX 64000000 153 LX –D 87500000 129 LSX 98000000 200 LSX –D 60120000 110 LGX 79900000 134 1998 LX 67050000 140 LX –D 91000000 135 LSX 101250000 138 LSX –D 68150000 130 LGX 83150000 146 1999 LX 80450000 142 LX –D 106500000 136 LSX 118950000 132 LSX –D 82380000 139 LGX 97650000 142 -----------------------------------------------------------------------------------------------TEKAN ENTER UNTUK MELIHAT HASIL PERHITUNGAN INDEKS LASPEYRES!!!
(b)
Output Hasil Aplikasi Perhitungan Indeks Laspeyres :
HASIL PERHITUNGAN INDEKS LASPEYRES
INDEKS LASPEYRES 1997 = 100.00 INDEKS LASPEYRES 1998 = 104.98 INDEKS LASPEYRES 1999 = 124.11
L-3
Lampiran-III : Lampiran Program PROGRAM INDEKS_LASEYRES; USES CRT; VAR T B H Q JUM TN HQ, HH THN, DAS, NB, BRS, KLM TA, TB, TAB, TBB, TTL X,Y BAWAH,ATAS, INDEKS
: ARRAY[1..5,1..5] OF INTEGER; : ARRAY[1..5,1..5] OF STRING; : ARRAY[1..5,1..5] OF REAL; : ARRAY[1..5,1..5] OF REAL; : ARRAY[1..5] OF REAL; : ARRAY[1..5] OF INTEGER; : ARRAY[1..5] OF REAL; : INTEGER; : REAL; : BYTE; : REAL;
BEGIN CLRSCR; TEXTATTR := YELLOW + GREEN * 16; TEXTCOLOR(1); WRITE('BERAPA TAHUN =');READLN (THN); WRITE('TAHUN DASARNYA =');READLN (DAS); WRITE('JUMLAH PRODUK =');READLN (NB); {TEXTATTR := BLUE + GREEN * 16 + BLIMK;} BAWAH :=0; FOR X:=1 TO THN DO BEGIN CLRSCR; WRITE('TAHUN : ');READLN(TN[X]); CLRSCR; TEXTCOLOR(113); WRITELN('MASUKKAN DATA PENJUALAN MOBIL TOYOTA KIJANG'); WRITELN( 'PT.ASTRA INTERNATIONAL Tbk Kebun Jeruk'); WRITELN('TAHUN ',TN[X]); TEXTCOLOR(0); WRITELN('=================================================='); WRITELN('NAMA BARANG HARGA KUANTITAS '); WRITELN('=================================================='); BRS := 7; FOR Y:=1 TO NB DO BEGIN TEXTCOLOR(0); GOTOXY (3,BRS); READLN(B[X,Y]); GOTOXY (25,BRS); READLN(H[X,Y]); GOTOXY (40,BRS); READLN(Q[X,Y]); IF TN[X] = DAS THEN L-4
BEGIN BAWAH := BAWAH+(H[X,Y]+Q[X,Y]); JUM[Y]:= Q[X,Y]; END; BRS := BRS + 1; END; END; CLRSCR; BEGIN TEXTCOLOR(0); WRITELN('TAMPILAN DATA YANG SUDAH DIINPUT'); WRITELN('DATA PENJUALAN PT.ASTRA INTERNATIONAL'); WRITELN('==========================================='); WRITELN('NAMA BARANG HARGA(P) KUANTITAS(Q) '); WRITELN('==========================================='); FOR X :=1 TO THN DO BEGIN TEXTCOLOR(133); GOTOXY(KLM,6); WRITELN(TN[X]); FOR Y :=1 TO NB DO BEGIN TEXTCOLOR(1); WRITELN(B[X,Y]); END; END; WRITELN;WRITELN; TEXTCOLOR(133); WRITELN('TEKAN ENTER UNTUK MELIHAT HASIL PERHITUNGAN INDEKS LASPEYRES!'); READLN; BEGIN CLRSCR; BEGIN WRITELN('HASIL PERHITUNGAN INDEKS LASPEYRES'); WRITELN;WRITELN; FOR X :=1 TO THN DO BEGIN FOR Y :=1 TO NB DO
L-5
BEGIN ATAS := ATAS + (H[X,Y] * JUM[Y]); END; INDEKS := (ATAS/BAWAH) * 100; TEXTCOLOR(0); WRITELN('INDEKS LASPEYRES ',TN[X],' = ',INDEKS:7:2); INDEKS := 0;ATAS :=0; END; READLN; END; END; END; END.
L-6
LEMBAR PENGESAHAN SEKOLAH TINGGI MANAJEMEN INFORMATIKA & KOMPUTER JAKARTA STI&K
Nama
: Jepri Sinaga
Npm
: 30400352
Jurusan
: Manajemen Informatika
Judul Penelitian
: Mencari Angka Indeks Laspeyres Penjualan Mobil Pada PT.Astr International Tbk-Toyota Kebun Jeruk Dengan Menggunakan Aplikasi Turbo Pascal Versi 7.0
Dosen Pembimbing
: Aqwam Rosadi,Skom.,MM
Tanggal Sidang
: 16 Mei 2006
Tanggal Lulus
: 16 Mei 2006
Mengetahui / Menyetujui :
Ketua Jurusan
Dosen Pembimbing,
Manajemen Informatika,
(Aqwam Rosadi, SKom., MM)
(Aqwam Rosadi,SKom.,MM)