Tugas Kampus Ku
Tugas Kampus untuk DosenKu Mr. Muhamad Danuri, M.Kom
TUGAS MENGHITUNG GAJI SENDIRI
+26
yanti dka 2.2
sofie_anna
efti nur hidayati
endang zuniroh KA 3
arum jatiningsih
hanik maria
asih_jumiatun
Nuranisah Dka_2.2
yu'un
sri yantiningsih
siti_rukayah
maesaroh
fenti senia seli
Fahrudin Wahyu Ramadhani
wury
Lina Nur Astuti
husnulkhotimah
shella dwi cahyani
Laras Setyaningrum
Ani Sulandarwanti
aniksulistyowati
Siti Rofiah wija
sri sulistiyowatie
ambarwati
Nurjanah KA 4.3
admin
30 posters
Pilih halaman : 
1, 2
Message [Halaman 2 dari 2]
29 Tugas Kaping Kaleh.. Sat Apr 20, 2013 10:32 pm
febriana dewi s
Assalamualaikum..
febriana dewi saputri
dka 2.3 12020982
Maturnuwun Sanget
Wassalam
febriana dewi saputri dka 2.3 12020982 Maturnuwun Sanget
Wassalam
FUASIYAH 
12021008 
DKA 2.2 
31 contoh gaji dengan bingkai Sun May 19, 2013 11:10 am
admin
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,
;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,;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.
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,
;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,
;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.
Message [Halaman 2 dari 2]
Pilih halaman : 1, 2
Tugas Kampus Ku » Kuliah Semester Genap 2012/2013 » Pemrograman TErstruktur Non Reg 10.30 » TUGAS MENGHITUNG GAJI SENDIRI
Similar topics
Permissions in this forum:
Anda tidak dapat menjawab topik
|
|
|