Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

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)

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



Предыдущая страница реферата | 6  7  8  9  10  11  12  13  14  15  16 | Следующая страница реферата

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