home *** CD-ROM | disk | FTP | other *** search
/ CD Action 2 / CD_Action_2.iso / train / roze.trn < prev    next >
Text File  |  1995-11-07  |  3KB  |  86 lines
  1. 100   VAR  'Wagon 0' = 0
  2. 101   VAR  'Wagon 1' = 1
  3. 102   VAR  'Wagon 2' = 2
  4. 103   VAR  'Wagon 3' = 3
  5. 104   VAR  'Wagon 4' = 40
  6. 105   VAR  'Wagon 5' = 5
  7. 106   VAR  'Wagon 6' = 60
  8. 107   VAR  'Wagon 7' = 7
  9. 108   VAR  'p' = 8
  10. 109   VAR  'q' = 9
  11. 110   VAR  'p^2' = 10
  12. 111   VAR  'q^2' = 11
  13. 112   VAR  '(p+q)/2*2' = 12
  14. 113   VAR  'p1' = 13
  15. 114   VAR  'q1' = 14
  16. 115   VAR  'Wagon 15' = 15
  17. 116   VAR  'Wagon 16' = 16
  18. 117   VAR  'Wagon 17' = 17
  19. 118   VAR  'Wagon 18' = 18
  20. 119   VAR  'Wagon 19' = 19
  21. 120   VAR  'Wagon 20' = 20
  22. 121   VAR  'Wagon 21' = 21
  23. 122   VAR  'Wagon 22' = 22
  24. 123   VAR  'Wagon 23' = 23
  25. 124   VAR  'Wagon 24' = 24
  26. 125   VAR  'Wagon 25' = 25
  27. 126   VAR  'Wagon 26' = 26
  28. 127   VAR  'Wagon 27' = 27
  29. 128   VAR  'Wagon 28' = 28
  30. 129   VAR  'Wagon 29' = 29
  31. 130   VAR  'Wagon 30' = 30
  32. 131   VAR  'Wagon 31' = 31
  33. 132   VAR  'Wagon 32' = 32
  34. 133   VAR  'Wagon 33' = 33
  35. 134   VAR  'Wagon 34' = 34
  36. 135   VAR  'Wagon 35' = 35
  37. 136   VAR  'Wagon 36' = 36
  38. 137   VAR  'Wagon 37' = 37
  39. 138   VAR  'Wagon 38' = 38
  40. 139   VAR  'Wagon 39' = 39
  41. 140   VAR  'Wagon 40' = 40
  42. 141   VAR  'Wagon 41' = 41
  43. 142   VAR  'Wagon 42' = 42
  44. 143   VAR  'Wagon 43' = 43
  45. 144   VAR  'Wagon 44' = 44
  46. 145   VAR  'Wagon 45' = 45
  47. 146   VAR  'Wagon 46' = 46
  48. 147   VAR  'Wagon 47' = 47
  49. 148   VAR  'Wagon 48' = 48
  50. 149   VAR  'Wagon 49' = 49
  51. 150   VAR  'Wagon 50' = 50
  52. 200   PRINT "Ten program w odr≤┐nieniu od programu 'ogrodnik.trn'"
  53. 201   PRINT "podaje tylko te propozycje bok≤w klomb≤w, kt≤re nie"
  54. 202   PRINT "powstaj╣ przez przemno┐enie wszystkich rozmiar≤w "
  55. 203   PRINT "bok≤w przez sta│╣ ca│kowit╣. Zwykle tylko takie roz-"
  56. 204   PRINT "wi╣zania s╣ interesuj╣ce."
  57. 205   LET 'p':='Wagon 5'{464,128}{464,176}
  58. 300   IF ('p'{432,176}{432,160}>'Wagon 7'){448,160}{448,144}{224,144} THEN 2900{208}
  59. 400   LET 'q':=(('Wagon 4'{384,112}{384,176}/'p'){416,176}{416,192}-'p'){432,192}
  60. 500   IF ('q'{432,192}{432,64}>='Wagon 1'){464,64}{464,48}{224,48} THEN 700{182}
  61. 600   LET 'q':='Wagon 1'{464,64}{464,192}
  62. 700   IF ('q'{400,192}{400,176}>='p'){432,176}{432,160}{224,160} THEN 2700{195}
  63. 800   IF ((('p'*'p'{464,160}){448,176}+('p'*'q'){448,192}){416,176}{416,144}>'Wagon 6'){448,144}{448,128}{224,128} THEN 2700{184}
  64. 900   LET 'p1':='p'{464,240}
  65. 1000   LET 'q1':='q'{464,240}
  66. 1100   IF ('p1'='q1'){416,272}{224,272} THEN 1700{174}
  67. 1200   IF ('p1'{416,256}{416,272}>'q1'){432,272}{432,288}{224,288} THEN 1500{161}
  68. 1300   LET 'q1':=('q1'{432,272}{432,256}-'p1'){448,256}
  69. 1400   GOTO 1600{88}
  70. 1500   LET 'p1':=('p1'{416,256}{416,272}-'q1'){448,272}
  71. 1600   GOTO 1100{79}
  72. 1700   IF ('p1'<>'Wagon 1'){384,128}{224,128} THEN 2500{177}
  73. 1800   LET '(p+q)/2*2':=('Wagon 2'*(('p'{432,176}+'q'){432,192}/'Wagon 2'){384,192}){336,192}{336,240}
  74. 1900   IF (('q'+'p'{368,176}){368,192}{368,240}<>'(p+q)/2*2'){384,240}{384,256}{224,256} THEN 2500{166}
  75. 2000   PRINT "Oto propozycja posadzenia r≤┐:"
  76. 2001   LET 'p^2':=('p'{464,160}*'p'{464,192}){432,176}{432,208}
  77. 2100   LET 'q^2':=('q'{464,176}*'q'{464,208}){416,192}{416,224}
  78. 2200   PRINT ('p'*'q'){432,192}
  79. 2300   PRINT (('p^2'{416,208}{416,224}-'q^2'){448,224}{448,240}{384,240}/'Wagon 2'){384,80}
  80. 2400   PRINT (('p^2'+'q^2'{448,224}){448,208}/'Wagon 2'){448,80}
  81. 2500   LET 'q':=('q'+'Wagon 1'){448,192}
  82. 2600   GOTO 700{68}
  83. 2700   LET 'p':=('p'+'Wagon 1'){448,176}
  84. 2800   GOTO 300{24}
  85. 2900   STOP
  86.