Добавил:
Upload Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз: Предмет: Файл:
Скачиваний:
5
Добавлен:
09.03.2016
Размер:
568 б
Скачать
PROGRAM GRPROBA;
Uses CRT,GRAPH;
var
Driver,Regim,i: Integer;
s:string;
c:char;
BEGIN
Driver:=VGA;
Regim:=VGAHi;
InitGraph(Driver,Regim,'D:\tp70\bgi');

for i:=0 to 11 do
begin
ClearDevice;
if i<11 then
SettextStyle(i,0,5)
else
SettextStyle(i,0,30);
str(i,s);
OutTextXY(50,150,'shrift '+s);
OutTextXY(50,350,'агббЄЁ© '+s);
readln;
end;
closegraph;
end.
Соседние файлы в папке graph