Одновременно вывод рисунка и ввод текста, Нарисовать рисунок и обеспечить ввод данных Опции

[natka]

Необходимо создать рисунок и определить попадает ли точка с введенными координатами в область рисунка. Как сделать так, чтобы в графическом режиме (рисунок на экране) можно было вывести сообщение и ввести данные с клавиатуры? Может поможет процедура SetViewPort - вывод рисунка в отдельное окно? Но до меня не доходит как ей пользоваться :-(
Помогите, кто раньше сталкивался... Плз

[comanche]

Процедуру ввода информации в графическом режиме можешь написать сам(a), если никак - кину мой вариант.

А выводить информацию можно при помощи OutText и OutTextXy. Если информация числовая, сначала нужно преобразовать её в строку процедурой Str.

Сообщение отредактировано: comanche - 14.05.2006 22:13

[Malice]

Делаешь "DirectVideo:=false;", потом write работает.

Сообщение отредактировано: Malice - 14.05.2006 22:15

[natka]

У меня он в разных окнах - графика закрывается, потом идет текст нормально, а нужно чтобы в одном окне.

[klem4]

Как-то вот таким образом можешь попробовать обыграть

uses WinCrt, Graph;

var

  gd, gm, mx, my : integer;

  ch : char;

  s  : string;

  n  : integer;

begin

  gd := detect;
  initgraph(gd, gm, '');

  mx := getmaxx div 2;
  my := getmaxy div 2;

  n := 0;
  s := '';

  repeat

    ch := readkey;

    if ch in ['0'..'9'] then begin
      outtextxy(mx + n*10, my, ch);
      s := s + ch;
      inc(n);
    end;
  until ch = #13;

  val(s, n, gd);

  writeln('s = ', s);
  writeln('n = ', n);

  closegraph;
end.