Tugas Kampus untuk DosenKu Mr. Muhamad Danuri, M.Kom


You are not connected. Please login or register

TUGAS MENGHITUNG GAJI SENDIRI

Pilih halaman : Previous  1, 2

Topik sebelumnya Topik selanjutnya Go down  Message [Halaman 2 dari 2]

26 efti_12020958 Tugas_2 on Sun Apr 14, 2013 4:23 pm




Lihat profil user

27 Re: TUGAS MENGHITUNG GAJI SENDIRI on Sun Apr 14, 2013 9:26 pm





Lihat profil user

28 Re: TUGAS MENGHITUNG GAJI SENDIRI on Mon Apr 15, 2013 10:17 pm

Program



Hasil


Lihat profil user

29 Tugas Kaping Kaleh.. on Sat Apr 20, 2013 10:32 pm

Assalamualaikum..
geek geek geek geek geek geek What a Face What a Face What a Face What a Face What a Face What a Face What a Face
affraid febriana dewi saputri affraid
lol! dka 2.3 12020982 lol!




Maturnuwun Sanget
Wassalam

Lihat profil user

30 TUGAS MENGHITUNG GAJI on Sun Apr 21, 2013 10:52 am

Smile FUASIYAH Laughing Shocked
I love you cyclops 12021008 Shocked
Razz DKA 2.2 Very Happy




Lihat profil user

31 contoh gaji dengan bingkai on Sun May 19, 2013 11:10 am

admin

avatar
Admin
PROGRAM GAJIKU;
USES WINCRT;

VAR
GAPOK : LONGINT;
LBR : LONGINT;
POT : LONGINT;
TUNJ : LONGINT;
TOTAL : LONGINT;

BEGIN
{INPUT}
GAPOK := 2500000;
LBR := 1250000;
POT := 25000;
TUNJ := 750000;

{PROSES}
TOTAL:=GAPOK+LBR+TUNJ-POT;

{OUTPUT}
gotoxy(5,5);WRITELN('**********************************************');
gotoxy(5,6);WRITELN('** **');
gotoxy(5,7);WRITELN('** **');
gotoxy(5,Cool;WRITELN('** **');
gotoxy(5,9);WRITELN('** **');
gotoxy(5,10);WRITELN('** **');
gotoxy(5,11);WRITELN('** **');
gotoxy(5,12);WRITELN('** **');
gotoxy(5,13);WRITELN('** **');
gotoxy(5,14);WRITELN('**********************************************');


gotoxy(15,6);WRITELN(' MENGHITUNG GAJI');
gotoxy(15,7);WRITELN('============================');
gotoxy(15,Cool;WRITELN(' GAJI POKOK = ' , GAPOK);
gotoxy(15,9);WRITELN(' LEMBUR = ' , LBR);
gotoxy(15,10);WRITELN(' TUNJANGAN = ' , TUNJ);
gotoxy(15,11);WRITELN(' POTOTNGAN = ' , POT);
gotoxy(15,12);WRITELN('============================');
gotoxy(15,13);WRITELN(' TOTAL GAJINYA = ' , TOTAL);

END.

Lihat profil user http://tugasku.netgoo.org

32 Diyah Ayu Anggraeni s 12020955 DKA 2.2 on Sun Jun 16, 2013 10:36 am







Lihat profil user

Sponsored content


Topik sebelumnya Topik selanjutnya Kembali Ke Atas  Message [Halaman 2 dari 2]

Pilih halaman : Previous  1, 2

Permissions in this forum:
Anda tidak dapat menjawab topik