Такая задача:
......
outtext('Vvedite chislo ot 0 do 256');
.....
как сделать так чтобы я смог ввести число в любом месте эрана, например мне нужно после слов 'vvedite chislo ot 1 do 256'.
заранее спасиб.
gotoxy()
Uses Graph;
Var
grDriver : Integer;
grMode : Integer;
ErrCode : Integer;
s : String;
sx,sy : Integer;
Begin
grDriver:=Detect;
InitGraph(grDriver, grMode, 'c:bpbgi');
ErrCode:=GraphResult;
If ErrCode = grOk Then
Begin
{ Графика }
s:='Enter something here:';
{ Запомнили текущее CP }
sx:=GetX;
sy:=GetY;
OutText(s);
{ Подсчитали новое значение CP }
sx:=sx+TextWidth(s);
sy:=sy+TextHeight(s);
{ Переместили CP }
MoveTo(sx,sy);
{ Проверка перемещения указателя }
PutPixel(sx,sy,Red);
ReadLn;
CloseGraph;
End
Else WriteLn('Ошибка инициализации графики:', GraphErrorMsg(ErrCode));
End.
2 Gluk
Виноват, исправлюсь ;D