Ne znam koliko će ovo pomoći, ali slučajno sam naleteo na jedan svoj program iz ko zna kog vremena kad sam "programirao" u QBASIC-u koji traži slična presipanja. Evo ovde programa pa probajte:
Code:
CLS
INPUT "Unesite V, x, y:", V, x, y
s = 1
pro = 0
pre = 0
PRINT "Prvi nacin:"
A = 0
B = y
PRINT "("; A; ","; B; ")"
Vpr = A + B
WHILE (Vpr <> V)
IF B > 0 THEN IF B <= x AND A + B < x THEN A = A + B: B = 0: pre = pre + 1: Vpr = A + B: PRINT "("; A; ","; B; ")" ELSE B = B - (x - A): A = x: pre = pre + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
IF B = 0 THEN B = y: s = s + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
IF A = x THEN A = 0: pro = pro + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
WEND
zbir1 = pro + pre + s
PRINT zbir1; "poteza."
10 A$ = INKEY$: IF A$ = "" THEN 10
PRINT
PRINT
PRINT
PRINT "Drugi nacin:"
s = 1
pro = 0
pre = 0
A = x
B = 0
Vpr = x
PRINT "("; A; ","; B; ")"
WHILE (Vpr <> V)
IF A > 0 THEN IF A + B <= y THEN B = A + B: A = 0: pre = pre + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
IF A > 0 AND NOT Vpr = V THEN IF A + B > y THEN A = A - (y - B): B = y: pre = pre + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
IF A = 0 AND NOT Vpr = V THEN A = x: s = s + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
IF B = y AND NOT Vpr = V THEN B = 0: pro = pro + 1: Vpr = A + B: PRINT "("; A; ","; B; ")"
WEND
zbir2 = pro + pre + s
PRINT zbir2; "poteza."
Ljubičice crvena, što si plava kô zelena trava.