Senin, 24 Agustus 2015
Kamis, 20 Agustus 2015
Arti 16 Digit pada NIK
Nggak tau kenapa tadi iseng - iseng liatin KTP terus penasaran de apasih arti 16 angka pada NIK itu, dan aku coba search dan ternyata itu angka angka ada artinya bukan sekedar angka angka kombinasi saja.
Berikut penjelasannya :
Untuk mengetahui / mengecek identitas seseorang dapat dilihat dari Nomor Induk Kependudukannya (NIK).
Setiap orang di dunia memiliki Nomor Identitas / Single Identity Number / Personal Identity Number.
Begitu pula di Indonesia, setiap warga negara wajib memiliki nomor identitas yang dinamakan NIK (Nomor Induk Kependudukan) yang tertera di dalam Kartu Keluarga dan KTP.
Dalam Undang-Undang Republik Indonesia Nomor 23 Tahun 2006, tentang administrasi kependudukan, Nomor Induk Kependudukan (NIK) adalah nomor identitas penduduk yang bersifat unik atau khas, tunggal dan melekat pada seseorang yang terdaftar sebagai penduduk Indonesia dan berlaku seumur hidup dan selamanya.
NIK ini ditentukan dan dikelola oleh Direktur Jenderal Kependudukan dan Catatan Sipil dari Kementerian Dalam Negeri.
NIK terdiri dari 16 digit, dimana :
Contoh :
1671155507950001
Keterangan :
semoga bermanfaat..
Kalau ingin bikin EKTP yang lucu dan gokil2an disini
Berikut penjelasannya :
Untuk mengetahui / mengecek identitas seseorang dapat dilihat dari Nomor Induk Kependudukannya (NIK).
Setiap orang di dunia memiliki Nomor Identitas / Single Identity Number / Personal Identity Number.
Begitu pula di Indonesia, setiap warga negara wajib memiliki nomor identitas yang dinamakan NIK (Nomor Induk Kependudukan) yang tertera di dalam Kartu Keluarga dan KTP.
Dalam Undang-Undang Republik Indonesia Nomor 23 Tahun 2006, tentang administrasi kependudukan, Nomor Induk Kependudukan (NIK) adalah nomor identitas penduduk yang bersifat unik atau khas, tunggal dan melekat pada seseorang yang terdaftar sebagai penduduk Indonesia dan berlaku seumur hidup dan selamanya.
NIK ini ditentukan dan dikelola oleh Direktur Jenderal Kependudukan dan Catatan Sipil dari Kementerian Dalam Negeri.
NIK terdiri dari 16 digit, dimana :
- 6 digit pertama adalah informasi mengenai tempat dimana NIK diterbitkan (2 digit kode provinsi, 2 digit kode kota/kabupaten, dan 2 digit kode kecamatan).
- 6 digit selanjutnya merupakan tanggal lahir dalam format : tanggal bulan tahun (untuk wanita tanggal ditambah 40).
- 4 digit terakhir merupakan nomor urut registrasi (sesuai tanggal bulan tahun kelahiran yang sama dalam satu wilayah) yang dimulai dari 0001.
Contoh :
1671155507950001
Keterangan :
- 16 adalah kode propinsi : Sumatra Selatan
- 71 adalah kode kabupaten / kota : Palembang Kota
- 15 adalah kode kecamatan : Alang - Alang Lebar
- 55 adalah kode tanggal lahir : tanggal 15, (karena perempuan maka tanggalnya = 15 + 40 menjadi 55.)
- 07 adalah kode bulan lahir : bulan 07 /Juli
- 95 adalah kode tahun lahir : tahun 1995
- 0001 adalah kode nomor urut registrasi : urutannya adalah: 1, yang berarti urutan ke 1 dari sekian banyak orang yang mempunyai tanggal kelahiran yang sama dalam satu wilayah kecamatan Alang - alang Lebar, Kota Palembang, Propinsi Sumatra Selatan yang membuat KTP.
semoga bermanfaat..
Kalau ingin bikin EKTP yang lucu dan gokil2an disini
Semoga membantu
Senin, 29 Juni 2015
Dubsmash
Dubsmash.com Apa itu???
Dubsmash adalah sebah aplikasi penggubah video yang tersedia di sistem operasi iOS dan Android. Aplikasi ini berguna untuk membuat video hasil pengalihan suara (dubbing) dari suara-suara yang telah dimasukkan dan mengunggahnya ke beberapa media sosial.
Dubsmash diluncurkan perdana pada 14 November 2014. Tokoh kunci aplikasi Dubsmash adalah Jonas Drüppel, Roland Grenke dan Daniel Taschik.
4. Wait,.... Finish and you can use this apps
How to use this app?
1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends
Well, This my dubsmash video, yesterday I tried to make it better.
However, I still can not make a dubbing that fits with the movement.
Pliss check on my --> Instagram
Dubsmash adalah sebah aplikasi penggubah video yang tersedia di sistem operasi iOS dan Android. Aplikasi ini berguna untuk membuat video hasil pengalihan suara (dubbing) dari suara-suara yang telah dimasukkan dan mengunggahnya ke beberapa media sosial.
Dubsmash diluncurkan perdana pada 14 November 2014. Tokoh kunci aplikasi Dubsmash adalah Jonas Drüppel, Roland Grenke dan Daniel Taschik.
Description
Say it with video
1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends
Dubsmash makes it easy and fun to create hilarious conversations. In just a few seconds, you can dub well-known quotes and sounds in order to produce funny videos you can then share with your friends.
Anyone can be an awesome actor with Dubsmash! Simply let the quotes speak for you, or go all out and show your best interpretation using one of the countless one-liners in the app.
In addition to creating awesome videos, you can also create collections of sounds with the world’s largest quote library, or add your own sounds for everyone to use.
It’s never been easier to make every conversation worth a laugh.
1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends
Dubsmash makes it easy and fun to create hilarious conversations. In just a few seconds, you can dub well-known quotes and sounds in order to produce funny videos you can then share with your friends.
Anyone can be an awesome actor with Dubsmash! Simply let the quotes speak for you, or go all out and show your best interpretation using one of the countless one-liners in the app.
In addition to creating awesome videos, you can also create collections of sounds with the world’s largest quote library, or add your own sounds for everyone to use.
It’s never been easier to make every conversation worth a laugh.
How to download this?
1. You can open your apple store / Play Store on your smarth phone
2. Search Dubsmash
3. Download
How to use this app?
1. Choose your favorite sound on Dubsmash
2. Record yourself with the sound
3. Share the recorded Dub with your friends
Well, This my dubsmash video, yesterday I tried to make it better.
However, I still can not make a dubbing that fits with the movement.
Pliss check on my --> Instagram
NB : Maafin grammernya y ,
ini blog pertama saya yang menggunakan bahasa Inggris
yang sedikit di campur dalam bahasa Indonesia (tetep)
Jumat, 12 Juni 2015
Unique Food Depot and Decoco
Depot
apa itu????
Depot disini bukan stand air minum gitu y
Depot atau biasa De'Pot yaitu sejenis makanan yang berbentuk unik
Dimana bahan yang digunakan berupa ice cream yang di lapisi topping beranekaragam, ada buah, biskuit, corn, etc
Dan wadah yang digunakan yaitu pot bunga, mangkanya disebut depot kan salah satu bahan yang mendukung dan yang buat menarik ya pot nya ini
Ada beberapa macam menu depot salah dua nya :D ini :
Depot Solid
Eits jangan khawatir ini bukan tanaman hias, ini real 100% bisa di makan
iiiiiii ada cacingnya
xixixixixi
itu bukan cacing beneran kok gaes, itu agar - agar coklat yang di bentuk kayak cacing
bener - bener gak kepikiran kan buat bikin makanan yang kayak begini
Be Creative
Ada lagi ni kan tadi aku bilang salah dua berarti kudu kasi contoh satu lagi kan
Depot Beach
Next,
Decoco
apa lagi ini ????
Decoco dari namanya aja uda coco (coconut/Kelapa) pasti salah satu bahan yang digunakan yaituuuuuuuu Yup kelapa
Mungkin kalian uda sering liat yang satu ini biasa kalo kalian main ke pantai ya pasti ada ni menu jadi gak perlu banyak banyak dijelasinkan pasti uda pada tau.
Decoco
Hahahahahahahahaaaa
be unique, right?
Jangan malu buat berekperimen dan mencoba , sapa tau itu langkah awal buat kamu jadi success...
Mau? Minat? Pengen nyobain juga?
ok check on instagram : decoco.pi
apa itu????
Depot disini bukan stand air minum gitu y
Depot atau biasa De'Pot yaitu sejenis makanan yang berbentuk unik
Dimana bahan yang digunakan berupa ice cream yang di lapisi topping beranekaragam, ada buah, biskuit, corn, etc
Dan wadah yang digunakan yaitu pot bunga, mangkanya disebut depot kan salah satu bahan yang mendukung dan yang buat menarik ya pot nya ini
Ada beberapa macam menu depot salah dua nya :D ini :
Depot Solid
Eits jangan khawatir ini bukan tanaman hias, ini real 100% bisa di makan
iiiiiii ada cacingnya
xixixixixi
itu bukan cacing beneran kok gaes, itu agar - agar coklat yang di bentuk kayak cacing
bener - bener gak kepikiran kan buat bikin makanan yang kayak begini
Be Creative
Ada lagi ni kan tadi aku bilang salah dua berarti kudu kasi contoh satu lagi kan
Depot Beach
Next,
Decoco
apa lagi ini ????
Decoco dari namanya aja uda coco (coconut/Kelapa) pasti salah satu bahan yang digunakan yaituuuuuuuu Yup kelapa
Mungkin kalian uda sering liat yang satu ini biasa kalo kalian main ke pantai ya pasti ada ni menu jadi gak perlu banyak banyak dijelasinkan pasti uda pada tau.
Decoco
Decoco With Ice Cream topping
Hahahahahahahahaaaa
be unique, right?
so, when you have a new inspiration?
u can create a unique food or a new prescription.
u can create a unique food or a new prescription.
Jangan malu buat berekperimen dan mencoba , sapa tau itu langkah awal buat kamu jadi success...
Mau? Minat? Pengen nyobain juga?
ok check on instagram : decoco.pi
Thank you've read my blog posts
Don't forget to keep to a healthy diet
Remember health is the key to success
Don't forget to keep to a healthy diet
Remember health is the key to success
Link List Pada Delphi
Pada postingan sebelumnya uda di jelaskan apa itu Link List pada pascal
Sekarang gue bakal ngasih kode listingpada delphi
Langsung aja ya berikut source code nya :
Sekarang gue bakal ngasih kode listingpada delphi
Langsung aja ya berikut source code nya :
Contoh Program Link List Toko Bunga pada Pascal menggunkan Gotoxy
LinkedList adalah salah satu bentuk struktur data, berisi kumpulan data
(node) yang tersusun secara sekuensial, saling sambungmenyambung,
dinamis dan terbatas. Dalam ilmu komputer merupakan sebuah struktur data yang digunakan untuk menyimpan sejumlah objek data biasanya secara terurut sehingga memungkinkan penambahan, pengurangan, dan pencarian atas elemen data yang tersimpan dalam senarai dilakukan secara lebih efektif. Pada praktiknya sebuah struktur data memiliki elemen yang digunakan untuk saling menyimpan rujukan antara satu dengan lainnya sehingga membentuk sebuah senarai abstrak, tiap-tiap elemen yang terdapat pada senarai abstrak ini seringkali disebut sebagai node. karena mekanisme rujukan yang saling terkait inilah disebut sebagai senarai berantai.
- Linked List sering disebut juga Senarai Berantai
- Linked List saling terhubung dengan bantuan variabel pointer
- Masing-masing data dalam Linked List disebut dengan node (simpul) yang
menempati alokasi memori secara dinamis dan biasanya berupa struct
yang terdiri dari beberapa field.
Langsung saja ke source codenya,, berikut ini source codenya...
program databunga;
uses crt;
type poinjuk = ^lokasi;
lokasi = record
bunga : string;
nama: string;
banyak: integer;
berikut : poinjuk;
end;
var awal,data,akhir : poinjuk;
f,s,d : integer;
pil,pilih : char;
larik : lokasi;
cari : string;
Procedure menu;
begin
clrscr;
writeln(' ------------------------ Data Toko Bunga -------------------------- ');
writeln(' ------------------------------------------------------------------- ');
writeln;
writeln(' 1. Tambah data pembeli 4. Cari data pembeli ');
writeln(' 2. Tampilkan data pembeli 5. pembelian terbesar dan terkecil');
writeln(' 3. Hapus data 6. Rata-Rata pembelian');writeln;
writeln(' 0. Keluar');
writeln;
writeln(' -------------------------------------------------------------------');
write(' Pilihan : '); readln(pil);
end;
procedure databaru(var baru : poinjuk; namanya : string;bunganya : string; banyaknya : integer);
Begin
new(baru);
baru^.nama:=namanya;
baru^.bunga:=bunganya;
baru^.banyak:=banyaknya;
baru^.berikut:=nil;
end;
procedure tambah;
begin
clrscr;
writeln('------ Masukkan Data Baru ------');
writeln;
repeat
new(data);
write('Nama Pembeli : '); readln(larik.nama);
write('Nama Bunga : '); readln(larik.bunga);
write('Jumlah Beli : '); readln(larik.banyak);
databaru(data,larik.nama,larik.bunga,larik.banyak);
if awal=nil then
begin
awal:=data;
akhir:=data;
end
else
begin
akhir^.berikut:=data;
akhir:=data;
akhir^.berikut:=nil;
end;
writeln;
write('Tambah Data Lagi[Y/T] : ');
readln(pilih);
writeln;
pilih:=upcase(pilih);
until pilih='T';
end;
procedure lihat;
var banyak : integer;
begin
clrscr;
s:=0;
banyak:=0;
data:=awal;
writeln('------------------ Daftar Data Toko Bunga ------------------');
writeln('|----------------------------------------------------------|');
writeln('| No | Nama | Bunga | Jumlah |');
writeln('|----------------------------------------------------------|');
//123456789012345678901234567890123456789012345678901234567890
while data<> nil do
begin
s:=s+1;
gotoxy(1,4+s);
writeln('| | | | |');
gotoxy(3,4+s);
writeln(s);
gotoxy(8,4+s);
writeln(data^.nama);
gotoxy(24,4+s);
writeln(data^.bunga);
gotoxy(51,4+s);
writeln(data^.banyak);
banyak:=banyak+data^.banyak;
data:=data^.berikut;
end;
writeln('|----------------------------------------------------------|');
writeln('| Total bunga dibeli = ',banyak);
readkey;
end;
procedure caridata;
var
terus : boolean;
begin
clrscr;
writeln('--------- Cari Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dicari : ');
readln(cari);
writeln;
data:=awal;
terus:=false;
while (data<>nil) and (terus=false) do
begin
if data^.nama=cari then
begin
terus:=true;
writeln('Nama ',cari,' Ditemukan : ');
writeln('Nama Bunga : ',data^.bunga);
writeln('Jumlah : ',data^.banyak);
end
else
data:=data^.berikut;
end;
if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;
procedure hapus;
var
terus : boolean;
bantu : poinjuk;
begin
clrscr;
writeln('--------- Hapus Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dhapus : ');
readln(cari);
writeln;
data:=awal;
terus:=false;
if data^.nama=cari then
begin
awal:=data^.berikut;
dispose(data);
writeln('Nama ',cari,' Berhasil dihapus ! ');
end
else
begin
while (data<>nil) and (terus=false) do
begin
if data^.berikut^.nama = cari then
begin
terus:=true;
bantu:=data^.berikut;
data^.berikut:=data^.berikut^.berikut;
dispose(bantu);
writeln('Nama ',cari,' Berhasil dihapus ! ');
end;
data:=data^.berikut;
end;
end;
if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;
procedure terbanyakdantersedikit;
var min,max : poinjuk;
begin
clrscr;
data:=awal;
max:=awal;
min:=awal;
while data<>nil do
begin
if max^.banyak < data^.banyak then max:=data;
if min^.banyak > data^.banyak then min:=data;
data:=data^.berikut;
end;
if awal=nil then
writeln('data masih kosong !! ')
else
begin
writeln('Pembeli dengan pembelian terbesar adalah : ',max^.nama);
writeln(' Nama Bunga : ',max^.bunga);
writeln(' Jumlah : ',max^.banyak);
writeln('------------------------------------------------------------');
writeln('Pembeli dengan pembelian terkecil adalah : ',min^.nama);
writeln(' Nama Bunga : ',min^.bunga);
writeln(' Jumlah : ',min^.banyak);
end;
readkey;
end;
procedure rata;
var rata2,rata3 : real;
n : integer;
begin
clrscr;
data:=awal;
rata2:=0;
n:=0;
while data<>nil do
begin
rata2:=rata2+data^.banyak;
n:=n+1;
data:=data^.berikut;
end;
if awal=nil then
writeln('Data Masih Kosong !! ')
else
begin
rata3:=rata2/n;
writeln('Rata-rata pembelian keseluruhan adalah : ',rata3:0:2);
end;
readkey;
end;
BEGIN
repeat
menu;
case pil of
'1' : tambah ;
'2' : lihat ;
'3' : hapus;
'4' : caridata;
'5' : terbanyakdantersedikit;
'6' : rata ;
'0' : exit;
end;
until pil ='0';
END.
Hasil Outputnya :
(node) yang tersusun secara sekuensial, saling sambungmenyambung,
dinamis dan terbatas. Dalam ilmu komputer merupakan sebuah struktur data yang digunakan untuk menyimpan sejumlah objek data biasanya secara terurut sehingga memungkinkan penambahan, pengurangan, dan pencarian atas elemen data yang tersimpan dalam senarai dilakukan secara lebih efektif. Pada praktiknya sebuah struktur data memiliki elemen yang digunakan untuk saling menyimpan rujukan antara satu dengan lainnya sehingga membentuk sebuah senarai abstrak, tiap-tiap elemen yang terdapat pada senarai abstrak ini seringkali disebut sebagai node. karena mekanisme rujukan yang saling terkait inilah disebut sebagai senarai berantai.
- Linked List sering disebut juga Senarai Berantai
- Linked List saling terhubung dengan bantuan variabel pointer
- Masing-masing data dalam Linked List disebut dengan node (simpul) yang
menempati alokasi memori secara dinamis dan biasanya berupa struct
yang terdiri dari beberapa field.
Langsung saja ke source codenya,, berikut ini source codenya...
program databunga;
uses crt;
type poinjuk = ^lokasi;
lokasi = record
bunga : string;
nama: string;
banyak: integer;
berikut : poinjuk;
end;
var awal,data,akhir : poinjuk;
f,s,d : integer;
pil,pilih : char;
larik : lokasi;
cari : string;
Procedure menu;
begin
clrscr;
writeln(' ------------------------ Data Toko Bunga -------------------------- ');
writeln(' ------------------------------------------------------------------- ');
writeln;
writeln(' 1. Tambah data pembeli 4. Cari data pembeli ');
writeln(' 2. Tampilkan data pembeli 5. pembelian terbesar dan terkecil');
writeln(' 3. Hapus data 6. Rata-Rata pembelian');writeln;
writeln(' 0. Keluar');
writeln;
writeln(' -------------------------------------------------------------------');
write(' Pilihan : '); readln(pil);
end;
procedure databaru(var baru : poinjuk; namanya : string;bunganya : string; banyaknya : integer);
Begin
new(baru);
baru^.nama:=namanya;
baru^.bunga:=bunganya;
baru^.banyak:=banyaknya;
baru^.berikut:=nil;
end;
procedure tambah;
begin
clrscr;
writeln('------ Masukkan Data Baru ------');
writeln;
repeat
new(data);
write('Nama Pembeli : '); readln(larik.nama);
write('Nama Bunga : '); readln(larik.bunga);
write('Jumlah Beli : '); readln(larik.banyak);
databaru(data,larik.nama,larik.bunga,larik.banyak);
if awal=nil then
begin
awal:=data;
akhir:=data;
end
else
begin
akhir^.berikut:=data;
akhir:=data;
akhir^.berikut:=nil;
end;
writeln;
write('Tambah Data Lagi[Y/T] : ');
readln(pilih);
writeln;
pilih:=upcase(pilih);
until pilih='T';
end;
procedure lihat;
var banyak : integer;
begin
clrscr;
s:=0;
banyak:=0;
data:=awal;
writeln('------------------ Daftar Data Toko Bunga ------------------');
writeln('|----------------------------------------------------------|');
writeln('| No | Nama | Bunga | Jumlah |');
writeln('|----------------------------------------------------------|');
//123456789012345678901234567890123456789012345678901234567890
while data<> nil do
begin
s:=s+1;
gotoxy(1,4+s);
writeln('| | | | |');
gotoxy(3,4+s);
writeln(s);
gotoxy(8,4+s);
writeln(data^.nama);
gotoxy(24,4+s);
writeln(data^.bunga);
gotoxy(51,4+s);
writeln(data^.banyak);
banyak:=banyak+data^.banyak;
data:=data^.berikut;
end;
writeln('|----------------------------------------------------------|');
writeln('| Total bunga dibeli = ',banyak);
readkey;
end;
procedure caridata;
var
terus : boolean;
begin
clrscr;
writeln('--------- Cari Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dicari : ');
readln(cari);
writeln;
data:=awal;
terus:=false;
while (data<>nil) and (terus=false) do
begin
if data^.nama=cari then
begin
terus:=true;
writeln('Nama ',cari,' Ditemukan : ');
writeln('Nama Bunga : ',data^.bunga);
writeln('Jumlah : ',data^.banyak);
end
else
data:=data^.berikut;
end;
if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;
procedure hapus;
var
terus : boolean;
bantu : poinjuk;
begin
clrscr;
writeln('--------- Hapus Data Pembeli Bunga ---------');
writeln;
write('Nama Pembeli yang ingin dhapus : ');
readln(cari);
writeln;
data:=awal;
terus:=false;
if data^.nama=cari then
begin
awal:=data^.berikut;
dispose(data);
writeln('Nama ',cari,' Berhasil dihapus ! ');
end
else
begin
while (data<>nil) and (terus=false) do
begin
if data^.berikut^.nama = cari then
begin
terus:=true;
bantu:=data^.berikut;
data^.berikut:=data^.berikut^.berikut;
dispose(bantu);
writeln('Nama ',cari,' Berhasil dihapus ! ');
end;
data:=data^.berikut;
end;
end;
if data= nil then writeln('Nama ',cari,' Tidak ditemukan ! ');
readkey;
end;
procedure terbanyakdantersedikit;
var min,max : poinjuk;
begin
clrscr;
data:=awal;
max:=awal;
min:=awal;
while data<>nil do
begin
if max^.banyak < data^.banyak then max:=data;
if min^.banyak > data^.banyak then min:=data;
data:=data^.berikut;
end;
if awal=nil then
writeln('data masih kosong !! ')
else
begin
writeln('Pembeli dengan pembelian terbesar adalah : ',max^.nama);
writeln(' Nama Bunga : ',max^.bunga);
writeln(' Jumlah : ',max^.banyak);
writeln('------------------------------------------------------------');
writeln('Pembeli dengan pembelian terkecil adalah : ',min^.nama);
writeln(' Nama Bunga : ',min^.bunga);
writeln(' Jumlah : ',min^.banyak);
end;
readkey;
end;
procedure rata;
var rata2,rata3 : real;
n : integer;
begin
clrscr;
data:=awal;
rata2:=0;
n:=0;
while data<>nil do
begin
rata2:=rata2+data^.banyak;
n:=n+1;
data:=data^.berikut;
end;
if awal=nil then
writeln('Data Masih Kosong !! ')
else
begin
rata3:=rata2/n;
writeln('Rata-rata pembelian keseluruhan adalah : ',rata3:0:2);
end;
readkey;
end;
BEGIN
repeat
menu;
case pil of
'1' : tambah ;
'2' : lihat ;
'3' : hapus;
'4' : caridata;
'5' : terbanyakdantersedikit;
'6' : rata ;
'0' : exit;
end;
until pil ='0';
END.
Hasil Outputnya :
Semoga Membantu dan bermanfaat
More Info : Visit
Minggu, 07 Juni 2015
Program Penjualanan Menggunakan Record pada Pascal (Consol Aplication)
Pascal yang digunakan pada Delphi yang menggunakan Consol Aplication
Pada contoh program ini gue bakalan berbagi info tentang listing/koddingan program yang menggunakan tipe data berupa :
1. Array
2. Record
3. Procedure
4. Function
Berikut listing programnya :
program FP_Penjualan;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type Kasir = record
no_trans, tgl, nama, nm_brg : String[25];
kd_brg, jml : integer;
hrg, tot : real;
End;
Data = Array [1..100] of Kasir;
{Procedure unutk menampilkan judul}
Procedure judul;
begin
Writeln(' IF IPHONE SHOP ');
Writeln(' Jl.Srijaya Negara Bukit Besar Palembang ');
end;
Procedure menu;
begin
Writeln('==========================================');
Writeln;
Writeln (' Data Barang dan harga ');
Writeln('==========================================');
writeln;
Writeln ('1. Iphone 6 Rp. 11000000 ');
Writeln ('2. Iphone 6+ Rp. 12000000');
Writeln ('3. Iphone 5+ Rp. 6500000');
Writeln ('4. Iphone 5C Rp. 5500000');
Writeln ('5. Iphone 4S Rp. 2000000');
Writeln ('6. Iphone 4G Rp. 1800000');
Writeln ('7. Iphone 3GS Rp. 1000000');
Writeln ('8. Iphone 3G Rp. 800000');
end;
{Procedur Inpu data}
Procedure Input1 (var n : integer);
begin
Write ('Masukkan banyak data : '); readln (n);
writeln;
end;
Procedure form;
begin
writeln;
writeln(' Form Transaksi ');
writeln;
end;
Procedure Input2 (n : integer; var jual : Data);
var
i:integer;
begin
for i:= 1 to n do
begin
Writeln('Data Ke-',i);
Writeln;
begin
Write('No Transaksi : ');Readln(jual[i].no_trans);
Write('Tanggal : ');Readln(jual[i].tgl);
Write('Nama Pembeli : ');Readln(jual[i].nama);
Write('Kode Barang : ');Readln(jual[i].kd_brg);
Write ('Jumlah Beli : ');Readln(jual[i].jml);
end;
writeln;
end;
end;
{Procedure Proses perhitngan perulangan percabangan dan perulangan}
procedure proses (n : integer; var jual : data);
var
i : integer;
begin
for i:= 1 to n do
if jual[i].kd_brg = 1 then
begin
jual[i].nm_brg :='Iphone 6';
jual[i].hrg :=11000000;
end
else
if jual[i].kd_brg = 2 then
begin
jual[i].nm_brg :='Iphone 6+';
jual[i].hrg :=12000000;
end
else
if jual[i].kd_brg = 3 then
begin
jual[i].nm_brg :='Iphone 5+';
jual[i].hrg :=6500000;
end
else
if jual[i].kd_brg = 4 then
begin
jual[i].nm_brg :='Iphone 5C';
jual[i].hrg :=5500000;
end
else
if jual[i].kd_brg = 5 then
begin
jual[i].nm_brg :='Iphone 4S';
jual[i].hrg :=2000000;
end
else
if jual[i].kd_brg = 6 then
begin
jual[i].nm_brg :='Iphone 4G';
jual[i].hrg :=1800000;
end
else
if jual[i].kd_brg = 7 then
begin
jual[i].nm_brg := 'Iphone 3GS';
jual[i].hrg := 1000000;
end
else
if jual[i].kd_brg = 8 then
begin
jual[i].nm_brg := 'Iphone 3G';
jual[i].hrg := 800000;
end;
end;
procedure hitung1 (n : integer; var jual : Data);
var
i : integer;
begin
for i:= 1 to n do
begin
jual[i].tot:=jual[i].jml*jual[i].hrg;
end;
end;
function hitung2 (n : integer; jml_penjualan : real; jual : data ) : real;
var
i: integer;
begin
for i:= 1 to n do
jml_penjualan:=jml_penjualan+jual[i].tot;
hitung2:=jml_penjualan;
end;
procedure kolom;
begin
Writeln('============ Cetak Transaksi =============');
Writeln('==========================================');
end;
{Procedure Output}
procedure output (n : integer; jual : Data);
var
i : integer;
begin
For i := 1 to n do
begin
write(i);
Writeln(' No Transaksi : ',jual[i].no_trans);
Writeln(' Tgl : ',jual[i].tgl);
Writeln(' Nama Pembeli : ',jual[i].nama);
Writeln(' Nama Barang : ',jual[i].nm_brg);
Writeln(' Harga : ',jual[i].hrg:0:0);
Writeln(' Jumlah : ',jual[i].jml);
Writeln(' Total Harga : ',jual[i].tot:0:0);
writeln;
end;
end;
Procedure output2 ( n : integer; jml_penjualan : real);
begin
Writeln('==========================================');
Writeln('Jumlah Transaksi : ', n);
Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);
writeln;
End;
Var
jual : Data;
n: Integer;
jml_penjualan : real;
{Program Utama}
begin
{ TODO -oUser -cConsole Main : Insert code here }
judul;
menu;
Writeln;
input1 (n);
form;
input2 (n,jual);
proses (n,jual);
hitung1 (n,jual);
jml_penjualan:= hitung2 (n,jml_penjualan,jual);
Writeln;
Judul;
writeln;
Kolom;
output (n,jual);
output2 (n,jml_penjualan);
readln;
end.
Hasil Outputnya
Pada contoh program ini gue bakalan berbagi info tentang listing/koddingan program yang menggunakan tipe data berupa :
1. Array
2. Record
3. Procedure
4. Function
Berikut listing programnya :
program FP_Penjualan;
{$APPTYPE CONSOLE}
uses
SysUtils;
Type Kasir = record
no_trans, tgl, nama, nm_brg : String[25];
kd_brg, jml : integer;
hrg, tot : real;
End;
Data = Array [1..100] of Kasir;
{Procedure unutk menampilkan judul}
Procedure judul;
begin
Writeln(' IF IPHONE SHOP ');
Writeln(' Jl.Srijaya Negara Bukit Besar Palembang ');
end;
Procedure menu;
begin
Writeln('==========================================');
Writeln;
Writeln (' Data Barang dan harga ');
Writeln('==========================================');
writeln;
Writeln ('1. Iphone 6 Rp. 11000000 ');
Writeln ('2. Iphone 6+ Rp. 12000000');
Writeln ('3. Iphone 5+ Rp. 6500000');
Writeln ('4. Iphone 5C Rp. 5500000');
Writeln ('5. Iphone 4S Rp. 2000000');
Writeln ('6. Iphone 4G Rp. 1800000');
Writeln ('7. Iphone 3GS Rp. 1000000');
Writeln ('8. Iphone 3G Rp. 800000');
end;
{Procedur Inpu data}
Procedure Input1 (var n : integer);
begin
Write ('Masukkan banyak data : '); readln (n);
writeln;
end;
Procedure form;
begin
writeln;
writeln(' Form Transaksi ');
writeln;
end;
Procedure Input2 (n : integer; var jual : Data);
var
i:integer;
begin
for i:= 1 to n do
begin
Writeln('Data Ke-',i);
Writeln;
begin
Write('No Transaksi : ');Readln(jual[i].no_trans);
Write('Tanggal : ');Readln(jual[i].tgl);
Write('Nama Pembeli : ');Readln(jual[i].nama);
Write('Kode Barang : ');Readln(jual[i].kd_brg);
Write ('Jumlah Beli : ');Readln(jual[i].jml);
end;
writeln;
end;
end;
{Procedure Proses perhitngan perulangan percabangan dan perulangan}
procedure proses (n : integer; var jual : data);
var
i : integer;
begin
for i:= 1 to n do
if jual[i].kd_brg = 1 then
begin
jual[i].nm_brg :='Iphone 6';
jual[i].hrg :=11000000;
end
else
if jual[i].kd_brg = 2 then
begin
jual[i].nm_brg :='Iphone 6+';
jual[i].hrg :=12000000;
end
else
if jual[i].kd_brg = 3 then
begin
jual[i].nm_brg :='Iphone 5+';
jual[i].hrg :=6500000;
end
else
if jual[i].kd_brg = 4 then
begin
jual[i].nm_brg :='Iphone 5C';
jual[i].hrg :=5500000;
end
else
if jual[i].kd_brg = 5 then
begin
jual[i].nm_brg :='Iphone 4S';
jual[i].hrg :=2000000;
end
else
if jual[i].kd_brg = 6 then
begin
jual[i].nm_brg :='Iphone 4G';
jual[i].hrg :=1800000;
end
else
if jual[i].kd_brg = 7 then
begin
jual[i].nm_brg := 'Iphone 3GS';
jual[i].hrg := 1000000;
end
else
if jual[i].kd_brg = 8 then
begin
jual[i].nm_brg := 'Iphone 3G';
jual[i].hrg := 800000;
end;
end;
procedure hitung1 (n : integer; var jual : Data);
var
i : integer;
begin
for i:= 1 to n do
begin
jual[i].tot:=jual[i].jml*jual[i].hrg;
end;
end;
function hitung2 (n : integer; jml_penjualan : real; jual : data ) : real;
var
i: integer;
begin
for i:= 1 to n do
jml_penjualan:=jml_penjualan+jual[i].tot;
hitung2:=jml_penjualan;
end;
procedure kolom;
begin
Writeln('============ Cetak Transaksi =============');
Writeln('==========================================');
end;
{Procedure Output}
procedure output (n : integer; jual : Data);
var
i : integer;
begin
For i := 1 to n do
begin
write(i);
Writeln(' No Transaksi : ',jual[i].no_trans);
Writeln(' Tgl : ',jual[i].tgl);
Writeln(' Nama Pembeli : ',jual[i].nama);
Writeln(' Nama Barang : ',jual[i].nm_brg);
Writeln(' Harga : ',jual[i].hrg:0:0);
Writeln(' Jumlah : ',jual[i].jml);
Writeln(' Total Harga : ',jual[i].tot:0:0);
writeln;
end;
end;
Procedure output2 ( n : integer; jml_penjualan : real);
begin
Writeln('==========================================');
Writeln('Jumlah Transaksi : ', n);
Writeln('Jumlah Penjualan : Rp.',jml_penjualan:0:0);
writeln;
End;
Var
jual : Data;
n: Integer;
jml_penjualan : real;
{Program Utama}
begin
{ TODO -oUser -cConsole Main : Insert code here }
judul;
menu;
Writeln;
input1 (n);
form;
input2 (n,jual);
proses (n,jual);
hitung1 (n,jual);
jml_penjualan:= hitung2 (n,jml_penjualan,jual);
Writeln;
Judul;
writeln;
Kolom;
output (n,jual);
output2 (n,jml_penjualan);
readln;
end.
Hasil Outputnya
Semoga membantu
Langganan:
Postingan (Atom)