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

| Категория реферата: Рефераты по информатике, программированию
| Теги реферата: курсовые и дипломные работы, реферат
| Добавил(а) на сайт: Каллист.

clrscr

{функция из WinTTT5-очищаем экран от текста}

ClearText(1,1,80,25,White,Blue)

{функция из ReadTTT5-считываем длинное целое, допустимые значения 0-999999999

(столбец, строка, длина поля ввода, приглашение, тип рамки,

минимальное значение, максимальное значение)}

Read_LongInt(25,10,9,'Введите число : ',4,Sum,0,999999999)

{переводим из числового формата в символьный}

Prop:=ValToStr(sum)

{функция из WinTTT5-отключаем курсор}

OffCursor

Index:=61

{максимальная длина строки для вывода на экран}

{функция из FastTTT5-выводим текст в нужном месте

(столбец, строка, цвет текста, фон, текст)}

WriteAt(2,14,Yellow,Blue,'Сумма прописью : ')

{если символьная строка длиннее 60 символов}

if Length(Prop)>60 then

begin

{ищем слева от 60-го символа первый пробел}

repeat

dec(Index)

until Prop[Index]=' '

{выделяем левую часть символьной строки (до 60-го символа)}

Str1:=Squeeze('L',Prop,Index)

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

Claw.ru | Рефераты по информатике, программированию | Разработка программы для преобразования денежных сумм в чековой книжке из формата ч