tugas flowchat algo 1A

Floowchart 

Koding Pemograman :

Cls

For a = 1 to 10000

       Input “Kode Barang =”, kdbrg$(a)

       Input”Nama Barang =”, nmbrg(a)

        Input”Quantity =”, q(a)

        Input”Harga Barang =”, (a)

        Print

        t(a) = q(a) * hb(a)

        tot= tot +t(a)

 Next a

For b = 1 to 10000

    Print

    Print “kode Barang =”, kdbrg$(b)

    Print”Nama Barang=”, nmbrg$(b)

    Print”quantity =”,q(b)

    Print “Harga Barang=”, hb(b)

    Print”Total harga=”,t(b)

Next b

Print

Print”total Semua=”,tot