Blog Suka-Suka: 1/13/13

Thursday, January 17, 2013

membuat program barang di pascal

program barang;
uses crt;
var
nBarang : string;
cBarang,TTL,JMLH,uByr,KBL : real;
HRG : integer;
begin
clrscr;
gotoxy(4,3); write('kode barang = '); readln(cBarang);
gotoxy(4,4); write('nama barang = '); readln(nBarang);
gotoxy(4,5); write('harga = '); readln(HRG);
gotoxy(4,6); write('jumlah beli = '); readln(JMLH);
TTL := (HRG * JMLH);
gotoxy(4,7); write('TOTAL = ', TTL:0:0);
gotoxy(4,10); write ('Uang bayar = '); readln(uByr);
KBL := (uByr - TTL);
gotoxy(4,12); write('Uang kembali = ', KBL:9:2);
readln
end.

membuat program gaji kariawan di pascal

Uses crt;
Var
nama:string[20];jabatan:string;
Gaji:longint;
Tunj,ppn,Total,gajibersih:real;
Begin
Clrscr;
Write( 'Nama Karyawan : '); readln(nama);
Write('Masukkan Jabatan : '); readln(jabatan);
If (jabatan='Direktur') or (jabatan='direktur') then
Begin
Gaji:=3000000;
Tunj:=0.1* gaji;
End
Else If (jabatan='Manager') or (jabatan='manager') then
Begin
Gaji:=2000000;
Tunj:=0.01* gaji;
End
Else If (jabatan='Karyawan') or (jabatan='karyawan') then
Begin
Gaji:=1000000;
Tunj:=0.1* gaji;
End
Else
Begin
Gaji:=800000;
Tunj:=0.1* gaji;
End;

Writeln('Gaji Bersih : Rp.',gaji);
Writeln('Tunjangan Jabatan : Rp.',tunj:9:2);
Ppn:=0.2*gaji;
Writeln('PPN 10 % : Rp.',ppn:9:2);
Total:=gaji+total;
Writeln('Total Gaji : Rp.',total:9:2);
Readln
End.

memmbuat program barang di xbase

DO WHILE .T.

CLEAR

cBrg = SPACE(10)

cNbrg = SPACE(20)

cHrg = SPACE(8)

STORE SPACE(6) to cJbli

STORE 0 TO nTtl=cHrg*cJbli

@ 1,4 SAY "Kode Barang : "GET cBrg

@ 2,4 SAY "Nama Barang : "GET cNbrg

@ 3,4 SAY "Harga : "GET cHrg

@ 4,4 SAY "Jumlah Beli : "GET cJbli

READ

@ 9,27 SAY "PT.TURUN NAIK"

@ 11,30 SAY "NOTA BAYAR"

@ 12,30 SAY "==========================="

@ 14,3 SAY " No. Barang : "+UPPER (cBrg)

@ 15,3 SAY " Nama Barang : "+UPPER (cNbrg)

@ 16,3 SAY " Harga : "+UPPER (cHrg)

@ 17,3 SAY " Jumlah Beli : "+UPPER (cJbli)

cTtl = cHrg*cJbli

@ 18,3 SAY "Total : "(cTtl)

@ 19,25 SAY " Uang Bayar : GET cByr

@ 20,3 SAY "uang kembali : "(cBlk)

cBlk = cByr - Ttl

@ 21,3 SAY cBlk PICT "99,999,999"

cLagi = " "

@ 7,50 SAY " mau proses lagi ? [y/t] " GET cLagi

READ

IF UPPER (cLagi) = "T"

CLEAR

@ 11,30 SAY " - THANK YOU - "

EXIT

ENDIF

ENDDO

membuat program score di xbase

CLEAR
@ 1,0 TO 23,79
@ 2,10 TO 22,10
I = 14
DO WHILE I < 77
@ 3,I TO 22,I
I = I+4
ENDDO
I = 3
DO WHILE I< 23
@ I,1 TO I,78
I = I + 2
ENDDO
@ 22,1 SAY "Total"
@ 2,75 SAY "Tot"
@ 2,3 SAY "SISWA"
I = 1
X = 12
DO WHILE I < 17
@ 2,X SAY LTRIM(STR(I))
I = I + 1
X = X + 4
ENDDO
I = 4
DO WHILE I < 21
cNama = SPACE(9)
@ I,1 GET cNama PICT "!!!!!!!!!!"
READ
I = I + 2
ENDDO
I = 1
Y = 12
STORE 0 TO nT1,nT2,nT3,nT4,nT5,nT6,nT7,nT8,nT9
DO WHILE Y < 75
X = 4
nJum = 0
DO WHILE X < 21
cNil = "0"
@ X,Y GET cNil
READ
IF cNil = "1" THEN
nJum = nJum + 1
DO CASE
CASE X = 4
nT1 = nT1 + 1
CASE X = 6
nT2 = nT2 + 1
CASE X = 8
nT3 = nT3 + 1
CASE X = 10
nT4 = nT4 + 1
CASE X = 12
nT5 = nT5 + 1
CASE X = 14
nT6 = nT6 + 1
CASE X = 16
nT7 = nT7 + 1
CASE X = 18
nT8 = nT8 + 1
CASE X = 20
nT9 = nT9 + 1
ENDCASE
ENDIF
X = X + 2
ENDDO
@ X,Y SAY LTRIM(STR(nJum))
Y = Y + 4
ENDDO
@ 4,76 SAY LTRIM(STR(nT1))
@ 6,76 SAY LTRIM(STR(nT2))
@ 8,76 SAY LTRIM(STR(nT3))
@ 10,76 SAY LTRIM(STR(nT4))
@ 12,76 SAY LTRIM(STR(nT5))
@ 14,76 SAY LTRIM(STR(nT6))
@ 16,76 SAY LTRIM(STR(nT7))
@ 18,76 SAY LTRIM(STR(nT8))
@ 20,76 SAY LTRIM(STR(nT9))
READ

