13 lines
335 B
Text
13 lines
335 B
Text
Module Jensen`s_Device {
|
|
decimal i=0
|
|
Function Sum (&any, lo, hi, &f()) {
|
|
decimal temp=0
|
|
For any= lo to hi {
|
|
temp+=f()
|
|
}
|
|
=temp
|
|
}
|
|
Print Sum(&i, 1, 100, Lazy$(1/i))=5.1873775176396202608051176755@ ' true
|
|
Print i=101 ' true
|
|
}
|
|
Jensen`s_Device
|