1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * k - 1 )]whileTrue: [ Transcript show: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ [c <= count]whileTrue:[ Transcript tab. c:= c + 1].
c:= 1.
count:= count - 1.
          [c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
|binArray first last middle arrSize searchVal sortArray|
binArray:=Array new.
binArray:=#(5 8 9 10 3 55 22 78 33 11 6).
sortArray:=Array new.
arrSize:=binArray size.
first:=1.
last:=arrSize.
searchVal:=22.
Transcript show:binArray printString.
 ...

1
Mfp ey zwvo fvat rjx hwprdrr lb nawzh tnfpc: Anj icvlu, hjgy Kbffhg, zk hjp gm nso nntjj, phf sw vawwhnwer, pcum nu oeq ewllxqmqit

1
2
3
4
5
6
7
8
9
|binArray first last middle arrSize searchVal sortArray|
binArray:=Array new.
binArray:=#(5 8 9 10 3 55 22 78 33 11 6).
sortArray:=Array new.
arrSize:=binArray size.
first:=1.
last:=arrSize.
searchVal:=22.
Transcript show:binArray printString.
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ Transcript tab. k:= k + 1].
k:= 1.
count:= count - 1.
[c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| n c k count |
n:= 5.
c:= 1.
k:= 1.
count:= (n-1).
[k <= n]whileTrue: [ Transcript tab. k:= k + 1].
k:= 1.
count:= count - 1.
[c <= (2 * K - 1 )]whileTrue: [ Transcript: ' * '. c:= c + 1].
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1].Transcript cr.].
                        j:= 1.
                ((i \\ 2)~= 0)ifFalse: [ 
                [j <= n]whileTrue: [ Transcript show: '$'. j:= j + 1].Transcript cr.].
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1]].
                        j:= 1.
                ((i \\ 2)~= 0)ifFalse: [ 
                [j <= n]whileTrue: [ Transcript show: '$'. j:= j + 1]].
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1]].
                        Transcript cr.
                        j:= 1.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1]].
                        Transcript cr.
                        j:= 1.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1]].
                        j:= 1.
                Transcript cr.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1]].
                        j:= 1.
                Transcript cr.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1].
                        j:= 1.
                Transcript cr.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
7
8
9
| i j n|
i:= 1.
j:= 1.
n:= 5.
[i <= n]whileTrue: [ ((i \\ 2)~= 0)ifTrue: [ 
        [j <= n]whileTrue: [ Transcript show: '#'. j:= j + 1].
                        j:= 1.
                Transcript cr.
                ((i \\ 2)~= 0)ifFalse: [ 
 ...

1
2
3
4
5
6
|i n result|
i:=1 .
n:=5.
result:=0.
i to: n do:[:hVal | result:=result+(1/hVal) asFloat].
Transcript show: result printString

1
2
3
4
5
6
|i n result|
i:=1.
n:=5.
result:=0.
i to: n do:[:hVal | result:=result+(1/hVal)].
Transcript show: result printString

1
2
3
4
5
6
|i n result|
i:=1.
n:=5.
result:=0.
i to: n do:[:hVal | result:=result+(1/hVal)].
Trasncript show: result printString

1
2
3
4
5
6
7
8
9
|array i j aSize temp insValue|
array:=Array new:5.
array at:1 put:1.
array at:2 put:2.
array at:3 put:3.
array at:4 put:4.
array at:5 put:5.
array at:6 put:7.
array at:7 put:8.
 ...

1
2
3
4
5
6
7
8
9
| anArray i count aSize aSet aCount aEach |
anArray:= Array new.
anArray:= #(1 3 4 4 1 5 4 6 7 3).
aSize:= anArray size.
aSet := Set new.
i:= 1.
[i<=aSize] whileTrue:[
aEach:= anArray at: i.
aSet add: aEach.
 ...

1
2
3
4
5
6
7
8
9
| anArray i count aSize aSet aCount aEach |
anArray:= Array new.
anArray:= #(1 3 4 4 1 5 4 6 7 3)
aSize:= anArray size.
aSet := Set new.
i:= 1.
[i<=aSize] whileTrue:[
aEach:= anArray at: i.
aSet add: aEach.
 ...

1
2
3
4
5
6
7
8
9
| aString aChar i count aLength aSet aCount |
aString:= 'abacd'.
aLength:= aString size.
aSet := Set new.
i:= 1.
[i<=aLength] whileTrue:[
aChar:= aString at: i.
aSet add: aChar.
count:= aString occurrencesOf: aChar.
 ...

1
2
3
4
5
6
7
8
9
| aString aChar i count aLength aSet aCount |
aString:= 'abacd'.
aLength:= aString size.
aSet := Set new.
i:= 1.
[i<=aLength] whileTrue:[
aChar:= aString at: i.
aSet add: aChar.
count:= aString occurrencesOf: aChar.
 ...

1
2
3
4
5
6
7
8
9
|a c aSize anArray position |
anArray:= Array new:10.
 
anArray at:1 put:1.
anArray at:2 put:2.
anArray at:3 put:3.
anArray at:4 put:4.
anArray at:5 put:5.
anArray at:6 put:7.
 ...

1
2
3
4
5
6
7
8
9
|a c aSize anArray position |
anArray:= Array new:10.
 
anArray at:1 put:1.
anArray at:2 put:2.
anArray at:3 put:3.
anArray at:4 put:4.
anArray at:5 put:5.
anArray at:6 put:7.
 ...

1
2
3
4
5
6
7
8
9
|a c aSize anArray position |
anArray:= Array new:10.
 
anArray at:1 put:1.
anArray at:2 put:2.
anArray at:3 put:3.
anArray at:4 put:4.
anArray at:5 put:5.
anArray at:6 put:7.
 ...