Sunday, January 13, 2013

membuat program gaji dengan exbase

DO WHILE .T.
CLEAR
STORE 0 TO nAnak, nGaji, nLembur
cNip = SPACE(5)
STORE SPACE(35) TO cNama, cJab
cStat = SPACE(2)
@ 1,4 SAY "Nomor Pegawai : " GET cNip
@ 2,4 SAY "Nama Pegawai : " GET cNama
@ 3,4 SAY "Jabatan : " GET cJab
@ 4,4 SAY "sTatus (S/K/J/D): " Get cStat
READ
cStat = UPPER (cStat)
IF cStat = "K" .OR.cStat = "J" .OR. cStat = "D" THEN
@ 4,30 SAY "Jumlah Anak : " GET nAnak
ENDIF

@ 5,4 SAY "Gaji Pokok : " GET nGaji
@ 6,4 SAY "Jam Lembur : " GET nLembur
READ
@ 8,1 TO 23,78 DOUBLE
@ 10,2 TO 10,77
SET COLOR TO G+
@ 9,27 SAY "PT. MAHAKAM INDAH PERMAI"
@ 11,30 SAY "SLIP GAJI KARYAWAN"
SET COLOR TO
@ 12,30 SAY "=================="
@ 14,3 SAY "Nomor Induk Pegawai : "+UPPER (cNip)
@ 15,3 SAY "Nama Pegawai : "+UPPER (cNama)
@ 16,3 SAY "Jabatan : "+UPPER (cJab)
IF cStat = "K" THEN
cSK = "Kawin"
nTjk = 100000 + 50000 * nAnak
else
IF cStat = "J" THEN
cSK = "Janda"
nTjk = 200000 + 50000 * nAnak
else
IF cStat = "D" THEN
cSK = "Duda"
nTjk = 150000 + 50000 * nAnak
ELSE
IF cStat = "S"
cSK = "Singe"
nTjk= 100000
ELSE
cSK = "Tidak Jelas"
nTjk = 0
ENDIF
ENDIF
ENDIF
ENDIF
@ 17,3 SAY "Status Keluarga : "+cSK
nUlemb = nLembur * nGaji / 173
nInsentif = 0.25 * (nGaji + nTjk + nUlemb)
nTHP = nGaji + nTjk + nUlemb + nInsentif
nTHPS= nTHP * 12
IF nTHPS > 50000000
nPPH=0.3*(nTHPS-500000000)+0.25*250000000+0.15
*200000000+0.05*50000000
ELSE
IF nTHPS > 250000000
nPPH=0.25*(nTHPS-250000000)+0.15*200000000+0.05*50000000
ELSE
IF nTHPS > 50000000
nPPH = 0.15*(nTHPS-50000000)+0.05*50000000
ELSE
nPPH = 0.05 * nTPHS
ENDIF
ENDIF
ENDIF
nPPhb = nPPh/12
nTP = nTHP-nPPhb
@ 19,3 SAY "Gaji Pokok : Rp"
@ 20,3 SAY "Tunjangan Keluarga : Rp"
@ 21,3 SAY "Upah Lembur : Rp"
@ 19,41 SAY "Insentif : Rp"
@ 20,41 SAY "THP : Rp"
@ 21,41 SAY "pajak per bulan : Rp"
@ 22,41 SAY "TP : Rp"
@ 19,28 SAY nGaji PICT "99,999,999"
@ 20,28 SAY nTjk PICT "99,999,999"
@ 21,28 SAY nUlemb PICT "99,999,999"
@ 19,66 SAY nInsentif PICT "99,999,999"
@ 20,66 SAY nTHP PICT "99,999,999"
@ 21,66 SAY nPPhb PICT "99,999,999"
@ 22,66 SAY nTP PICT "99,999,999"
cLagi = " "
SET COLOR TO B+*
@ 7,50 SAY "Mau Proses Lagi ? [Y/T] " GET cLagi
SET COLOR TO
READ
IF UPPER (cLagi) = "T"
CLEAR
SET COLOR TO G+*
@ 11,30 SAY "- (*_*) - THANK YOU - (*_*) - "
SET COLOR TO
EXIT
ENDIF
ENDDO