fork download
  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 printString. " Character cr - это объект, который представляет собой символ перевода строки "
  22. " (carriage return). В Smalltalk Character cr - это экземпляр класса Character, "
  23. " который имеет значение 13 (ASCII-код символа перевода строки). "
  24. ].
  25.  
  26. " Доступ к элементам осуществляется с помощью метода at:, который возвращает элемент по индексу. "
Success #stdin #stdout 0.01s 8024KB
stdin
Standard input is empty
stdout
'Первый элемент'$<13>'Третий элемент'$<13>'Пятый элемент'$<13>