ADI GUNAWAN BIRUN (AGB)

DAFTAR NAMA-NAMA YANG BERUNTUNG DI MAS DEPAN

Diposting oleh Unknown

SELAMAT MELIHAT SEMUA YANG INGIN ANDA LIHAT

Hay semua para pengunjung blogku. . . Pertama saya ucapkan terima kasih banyak tapi gak banyak banyak sihh, hehehe
Baiklah saya menyapa buat semua teman-teman dimanapun kalian berda yang sedang membaca artikel yang saya bagikan ini,
semoga semuanya sehat-sehat saja tentunya. Buat yang lagi beraktifitas selamat beraktifitas, buat yang lagi bersantai selamat bersantai buat anda,
dan yang lagi jalan-jalan selamat berjalan-jalan semoga dengan jalan-jalan kaki anda semua menjadi bengkak, hehehehe kok bengkak,,, maksud saya
menjadi langkah yang dapat menghilangkan stres dalam fikiran anda.. hahaha siip siip jadi kayak nyiar radio ajah!!!

Okay guy's, dari pada ngomomng panjang lebar saya akan memposting tentang daftar nama-nama yang akan mendapat keberuntungan di masa depan
.. heheh semoga tabel ini bisa membuat nilai saya bagus di PAK AKBAR NURDIN, S.Si tentunya dosen kita yang tampan dan muda guys.. hehehe pisss

10 DAFTAR NAMA YANG AKAN MENJADI ORANG SUKSES DI MASA DEPAN

NO	NAMA	NIM	ALAMAT
1	ADI GUNAWAN BIRUN	MI 12017	KOTA LAMA
2	MUHAMMAD SULHAN	MI 12009	KONDA
3	MILWAN	MI 12016	TORONIPA VILLAGE
4	PANDI AKBAR	MI 12008	WATUMARUGA ANDONOHU
5	SILVIRANI ADE	MI 12029	SAO-SAO
6	TAUFIK HIDAYAT	MI 12019	KASILAMPE
7	NENENG KUMALA	MI 12013	TALIA
8	NI KOMANG LILIS	MI 12001	PERUMNAS
9	ISNANTO BOSAKRIN	MI 12031	BENU-BENUA
10	MULYADI	MI 12023	MANGGA DUA

PROGRAM ATM STANDAR DENGAN PASCAL

Diposting oleh Unknown

SELAMAT MEMBACA TUTORIALKU INI . . .Okay Semuanya. . .

langsung saja yahh buat para calon programmer pemula seperti saya... wkwkwkwkw

kali ini saya akan memposting contoh program sederhana ATM yang menggunbkan bahasa Pascal...

memang pascal adalah bahasa pemrograman yang udah tua banget, tapii dengan adanya pascal kita bisa melatihh menguatkan loggika kita dalam membuat suatu program lanjutan seperti di vb, delphi dan yang lainnya. . .

Okay mas n mba brow, ini listingnya yang saya buat semalaman. . .

program buat_atm;

uses wincrt;

label a,b,c,d,e,f,g,h,k;

var

ma: string;

t: char;

pil,pin: byte;

uang,ing,i: longint;

begin

gotoxy(16,2);writeln('SELAMAT DATANG DI PROGRAM ATM');

GOTOXY(16,3);WRITELN(' MANAJEMEN INFORMATIKA ');

writeln('==========================================================');

writeln;

write('Inputkan Huruf Y Untuk Menggunkan Program ATM Ini : ');readln(t);

if (t='y') or (t='Y') then

goto a

else

writeln;

clrscr;

