fork download
copy 
  1. | coll |
  2.  
  3. " Создаём коллекцию"
  4. coll := OrderedCollection new.
  5. coll add: 'Первый элемент'.
  6. coll add: 'Второй элемент'.
  7. coll add: 'Третий элемент'.
  8. coll add: 'Четвёртый элемент'.
  9. coll add: 'Пятый элемент'.
  10.  
  11. " Создаём интервал для итерации"
  12. | interval |
  13. interval := 1 to: coll size by: 2. " к объекту coll применили метод size и получили размер списка "
  14.  
  15. " Итерируемся по коллекции с помощью интервала"
  16. interval do: [:index |
  17.     Transcript show: (coll at: index) printString. " В Smalltalk точки (.) используются для разделения выражений. "
  18.     											   " Они не являются частью синтаксиса языка, а скорее являются "
  19.     											   " разделителем между выражениями. "
  20.  
  21.     Transcript show: Character cr. " Character cr - это объект, который представляет собой символ перевода строки "
  22.     							   " (carriage return). В Smalltalk Character cr - это экземпляр класса Character, "
  23.     							   " который имеет значение 13 (ASCII-код символа перевода строки). " 
  24. ].
  25.  
  26. " Доступ к элементам осуществляется с помощью метода at:, который возвращает элемент по индексу. "
Success #stdin #stdout 0.01s 10980KB
comments (?)
stdin
copy 
Standard input is empty
stdout
copy 
'Первый элемент'Object: $<13> error: did not understand #nextPutAllOn:
MessageNotUnderstood(Exception)>>signal (ExcHandling.st:254)
Character(Object)>>doesNotUnderstand: #nextPutAllOn: (SysExcept.st:1448)
FileStream(Stream)>>nextPutAll: (Stream.st:301)
FileStream(Stream)>>nextPutAllFlush: (Stream.st:293)
[] in TextCollector>>primNextPutAll: (Transcript.st:195)
BlockClosure>>on:do: (BlkClosure.st:193)
TextCollector>>primNextPutAll: (Transcript.st:196)
[] in TextCollector>>show: (Transcript.st:131)
[] in RecursionLock>>critical: (RecursionLock.st:106)
BlockClosure>>ensure: (BlkClosure.st:268)
[] in RecursionLock>>critical: (RecursionLock.st:96)
[] in Semaphore>>critical: (Semaphore.st:80)
BlockClosure>>ensure: (BlkClosure.st:268)
Semaphore>>critical: (Semaphore.st:60)
RecursionLock>>critical: (RecursionLock.st:104)
TextCollector>>show: (Transcript.st:130)
optimized [] in UndefinedObject>>executeStatements (prog:21)
Interval>>do: (Interval.st:95)
UndefinedObject>>executeStatements (prog:16)
https://ideone.com/lo4MXt
language:
Smalltalk (gst 3.2.5)
created:
4 days ago
visibility:
public

Share or Embed source code

Discover > Sphere Engine API

The brand new service which powers Ideone!

Discover > IDE Widget

Widget for compiling and running the source code in a web browser!