home *** CD-ROM | disk | FTP | other *** search
/ Otherware / Otherware_1_SB_Development.iso / amiga / misc / icalc.lha / ICalc / Scripts / loop.ic < prev    next >
Encoding:
Text File  |  1992-08-03  |  983 b   |  89 lines
  1. # test looping constructs
  2.  
  3. silent
  4.  
  5. # simple un-nested loops
  6. echo "Answers should be 45"
  7.  
  8. for (ss = j = 0; j < 10; j = j+1)
  9.     ss = ss+j
  10. print(ss)
  11.  
  12. ss = j = 0
  13. while (j != 9) {
  14.     j = j+1
  15.     ss = ss+j
  16. }
  17. print(ss)
  18.  
  19. ss = j = 0
  20. do {
  21.     j = j+1
  22.     ss = ss+j
  23.  
  24. }
  25. while (j != 9)
  26. print(ss)
  27.  
  28. # nests of loops - answer should be 165 (sum of sum of first j nos., j = 1..9)
  29. echo "\nAnswers should be 165"
  30.  
  31. # nested for-loops
  32. ss = 0
  33. for (j = 1; j < 10; j = j+1)
  34.     for (k = 1; k <= j; k = k+1)
  35.         ss = ss + k
  36. print(ss)
  37.  
  38. # nested while-loops
  39. ss = 0
  40. j = 1
  41. while (j < 10) {
  42.     k = 1
  43.     while (k <= j) {
  44.         ss = ss+k
  45.         k = k+1
  46.     }
  47.     j = j+1
  48. }
  49. print(ss)
  50.  
  51. # nested do-loops
  52. ss = 0
  53. j = 1
  54. do {
  55.     k = 1
  56.     do {
  57.         ss = ss+k
  58.         k = k+1
  59.     }
  60.     while (k <= j)    
  61.     j = j+1
  62. }
  63. while (j < 10)
  64. print(ss)
  65.  
  66. # for inside while
  67. ss = 0
  68. j = 1
  69. while (j < 10) {
  70.     for (k = 1; k <= j; k = k+1)
  71.         ss = ss+k
  72.     j = j+1
  73. }
  74. print(ss)
  75.  
  76. #while inside for
  77. ss = 0
  78. for (j = 1; j < 10; j = j+1)
  79. {
  80.     k = 1
  81.     while (k <= j) {
  82.         ss = ss+k
  83.         k = k+1
  84.     }
  85. }
  86. print(ss)
  87.  
  88. verbose
  89.