Правила форума
Outtxtxy.PASЯзык:
Русский
English
{ Пример программы для процедуры OutTextXY }
uses Graph;
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0);
OutText('Inefficient');
ReadLn;
OutTextXY(GetX, GetY, 'Also inefficient');
ReadLn;
ClearDevice;
OutTextXY(0, 0, 'Perfect!'); { Заменяет верхнюю надпись }
ReadLn;
CloseGraph;
end.
var
Gd, Gm : Integer;
begin
Gd := Detect;
InitGraph(Gd, Gm, 'X:\BP');
if GraphResult <> grOk then
Halt(1);
MoveTo(0, 0);
OutText('Inefficient');
ReadLn;
OutTextXY(GetX, GetY, 'Also inefficient');
ReadLn;
ClearDevice;
OutTextXY(0, 0, 'Perfect!'); { Заменяет верхнюю надпись }
ReadLn;
CloseGraph;
end.
::
::
::
