55 lines
1.5 KiB
Plaintext
55 lines
1.5 KiB
Plaintext
OpenConsole()
|
|
Dim ln.s(19)
|
|
ln(1) = " 55"
|
|
ln(2) = " 94 48"
|
|
ln(3) = " 95 30 96"
|
|
ln(4) = " 77 71 26 67"
|
|
ln(5) = " 97 13 76 38 45"
|
|
ln(6) = " 07 36 79 16 37 68"
|
|
ln(7) = " 48 07 09 18 70 26 06"
|
|
ln(8) = " 18 72 79 46 59 79 29 90"
|
|
ln(9) = " 20 76 87 11 32 07 07 49 18"
|
|
ln(10) = " 27 83 58 35 71 11 25 57 29 85"
|
|
ln(11) = " 14 64 36 96 27 11 58 56 92 18 55"
|
|
ln(12) = " 02 90 03 60 48 49 41 46 33 36 47 23"
|
|
ln(13) = " 92 50 48 02 36 59 42 79 72 20 82 77 42"
|
|
ln(14) = " 56 78 38 80 39 75 02 71 66 66 01 03 55 72"
|
|
ln(15) = " 44 25 67 84 71 67 11 61 40 57 58 89 40 56 36"
|
|
ln(16) = " 85 32 25 85 57 48 84 35 47 62 17 01 01 99 89 52"
|
|
ln(17) = " 06 71 28 75 94 48 37 10 23 51 06 48 53 18 74 98 15"
|
|
ln(18) = " 27 02 92 23 08 71 76 84 15 52 92 63 81 10 44 10 69 93"
|
|
ln(19) = "end"
|
|
|
|
Dim matrix.i(20,20)
|
|
Define.i x = 1, tam = 0
|
|
Define.i i, y, s1, s2, n
|
|
|
|
For n = 1 To ArraySize(ln(),1) - 1
|
|
ln2.s = LTrim(ln(n))
|
|
For y = 1 To x
|
|
matrix(x, y) = Val(Left(ln2, 2))
|
|
If Len(ln2) > 4:
|
|
ln2 = Mid(ln2, 4, Len(ln2)-4)
|
|
EndIf
|
|
Next y
|
|
x + 1
|
|
tam + 1
|
|
Next n
|
|
|
|
For x = tam - 1 To 1 Step - 1
|
|
For y = 1 To x
|
|
s1 = matrix(x+1, y)
|
|
s2 = matrix(x+1, y+1)
|
|
If s1 > s2:
|
|
matrix(x, y) = matrix(x, y) + s1
|
|
Else
|
|
matrix(x, y) = matrix(x, y) + s2
|
|
EndIf
|
|
Next y
|
|
Next x
|
|
|
|
PrintN(#CRLF$ + " maximum triangle path sum = " + Str(matrix(1, 1)))
|
|
|
|
Input()
|
|
CloseConsole()
|