October 2018 1 23 Report
Please, help me!!!

Konversi program BASIC dibawah ini ke program Pascal.
BAHASA BASIC
gosub [JUDUL]
gosub [KONSTANTA]
gosub [INPUT_DATA]
gosub [PROSES]
gosub [JUDUL]
gosub [INFORMASI]
end
[JUDUL]
print "PROGRAM KALKULASI GAJI KARYAWAN"
print "Minggu ke I Mei 2010"
return
[KONSTANTA]
UPJ = 25000
BON = 10000
LBR = 0.1
return
[INPUT_DATA]
input "Nama karyawan :";NM$
input "N I K :";NIK
input "Waktu kerja :";T
input "Bekeluarga ?(Y/T):";JW1$
cls
return
[PROSES]
if T<=40 then G = UPJ*T else G =UPJ*T+UPJ*(T - 40)*1.1
if JW1$= "Y" then G = G + 10000
return
'[INFORMASI]
'print "Nama Karyawan :";NM$
'print "N I K :";NIK
'print "Gaji mingguan :";G
'print
'print " Medan, 15 april 2010"
'print
'print
'print
'print " Bendaharawan gaji"
'return

Recommend Questions



Life Enjoy

" Life is not a problem to be solved but a reality to be experienced! "

Get in touch

Social

© Copyright 2013 - 2024 KUDO.TIPS - All rights reserved.