fork download
copy 
  1. PENJUALAN BARANG
  2. ================
  3. Kode barang  :<INPUT>
  4. Nama barang  :<INPUT>
  5. Jumlah barang:<INPUT>
  6. Harga barang :<INPUT>
  7. Total harga  :<OUTPUT DARI JUMLAH * HARGA>
  8. Diskon       :<OUTPUT 5% dari total harga>
  9. Total bayar  :<OUTPUT total harga- diskon>\
  10.  
  11. dengan listing sebagai berikut 
  12.  
  13. SET TALK OFF
  14. CLEAR
  15. KB = SPACE(3)
  16. NB = SPACE(9)
  17. JB = 0
  18. HRG= 0
  19. TH = 0
  20. DS = 0
  21. TB = 0
  22.  
  23.  
  24. @02,15 SAY "PENJUALAN BARANG"
  25. @03,15 SAY "================"
  26. @04,10 SAY "KODE BARANG   " GET KB PICT "@!"
  27. @06,10 SAY "NAMA BARANG   " GET NB PICT "@!"
  28. @09,10 SAY "JUMLAH BARANG " GET JB PICT  "99"
  29. @011,10 SAY "HARGA BARANG  " GET HRG PICT "99999"
  30. READ
  31. TH=JB*HRG
  32. DS=0.05*TH
  33. TB=TH-DS
  34.  
  35. CLEAR
  36. @02,10 SAY "PENJUALAN BARANG"
  37. @03,10 SAY "================"
  38. @05,10 SAY "KODE BARANG   :" +(KB) 
  39. @07,10 SAY "NAMA BARANG   :" +(NB)
  40. @09,10 SAY "JUMLAH BARANG :" +STR(JB)
  41. @11,10 SAY "HARGA BARANG  :" +STR(HRG)
  42. @13,10 SAY "TOTAL HARGA   :" +STR(TH)
  43. @15,10 SAY "DISKON        :" +STR(DS)
  44. @17,10 SAY "TOTAL BAYAR   :" +STR(TB)
  45. READ
Success #stdin #stdout 0.03s 25456KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
PENJUALAN BARANG
================
Kode barang  :<INPUT>
Nama barang  :<INPUT>
Jumlah barang:<INPUT>
Harga barang :<INPUT>
Total harga  :<OUTPUT DARI JUMLAH * HARGA>
Diskon       :<OUTPUT 5% dari total harga>
Total bayar  :<OUTPUT total harga- diskon>\

dengan listing sebagai berikut 

SET TALK OFF
CLEAR
KB = SPACE(3)
NB = SPACE(9)
JB = 0
HRG= 0
TH = 0
DS = 0
TB = 0


@02,15 SAY "PENJUALAN BARANG"
@03,15 SAY "================"
@04,10 SAY "KODE BARANG   " GET KB PICT "@!"
@06,10 SAY "NAMA BARANG   " GET NB PICT "@!"
@09,10 SAY "JUMLAH BARANG " GET JB PICT  "99"
@011,10 SAY "HARGA BARANG  " GET HRG PICT "99999"
READ
TH=JB*HRG
DS=0.05*TH
TB=TH-DS

CLEAR
@02,10 SAY "PENJUALAN BARANG"
@03,10 SAY "================"
@05,10 SAY "KODE BARANG   :" +(KB) 
@07,10 SAY "NAMA BARANG   :" +(NB)
@09,10 SAY "JUMLAH BARANG :" +STR(JB)
@11,10 SAY "HARGA BARANG  :" +STR(HRG)
@13,10 SAY "TOTAL HARGA   :" +STR(TH)
@15,10 SAY "DISKON        :" +STR(DS)
@17,10 SAY "TOTAL BAYAR   :" +STR(TB)
READ
https://ideone.com/VrLUBu
language:
PHP (php 7.3.5)
created:
2 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!