CONTOH PERHITUNGAN LAMA PENGERINGAN MENGGUNAKAN PROGRAM Q-BASIC

TEMA                        :  PROGRAM Q-BASIC MENGHITUNG LAMA                                        PENGERINGAN TEPUNG BERAS

1.     Irma Theresia Banjar Nahor (05021281520081)
2.     Isra Amanda Sunoki               (05021381520047)
3.     Izul Mabruroh                         (05021181520035)

BAHASA PEMOGRAMAN
DECLARE SUB tb ()
DECLARE SUB tt ()
DECLARE SUB tg ()
CLS
COLOR 13
PRINT “=====Jenis Tepung =====:”
PRINT “1. Tepung Beras”
PRINT “2. Tepung Tapioka”
COLOR 14
INPUT ” Masukan Menu Pilihan Anda: “, M
SELECT CASE M
    CASE 1
        CALL tb
    CASE 2
        CALL tt
        COLOR 18
        PRINT “exit”
        END
END SELECT
END
SUB tb
CLS
COLOR 4
PRINT “==== Tepung Beras ====”
COLOR 9
A = .108
P = .073
L = .013
K = .801
AB = .005
row = 750
ha = .124
h = 2.84
P = .5
r = .125
INPUT ” Tebal lapisan tepung (meter): “, t
INPUT ” Suhu Awal(C) : “, Ta
XA = ((A / 18.02) / ((A / 18.02) + (P / 50000) + (L / 50000) + (K / 522.5) + (AB / 37.42)))
PRINT XA
LX = LOG(XA)
W = 6003 / 8.314
WA = ((W / 373) + LX)
Tf = W / WA
PRINT Tf
TFa = Tf – 273
PRINT TFa
LC = A * 333.3
ff = ((row * LC) / (TFa – Ta))
PRINT ff
fe = ((P * t) / h) + (r * (t ^ 2) / ha)
PRINT fe
tff = ff * fe
hasil = tff * 1000 / 3600
PRINT ” lama proses dalam jam : “, hasil
PRINT ” lama proses dalam menit : “, tff * 1000 / 60
END SUB
SUB tt
CLS
COLOR 2
PRINT ” *** Tepung Tapioka ***:”
COLOR 9
A = .108
P = .073
L = .013
K = .801
AB = .005
row = 750
ha = .124
h = 2.84
P = .5
r = .125
INPUT ” Tebal lapisan tepung (meter): “, t
INPUT ” Suhu Awal(C) : “, Ta
XA = ((A / 18.02) / ((A / 18.02) + (P / 50000) + (L / 50000) + (K / 522.5) + (AB / 37.42)))
PRINT XA
LX = LOG(XA)
W = 6003 / 8.314
WA = ((W / 373) + LX)
Tf = W / WA
PRINT Tf
TFa = Tf – 273
PRINT TFa
LC = A * 333.3
ff = ((row * LC) / (TFa – Ta))
PRINT ff
fe = ((P * t) / h) + (r * (t ^ 2) / ha)
PRINT fe
tff = ff * fe
hasil = tff * 1000 / 3600
PRINT ” lama proses dalam jam : “, hasil
PRINT ” lama proses dalam menit : “, tff * 1000 / 60
END SUB

PROGRAM




HASIL RUN



Komentar

  1. Use this diet hack to drop 2 lb of fat in just 8 hours

    Well over 160k women and men are using a simple and SECRET "liquids hack" to burn 2 lbs each and every night while they sleep.

    It's painless and it works on everybody.

    Here's how to do it yourself:

    1) Go grab a glass and fill it with water half the way

    2) And then follow this weight losing hack

    and become 2 lbs lighter in the morning!

    BalasHapus

Posting Komentar

Postingan populer dari blog ini

FREZING-TIME CALCULATIONS

MAKALAH TEKNIK PENGOLAHAN PANGAN PENGOLAHAN TEPUNG BERAS