Реферат: Разработка программы для преобразования денежных сумм в чековой книжке из формата чисел в словесный формат

begin

str10_19:=''

CASE n19 of

'0': str10_19:='десять'

'1': str10_19:='одиннадцать'

'2': str10_19:='двенадцать'

'3': str10_19:='тринадцать'

'4': str10_19:='четырнадцать'

'5': str10_19:='пятнадцать'

'6': str10_19:='шестнадцать'

'7': str10_19:='семнадцать'

'8': str10_19:='восемнадцать'

'9': str10_19:='девятнадцать'

END

end

{str10_19}

{перевод десятков,

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

FUNCTION STR20_90(n99:Char):String

begin

str20_90:=''

CASE n99 of

'2': str20_90:='двадцать'

'3': str20_90:='тридцать'

'4': str20_90:='сорок'

'5': str20_90:='пятьдесят'

'6': str20_90:='шестьдесят'

'7': str20_90:='семьдесят'

'8': str20_90:='восемьдесят'