\ Перевод числа со стека в римскую нотацию и печать результата \ This is free software; you can redistribute it and/or \ modify it under the terms of the GNU General Public License \ as published by the Free Software Foundation; either version 2 \ of the License, or (at your option) any later version. \ This program is distributed in the hope that it will be useful, \ but WITHOUT ANY WARRANTY; without even the implied warranty of \ MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the \ GNU General Public License for more details. \ You should have received a copy of the GNU General Public License \ along with this program; if not, write to the Free Software \ Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. uses StartUp CREATE Римские 73 C, \ I 86 C, \ V 88 C, \ X 76 C, \ L 67 C, \ C 68 C, \ D 77 C, \ M VARIABLE #Позиции : Единицы 0 #Позиции ! ; : Десятки 2 #Позиции ! ; : Сотни 4 #Позиции ! ; : Тысячи 6 #Позиции ! ; : Позиция ( --- адр-позиции ) Римские #Позиции @ + ; : .Символ ( смещение ) Позиция + C@ EMIT ; : Единичка 0 .Символ ; : Пятерка 1 .Символ ; : Десятка 2 .Символ ; : Единички ( число-единичек --- ) ?DUP IF 0 DO Единичка LOOP THEN ; : Почти ( частное-от-5-/ --- ) Единичка IF Десятка ELSE Пятерка THEN ; : Цифра ( цифра --- ) 5 /MOD OVER 4 = IF Почти DROP ELSE IF Пятерка THEN Единички THEN ; : По-римски ( число --- ) 1000 /MOD Тысячи Цифра 100 /MOD Сотни Цифра 10 /MOD Десятки Цифра Единицы Цифра ; \ : Copyright CR ." Печать по-римски. (c)HCL " 1999 По-римски CR CR ; \ Copyright
Make your own free website on Tripod.com