Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

 str1,str10,str100 : Char

{единицы, десятки, сотни}

 nNum : String

{сумма в виде String}

 nLenNum : Integer

{длина nNum}

 {временные строки}

 str99,strMld,strHun,strNOne,strTh,strNTh,strMln,strN_Mln : String

{*************** служебные функции ****************}

{перевод единиц,

    n9 : число в символьном виде}

FUNCTION STR0_9(n9,strS:Char):String

begin

CASE n9 of

  '1':IF strS='М' then str0_9:='один'

  ELSE str0_9:='одна'

  '2':IF strS='М' then str0_9:='два'

  ELSE str0_9:='две'

  '3': str0_9:='три'

  '4': str0_9:='четыре'

  '5': str0_9:='пять'

  '6': str0_9:='шесть'

  '7': str0_9:='семь'

  '8': str0_9:='восемь'

  '9': str0_9:='девять'

Рекомендуем скачать другие рефераты по теме: реферат на тему предприятие, шпори скачать.



Предыдущая страница реферата | 1  2  3  4  5  6  7  8  9  10  11 | Следующая страница реферата

Поделитесь этой записью или добавьте в закладки