Алгоритмы и программы. Афанасьева Т. В - 196 стр.

UptoLike

ВУЗ: 

УлГТУ | Ульяновск

Составители: 

Рубрика: 

196
небольших по размеру областей может привести к некорректной работе
процедуры.
Процедра
SetTextStyle(Font:word;direction:Word;Charsize:Word) устанавливает
текущие тип шрифта, направление текста и размер символов.
Font – тип шрифта;
Direction
– направление текста;
CharSize – размер символов.
В случае аварийной ситуации процедура устанавливает код ошибки :
-8 – не найден файл со шрифтом;
-9 – нет памяти для загрузки шрифта;
-11 – ошибка графической системы;
-12 – ошибка ввода–вывода графической системы;
-13 – ошибка в файле со шрифтом;
-14 – неверный номер шрифта.
Процедура OutText(TextString:String) выводит на экран строку
текста, начиная с текущего
положения курсора.
Пример построения закрашенных областей на экране
uses graph,crt;
var
p:fillpatterntype;{маска заполнения}
driver,mode,i:integer;
begin
driver:=vga; {драйвер}
mode:=vgahi; {режим графики}
Initgraph(driver,mode,''); {инициализация графики}
if graphresult<>0 then {проверка инициализации графики}
halt(1); {прекращение выполнения программы}
for i:=1 to 8 do begin
p[1]:=7; { в результате }
p[2]:=221;{ выполнения }
p[3]:=7; { }
p[4]:=10; { этих операторов на }
p[5]:=114;{ экране }
p[6]:=80; { появится }
p[7]:=114;{ множество }
p[8]:=130;{ кружочков }
end;
line(10,10,630,10) ; {вычерчивет границы рамки }

Страницы