Версия для печати темы

Нажмите сюда для просмотра этой темы в обычном формате

Форум «Всё о Паскале» _ Теоретические вопросы _ Как передвинуть курсор

Автор: Гия 2.04.2003 15:04

Такая задача:
         
                    ......  
     outtext('Vvedite chislo ot 0 do 256');
                    .....
как сделать так чтобы я смог ввести число в любом месте эрана, например мне нужно после слов 'vvedite chislo ot 1 do 256'.

заранее спасиб.

Автор: Clane 2.04.2003 17:39

gotoxy()

Автор: ozzy 3.04.2003 15:03

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.

Автор: GLuk 3.04.2003 23:28

Цитата
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.


Читай вопрос повнимательней  :(
Во-первых - на него уже ответили, хоть и пространно
Во-вторых - написал бы тогда уж перевод в текстовые координаты, т.к. хоть это не указывается явно, но подразумевается, что используется стандартный инпут, реализованный в паскале в виде ReadLn;

Автор: ozzy 4.04.2003 8:29

2 Gluk
Виноват, исправлюсь ;D