25 lines
513 B
Plaintext
25 lines
513 B
Plaintext
name$[] = [ "beef" "pork" "ham" "greaves" "flitch" "brawn" "welt" "salami" "sausage" ]
|
|
wgt[] = [ 3.8 5.4 3.6 2.4 4.0 2.5 3.7 3.0 5.9 ]
|
|
val[] = [ 36 43 90 45 30 56 67 95 98 ]
|
|
maxwgt = 15
|
|
#
|
|
n = len wgt[]
|
|
#
|
|
for i = 1 to n - 1
|
|
for j = i + 1 to n
|
|
if val[j] / wgt[j] > val[i] / wgt[i]
|
|
swap val[j] val[i]
|
|
swap wgt[j] wgt[i]
|
|
swap name$[j] name$[i]
|
|
.
|
|
.
|
|
.
|
|
for i to n
|
|
w = lower wgt[i] maxwgt
|
|
print w & " kg " & name$[i]
|
|
maxwgt -= w
|
|
if maxwgt = 0
|
|
break 1
|
|
.
|
|
.
|