writeln('Saldos What You Have Is Rp. 134.800.000,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

clrscr;

writeln('Saldo Yang Anda Miliki Adalah Rp. 30.000.800,00');

writeln('*************************************************');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

clrscr;

gotoxy(12,2);writeln('MENTION YOUR TOTAL WAHAT WILL YOU TAKE');

writeln('------------------------------------------------------------');

write('MENTION MONEY TOTAL WHAT WILL TAKE : ');readln(uang);

for i:= 10000 to uang do write(i:5);

clrscr;

gotoxy(12,2);writeln(' Please Take Your Money');

gotoxy(12,3);writeln('Thank You Has Used Our Service');

writeln;

writeln('----------------------------------------------------------');

write('Want To Transaction Again Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

clrscr;

gotoxy(12,2);writeln(' Please Wait a Few Minute!');

gotoxy(12,3);writeln('Please Take Your Money. Thank You ^_^');

writeln;

writeln('----------------------------------------------------------');

write('Want To Transaction Again Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

clrscr;

gotoxy(12,2);writeln(' Mohon Tunggu Beberapa Menit!');

gotoxy(12,3);writeln('Silahkan Ambil Uang Anda . Terima Kasih ^_^');

writeln;

writeln('----------------------------------------------------------');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

clrscr;

gotoxy(12,2);writeln('MASUKKAN JUMLAH UANG YANG ANDA AKAN AMBIL');

writeln('------------------------------------------------------------');

write('Masukkan Jumlah Uang Yang Akan Diambil : ');readln(uang);

for i:= 10000 to uang do write(i:5);

clrscr;

gotoxy(12,2);writeln(' Silahkan Ambil Uang Anda');

gotoxy(12,3);writeln('Terima kasih Telah Menggunakan Layanan Kami');

writeln;

writeln('----------------------------------------------------------');

write('Ingin Transaksi Lagi Y/T : ');readln(t);

IF (t='Y') or (t='y') then

goto a

else

writeln;

begin

clrscr;

gotoxy(12,2);writeln('PLEASE CHOOSE THESE ITEM');

writeln('=================================================');

writeln;

writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Your Saldo');

writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Other Transaction');

writeln('3. Rp. 250.000');

writeln('4. Rp. 1.000.000');

writeln('5. Rp. 2.000.000');

writeln('6. Rp. 3.000.000');

writeln('--------------------------------------------------------------');

writeln;

write('PLEASE INPUT YOUR CHOOSE 1/2/3/4/5/6 : ');readln(ing);

if (ing=1) or (ing=2) or (ing=3)or (ing=4) or (ing=5) or (ing=6) then

goto f

else

if ing= 8 then

goto g

else

if ing= 7 then

goto h

end;

begin

clrscr;

gotoxy(12,2);writeln('SILAHKAN MASUKKAN PILIHAN ANDA');

writeln('=================================================');

writeln;

writeln('1. Rp. 100.000'); gotoxy(22,5);writeln('7. Info Saldo Anda');

writeln('2. Rp. 200.000'); gotoxy(22,6);writeln('8. Transaksi Lain');

writeln('3. Rp. 250.000');

writeln('4. Rp. 1.000.000');

writeln('5. Rp. 2.000.000');

writeln('6. Rp. 3.000.000');

writeln('--------------------------------------------------------------');

writeln;

write('Silahkan Input Pilihan Anda 1/2/3/4/5/6 : ');readln(uang);

if (uang=1) or (uang=2) or (uang=3)or (uang=4) or (uang=5) or (uang=6) then

goto e

else

if uang=8 then

goto d

else

if uang= 7 then

goto k

end;

clrscr;

gotoxy(12,2);writeln('.....SELAMAT DATANG DI.....');

gotoxy(12,3);writeln('....ATM BANK BRI KENDARI....');

WRITELN('***************************************************************');

writeln;

write('MASUKKAN KARTU ATM ANDA ');readln(ma);

clrscr;

gotoxy(12,2);writeln('---------MASUKKAN PIN ATM ANDA--------- ');

gotoxy(12,3);writeln('------------YOUR ATM"S PIN--------------');

writeln('*****************************************************************');

write('PIN ANDA : ');readln(pin);

clrscr;

gotoxy(12,2);writeln('SILAHKAN PILIH BAHASA YANG INGIN ANDA GUNAKAN');

Gotoxy(12,3);writeln(' CHOOSE YOUR LANGUAGE ');

writeln('===========================================================');

writeln;

writeln('1. Bahasa Indonesia');

writeln('2. English Language');

writeln('===========================');

writeln;

write('Masukkan Pilihan Anda 1 / 2 : ');readln(pil);

if pil = 1 then

goto b

else

if pil= 2 then

goto c

end.

Semoga bermanfaat ki'nah. . . . .

CARA MEMBUAT PEMBAGIAN GAJI DENGAN PASCAL

Diposting oleh Unknown

Okay sobat calon progammer. . . . . . .
Kali ini saya akan membagi lagi tugas pascal yang berfungsi utuk menentukan gaji pegawai. . . . dan langsung ke TKP yah. . . .

Buka TPW kalian dan copylah listing program berikut:

program hitung_gaji;
uses wincrt;
var
n,j : string;
g: real;
t,p,tg: real;
begin
clrscr;
gotoxy(9,2);writeln('PROGRAM PEMBAGIAN GAJI');
writeln('------------------------------------------------------------------');
writeln;
write('Nama Pegawai             : ');readln(n);
write('Jabatan                  : ');readln(j);
if (j='direktur') or (j='DIREKTUR') then
begin
g             := 3000000;
t             := 0.1 * g;
end
else if (j='manager') or (j='MANAGER') then
begin
g             := 2000000;
t             := 0.05 * g;
end
else if (j='karyawan') or (j='KARYAWAN') then
begin
g             := 1000000;
t             := 0.1 * g;
end
else if (j='ob') or (j='OB') then
begin
g             := 800000;
t             := 0.1 * g;
end;
writeln('Gaji Bersih                      : Rp.',g:2:2);
writeln('Tunjangan Pegawai                : Rp.',t:2:2);
p             := 0.1 * g;
writeln('PPN 10 %                         : Rp.',p:2:2);
writeln('                                  ----------------');
writeln;
tg            :=(g+t)-p;
WRiteln('Gaji Yang Diterima               : Rp.',tg:2:2);
end.

Hasil output programnya:

Semoga bermanfaat yah. . . . . .

PEMBUATAN PROGRAM MEMBAGI BONUS PADA PASCAL

Diposting oleh Unknown

Hay semua teman-teman calon progammer yang profesional. . . wkwkwkwkwkwwk

Kali ini saya akan membagikan hasil pemikiran logikaku, namun terus terang program ini belum sempurna, oleh sebab itu bagi yang sudah sempurna programnya,,, mohon di share yah,,,, kalo punya ilmu kan baiknya kita saling berbagi. . . . hahahahaha,

Ini adalah percobaan saya dalam membuat listing untuk mengeluarkan output perhitungan bonus. Mudah-mudahhan bermanfaat buat semua. . . . .

Oke deh langsung ke TKP :

- Buka Program Turbo Pascal kalian kemudian buka halaman baru untuk membuat programnya dan masukkan listing yang saya gunakan berikut

PROGRAM bonus;

uses wincrt;

var

l,u,b: integer;

begin

gotoxy(10,2);writeln('PROGRAM PEMBAGIAN BONUS');

writeln('******************************************************');

writeln;

writeln('1. PEGAWAI STAF');

writeln('------------------');

write('Lama Bekerja : ');Readln(l);

write('Umur : ');readln(u);

write('Bonus : Rp.');

if l >=5 then

writeln('1.000.000')

else

if u >= 50 then

writeln('1.000.000')

else

writeln('500.000');

writeln;

begin

writeln('2. PEGAWAI STAF');

writeln('------------------');

write('Lama Bekerja : ');Readln(l);

write('Umur : ');readln(u);

write('Bonus : Rp.');

if l >=5 then

writeln('750.000')

else

if u >= 50 then

writeln('750.000')

else

writeln('250.000')

end;

end.

Dan nanti Hasil outputnya adalah :

Penjelasan...

- Program adalah judul yg kita gunakan untuk program kita,

- Uses wincrt adalah syarat penulisan suatu program pascal yang dimana usernya menggunakan sistem operasi windows.

- Var adalah tipe data yang kita gunakan(identifier).

Contohnya : var

L,u,b :integer;

Contoh dalam program ini yaitu : l,u,b : integer

- Write adalah perintah pada output nanti dengan memasukkan data atau nilai secara manual

Contoh pada programku ‘write(‘Lama Bekerja :’);readln(l)

- Readln digunakan untuk membaca tipe data apa yang kita pakai pada var contohnya

Readln(l) seperti yang da pada pada var

- Writeln adalah perintah untuk langsung menampilkan output yg sesuai dengan apa yang kita buat di listing kode pascalnya.

Contoh : writeln(‘AKU ORANG GANTENG’) maka nanti langsung muncul tlisan itu tanpa bisa diedit ulang.

Oke dehh.... mungkin cukup ini dulu yang dapat saya berikan... untuk minta penjelasan yang lebih detail langsung hubngi sya ajah... saya siap membantu kok kalo lagi gak sibuk... males kalo mau nulis semuanya di blog... capekkk ngetikkk....

Bye bye. . . . . . . .