Правила форума
Getx.PASЯзык:
Русский
English
{Getx.PAS}
uses Graph;
var
Gd, Gm : Integer;
X, Y : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
OutText('Starting here. ');
X := GetX;
Y := GetY;
OutTextXY(20, 10, 'Now over here...');
OutTextXY(X, Y, 'Now back over here.');
ReadLn;
CloseGraph;
end.
var
Gd, Gm : Integer;
X, Y : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
OutText('Starting here. ');
X := GetX;
Y := GetY;
OutTextXY(20, 10, 'Now over here...');
OutTextXY(X, Y, 'Now back over here.');
ReadLn;
CloseGraph;
end.
::
::
::
