Algoritma_Name UAS

Var NP,TP,KB,NB,SB : String
SP : Char
JB,HB,HJ,POT,JHJ,THT,TTHJ,N,M,E,E1 : Numerik
TTHJ ← 0
Read (N)
For E = 1 to N do
Read (NP,TP,SP)
THT ← 0
Read (M)
For E1 = 1 to M do
Read (KB,JB)
Case KB Of
‘B01’ : NB ← ‘Buku Tulis’
SB ← ‘Lusin’
HB ← 25000
‘B02’ : NB ← ‘Ball Point’
SB ← ‘Lusin’
HB ← 20000
‘B03’ : NB ← ‘Spidol’
SB ← ‘Lusin’
HB ← 30000
‘B04’ : NB ← ‘HVS Folio’
SB ← ‘Rim’
HB ← 30000
‘B05’ : NB ← ‘HVS Kuarto’
SB ← ‘Rim’
HB ← 25000
End Case

If SP ← ‘M’ Then
POT ← HJ * 10 %
Else
POT ← 0
End If

HJ ← JB * HB
JHJ ← HJ – POT
THJ ← THJ + HJ
End For
Write (THJ)
TTHJ ← TTHJ + THJ
End For
Write (TTHJ)
End