Графические возможности паскаля
Автор Инна Дементьева задал вопрос в разделе Другие языки и технологии
Как использовать графические возможности паскаля? и получил лучший ответ
Ответ от Коваленко Олег[гуру]
На компьютере должны быть файлы EGAVGA.BGI и GRAPH.TPU.
Uses Crt,Graph; {подключаем требуемые модули}
Var
Gd,Gm:integer; {заводим необходимые переменные}
...
Gd:=Detect; InitGraph(Gd,Gm,''); if GraphResult<>grOk then Halt(1);
{переходим в графический режим}
...
SetColor(0); LineR(180*b-50-w*7,401-10*a[b,0],180*b-30+w*7); {непосредственно рисование}
Circle(320,240,Round(M*dvt/2));
{пример вырван из контекста некоторых программ}
...
CloseGraph; {используем этот оператор для возвращения в текстовый режим}
...
Ответ от Дима[гуру]
Вот готовая прога на Паскале с использованием модуля Graph
Program qraph;
uses crt,graph;
var x,y,z,a,i:integer;
t:string;
c:boolean;
label XY;
begin
randomize;
initgraph(x,y,'');
setfillstyle(0,4);
setbkcolor(5);
z:=10; x:=80; y:=30;
for i:=1 to 100 do
begin
Clearviewport;
z:=random(400);
a:=random(300);
line(x+z,y+a,x+z,(y+60)+a);
line(x+z,y+a,(x+50)+z,y+a);
line((x+50)+z,y+a,(x+50)+z,(y+60)+a);
line((x+50)+z,(y+60)+a,(x+110)+z,(y+60)+a);
line((x+110+z),(y+60)+a,(x+110)+z,(y+110)+a);
line((x+110)+z,(y+110)+a,(x+50)+z,(y+110)+a);
line((x+50)+z,(y+110)+a,(x+50)+z,(y+170)+a);
line((x+50)+z,(y+170)+a,x+z,(y+170)+a);
line(x+z,(y+170)+a,x+z,(y+110)+a);
line(x+z,(y+110)+a,(x-60)+z,(y+110)+a);
line((x-60)+z,(y+110)+a,(x-60)+z,(y+60)+a);
line((x-60)+z,(y+60)+a,x+z,(y+60)+a);
delay(5535);
setcolor(Yellow);
end;
t:='Pascal';
outtextxy(x+z+7,y+a+85,t);
readln;
closegraph;
end.
Здесь некоторые функции модуля Graph:
Вот готовая прога на Паскале с использованием модуля Graph
Program qraph;
uses crt,graph;
var x,y,z,a,i:integer;
t:string;
c:boolean;
label XY;
begin
randomize;
initgraph(x,y,'');
setfillstyle(0,4);
setbkcolor(5);
z:=10; x:=80; y:=30;
for i:=1 to 100 do
begin
Clearviewport;
z:=random(400);
a:=random(300);
line(x+z,y+a,x+z,(y+60)+a);
line(x+z,y+a,(x+50)+z,y+a);
line((x+50)+z,y+a,(x+50)+z,(y+60)+a);
line((x+50)+z,(y+60)+a,(x+110)+z,(y+60)+a);
line((x+110+z),(y+60)+a,(x+110)+z,(y+110)+a);
line((x+110)+z,(y+110)+a,(x+50)+z,(y+110)+a);
line((x+50)+z,(y+110)+a,(x+50)+z,(y+170)+a);
line((x+50)+z,(y+170)+a,x+z,(y+170)+a);
line(x+z,(y+170)+a,x+z,(y+110)+a);
line(x+z,(y+110)+a,(x-60)+z,(y+110)+a);
line((x-60)+z,(y+110)+a,(x-60)+z,(y+60)+a);
line((x-60)+z,(y+60)+a,x+z,(y+60)+a);
delay(5535);
setcolor(Yellow);
end;
t:='Pascal';
outtextxy(x+z+7,y+a+85,t);
readln;
closegraph;
end.
Здесь некоторые функции модуля Graph:
Ответ от 3 ответа[гуру]
Привет! Вот подборка тем с похожими вопросами и ответами на Ваш вопрос: Как использовать графические возможности паскаля?