Algoritma (Basic)

### Listing program (coding) ###

Cls

Locate 02,08 : print” Tugas Aktivitas”

Locate 03,08 : print” Listing Program Coding”

Locate 04,08 : print” By M.Sadillah (08020910”

Locate 06,36 : print” PT. Indocement”

Locate 07,30 : print” Tunggal Prakarsa Tarjun”

Locate 09,20 : print” NIP : “;: input,nip$

Locate 10,20 : print” Nama : “;: input,nm$

Locate 11,20 : print” Jabatan : “;: input,jabatan$

Locate 12,20 : print” Pendidikan : “;: input,pendidikan$

If pendidikan$=”SMA” then

Pokok = 500000

Elseif pendidikan$=”DII”

Pokok = 800000

Elseif pendidikan$=”S1”

Pokok =”1800000”

End if

Locate 14,20 : print”===========================”

Locate 15,20 : print”Gaji pokok :”;pokok

Tunjangan = pokok*0.1

Locate 16,20 : print” Tunjangan :”;tunjangan

Total = pokok + tunjangan

Locate 17,20 : print”=========================== +”

Locate 18,20 : print”Total gajih :”;total

Locate 19,20 : print”============================”

Locate 21,08 : print”# Catatan = Tunjangan : gaji pokok*0.1”

Locate 22,08 : print”# Total Gaji = Gaji pokok + Tunjangan”

create by Dillah Edutech