1
2
3
4
5
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript show: Date tomorrow printString

1
2
3
4
5
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today printString.
Transcript show: date tomorrow printString

1
2
3
4
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString.
Transcript cr; show: Date today

1
2
3
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString 

1
2
3
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString.
Transcript cr; show: 4 factorial printString 

1
2
Transcript show: 'welcome to smalltalk programming'.
Transcript cr; show: 5 sin printString

1
2
Transcript show: 'welcome to smalltalk programming'.
Transcript show: 5 sin printString

1
2
Transcript show: 'welcome to smalltalk programming'.
Transcript show: 5 sin

1
Transcript show: 'welcome to smalltalk programming'

1
2
#( 4 7 10 3 7) detect: [ :each | each > 7] .
Transcript show: each printString

1
#( 4 7 10 3 7) detect: [ :each | each > 7] 

1
2
3
4
5
|numbers oddNums|   
  numbers := #(1 2 3 4 5).   
  oddNums := 0.   
  numbers do: [ :aNumber | aNumber odd ifTrue: [oddNums := oddNums + 1]].   
  Transcript show: 'count of odd nos ',oddNums printString

1
2
3
4
5
|numbers oddNums|   
  numbers := #(1 2 3 4 5).   
  oddNums := 0.   
  numbers do: [ :aNumber | aNumber ifTrue: [oddNums := oddNums + 1]].   
  Transcript show: 'count of odd nos ',oddNums printString

1
2
3
4
5
|numbers evenNums|   
  numbers := #(1 2 3 4 5).   
  evenNums := 0.   
  numbers do: [ :aNumber | aNumber even ifTrue: [evenNums := evenNums + 1]].   
  Transcript show: 'count of even nos ',evenNums printString

1
2
3
4
5
|numbers sum|   
  numbers := #(1 2 3 4 5).   
  sum := 0.   
  numbers do: [ :aNumber | sum := sum + aNumber].   
  Transcript show:'SUM OF 5 NOS ARE',sum printString

1
2
3
4
5
|numbers sum|   
  numbers := #(1 2 3 4 5).   
  sum := 0.   
  numbers do: [ :aNumber | sum := sum + aNumber].   
  Transcript show:'SUM OF 5 NOS ARE',sum printString

1
2
3
4
5
|numbers sum|   
  numbers := #(1 2 3 4 5).   
  sum := 0.   
  numbers do: [ :aNumber | sum := sum + aNumber].   
  Transcript show:'SUM OF 5 NOS ARE',sum printString

1
2
3
4
5
|numbers sum|   
  numbers := #(1 2 3 4 5).   
  sum := 0.   
  numbers do: [ :aNumber | sum := sum + aNumber].   
  Transcript show:sum printString

1
2
3
4
5
|numbers sum|   
  numbers := #(1 2 3 4 5).   
  sum := 0.   
  numbers do: [ :aNumber | sum := sum + aNumber].   
  Transcript show:sum printString

1
2
3
4
5
 |aCollection|   
  aCollection := OrderedCollection new: 10.   
  aCollection add: 'string 1'.   
  aCollection size  . 
 aCollection display

1
2
#(4 3 5 2 1) asSortedCollection: [:a :b | a >= b] .
SortedCollection display

1
2
3
4
5
6
7
8
|aSortCollection |
aSortCollection:=SortedCollection new.
aSortcollection:=#(4 3 5 2 1 )asSortedCollection:
 [:a :b | a >= b] ifFalse:[
c:=a.
a:=b.
b:=c.].
aSortCollection display

1
2
3
4
5
|aSortCollection |
aSortCollection:=SortedCollection new.
aSortcollection:=#(4 3 5 2 1 )asSortedCollection:
 [:a :b | a >= b] .
aSortCollection display

1
2
3
4
5
6
7
8
9
| cars |
cars := OrderedCollection new. 
  
cars add: 'periyasamy' .
cars add: 'Cadillac'.
  cars addFirst: 'Lexus'.
 
  cars addLast: 'Corvette'.
  cars display

1
2
3
4
5
6
7
8
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac'.
  cars addFirst: 'Lexus'.
cars add: 'periyasamy' .
 
  cars addLast: 'Corvette'.
  cars display

1
2
3
4
5
6
7
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac'.
  cars addFirst: 'Lexus'.
  cars addLast: 'Corvette'.
cars add: 'periyasamy' .
  cars display

1
2
3
4
5
6
7
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac'.
  cars addFirst: 'Lexus'.
  cars addLast: 'Corvette'.
cars addMiddle: 'periyasamy' .
  cars display

1
2
3
4
5
6
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac'.
  cars addFirst: 'Lexus'.
  cars addLast: 'Corvette'. 
  cars display

1
2
3
4
5
6
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac' 
  cars addFirst: 'Lexus' 
  cars addLast: 'Corvette' 
  cars display

1
2
3
4
5
6
| cars |
cars := OrderedCollection new. 
  cars add: 'Cadillac' 
  cars addFirst: 'Lexus' 
  cars addLast: 'Corvette' 
  cars display