home *** CD-ROM | disk | FTP | other *** search
/ Simtel MSDOS - Coast to Coast / simteldosarchivecoasttocoast2.iso / calculat / sm30a.zip / LIST.SM < prev    next >
Text File  |  1993-10-16  |  491b  |  29 lines
  1. #    this is demo of array and list
  2.  
  3. #    the dottime of [1,2] and [11,12] in array
  4.  
  5. a[1]:=1
  6. a[2]:=2
  7. b[1]:=11
  8. b[2]:=12
  9. p:=0
  10. do(p:=p+a[j]*b[j], j,1,2)
  11.  
  12. #    the dottime in list
  13. dottime([1,2], [11,12])
  14.  
  15. #output:=prolog
  16. #readfile("demo2.sm")
  17. #p:=[list(x^2, x,1,3,1)]
  18. #p+2
  19. #2+p
  20. #2*p
  21. #last
  22. #readfile(c2)
  23. #list(x,x^2,newline, x,1,3,1)
  24. #last
  25. #do(do(p[j,k]:= f(j)+f2(k), j,1,2,1), k,1,2,1)
  26. #list(list(p[j,k], j,1,2,1), k,1,2,1)
  27. #p[1,2] := 9
  28. #list(list(p[j,k], j,1,2,1), k,1,2,1)
  29.