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

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

if Length(Prop)>60 then

begin

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

repeat

dec(Index)

until Prop[Index]=' '

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

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

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

Str2:=Squeeze('R',Prop,Length(Prop)-Index+1)

{выводимлевуючасть}

WriteAt(19,14,White,Blue,Str1)

{выводимправуючасть}

WriteAt(19,15,White,Blue,Str2)

end

else {выводимсимвольнуюстрокуполностью}

WriteAt(19,14,White,Blue,Prop)

{ждемнажатияклавиши}

ch:=readkey

{функция из WinTTT5-восстанавливаем исходный режим экрана}

Reset_StartUp_Mode

end.

ПриложениеВ

( рекомендательное )

Результаты тестирования программы