Добавил:
Upload
Опубликованный материал нарушает ваши авторские права? Сообщите нам.
Вуз:
Предмет:
Файл:asd / корзина / лекции по TP / Lecture_Pascal / graph / CHEKSHRI
.PAS 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.
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