Реферат: Обработка экономической информации средствами языка Pascal

settextstyle(2,0,5)

Вывод текста на экран, используя координаты x=xm+100,y=10

outtextxy(xm+100,10,'## Sergei Kovbasyuk ##');

Вычесление числа байт, необходимого для сохранения прямоугольной области экрана

size:=imagesize (xm+100,10,xm+275,10+20);

Создание динамической переменной

getmem(saucer,size);

Сохранение в переменной битовый образ указанной части экрана.

getimage(xm+100,10,xm+275,10+20,saucer^);

Вывод битового образа на экран

putimage(xm+100,10,saucer^,xorput);

Обнуление переменных, требуемых для вывода на экран битового изображения, используя при этом оператор цикла REPEAT…UNTIL и цикл FOR.

k:=0; kk:=0; i:=0; n:=0;

Цикла REPEAT…UNTIL

repeat

Установка текущего шрифта, стиля и размера текста

settextstyle(10,0,5);

Установка текущего цвета шрифта

setcolor(i+1);

Вывод текста на экран

outtextxy((getmaxx div 5),(getmaxy div 4),'"Sorge pro"');

Установка текущего шрифта, стиля, размера текста.

settextstyle(5,0,5); setcolor(15);

Вывод текста на экран

outtextxy((getmaxx-200),(getmaxy-250),'present');

Установка текущего шрифта, стиля, размера текста.

settextstyle(3,0,1);

Вывод текста на экран

outtextxy(40,(getmaxy-50),'http://sorgepro.agava.ru');