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

{Преобразование денежных сумм из числового формата в словесный}

Program Currency

Uses Strings, Crt, FastTTT5, StrnTTT5, ReadTTT5, WinTTT5

Const

  {Денежные единицы}

  strUnit1 : String='рубль'

  strUnit2 : String='рубля'

  strUnitM : String='рублей'

  {Род денежной единицы

    М : мужской

    Ж : женский}

  strSex  : Char='М'

var

 ch : Char

 Sum : LongInt

{Сумма в числовом формате}

 Str1, Str2, Prop : String

{сумма в словесном формате}

 Index : Byte

{для разбиения 'Prop' на две строки,

        если 'Prop' длиннее 60 символов}

{Переводит денежную сумму из числового формата в словесный}

FUNCTION ValToStr(nSumNum:LongInt):String

var

 Tmp_Prop :String

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





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