Компьютерный форум
Правила
Вернуться   Компьютерный форум > Форум программистов > Языки программирования > Smalltalk
Перезагрузить страницу Как "сложить" две строки в Dolphin Smalltalk
Ответ
 
Опции темы Опции просмотра
  (#1 (permalink)) Старый
ayax ayax вне форума
Member
 
Сообщений: 94
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.08.2016
По умолчанию Как "сложить" две строки в Dolphin Smalltalk - 15.03.2020, 12:55

Здравствуйте, всем доброго времени суток ...
? в заголовке ...
Ответить с цитированием
  (#2 (permalink)) Старый
ayax ayax вне форума
Member
 
Сообщений: 94
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.08.2016
По умолчанию 16.03.2020, 00:03

arab := 3497
rim1 := #('M' 'CM' 'D' 'CD' 'C' 'XC' 'L' 'XL' 'X' 'IX' 'V' 'IV' 'I')
arab1 := #(1000 900 500 400 100 90 50 40 10 9 5 4 1)
e := 1. rim := ''
[arab > 0] whileTrue: [[arab >= (arab1 at: e)] whileTrue: [rim := rim , (rim1 at: e). arab := arab - (arab1 at: e)]. e := e + 1]
rim'MMMCDXCVII'
Ответить с цитированием
  (#3 (permalink)) Старый
ayax ayax вне форума
Member
 
Сообщений: 94
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.08.2016
По умолчанию 17.03.2020, 13:07

Просьба показать, каким способом можно разместить [arab > 0] ...
на нескольких строках ...
Ответить с цитированием
  (#4 (permalink)) Старый
ayax ayax вне форума
Member
 
Сообщений: 94
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Регистрация: 18.08.2016
По умолчанию 24.03.2020, 23:08

arab := 3497.
rim_1 := #('M' 'CM' 'D' 'CD' 'C' 'XC' 'L' 'XL' 'X' 'IX' 'V' 'IV' 'I').
arab_1 := #(1000 900 500 400 100 90 50 40 10 9 5 4 1 ).
i := 1.
rim := ''.
bl_1 := [arab > 0].
bl_2 := [arab >= (arab_1 at: i)].
body := [rim := rim , (rim_1 at: i). arab := arab - (arab_1 at: i)].
bl_1 whileTrue: [bl_2 whileTrue: body. i := i + 1].
rim.
(arab_1 at: i) - встречается 2 раза!
Как уменьшить кол-во текста ...
Ответить с цитированием
Ads
Ответ

Опции темы
Опции просмотра

Ваши права в разделе
Вы не можете создавать новые темы
Вы не можете отвечать в темах
Вы не можете прикреплять вложения
Вы не можете редактировать свои сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Trackbacks are Вкл.
Pingbacks are Вкл.
Refbacks are Выкл.


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Появилось окно с ошибкой: "Insert the "Tray App" disk and click OK". Anita_2 Техническая поддержка 6 14.12.2014 14:20
Пропали стрелочки "вверх" и "вниз" справа в браузере Мборзик Любые вопросы от новичков 0 20.04.2014 20:19
Ставлю систему "с нуля" после сбоя. Какие "работы" по тестированию железа полезны? russcand Любые вопросы от новичков 14 01.09.2011 00:27
Инструкция по адресу "0x436b10f" обратилась к памяти "0x03793dac". ВИРУС???? skazka Windows XP 5 21.03.2010 01:21
помогите выбрать "ASRock P4i45PE" или "GigaByte GA-8PE800" Константин Материнские платы 2 06.12.2009 15:21
Как исправить "attempt to store duplicate value in unique index "RDB$INDEX_5" ?" devo4ka-nimfetka Другие СУБД 1 16.04.2009 09:58
Количество букв "а" в последнем слове строки. ПОМОГИТЕ КТО МОЖЕТ! Satirikon Prolog 1 15.04.2009 19:20
После подключения кнопок "power" и "reset" компьютер перестал включаться. Лаборант-Шурупов Любые вопросы от новичков 1 25.01.2009 15:15
Ошибка POST "FF" в материнской плате "Epox EP-5ELA3I". sushv Любые вопросы от новичков 2 28.08.2007 12:25
Добавить кнопки "свернуть" и "восстановить" к окну готового dialog-based приложения Lesat Visual C++ 2 07.01.2006 04:34
Как сделать чтобы вместо кнопок "Да" и "Нет" высвечивалось украинсие "Так" и "Ні" Форсаж Delphi 5 19.07.2003 19:30
Как в TFilterValidatorе задать такой фильтр: все символы кроме "{" и "}" Anonymous Pascal 1 28.06.2003 00:50



Powered by vBulletin® Version 3.8.7
Copyright ©2000 - 2020, Jelsoft Enterprises Ltd.
Нardforum.ru - компьютерный форум и программирование, форум программистов