Необходимо создать рисунок и определить попадает ли точка с введенными координатами в область рисунка. Как сделать так, чтобы в графическом режиме (рисунок на экране) можно было вывести сообщение и ввести данные с клавиатуры? Может поможет процедура SetViewPort - вывод рисунка в отдельное окно? Но до меня не доходит как ей пользоваться :-(
Помогите, кто раньше сталкивался... Плз
Процедуру ввода информации в графическом режиме можешь написать сам(a), если никак - кину мой вариант.
А выводить информацию можно при помощи OutText и OutTextXy. Если информация числовая, сначала нужно преобразовать её в строку процедурой Str.
Делаешь "DirectVideo:=false;", потом write работает.
У меня он в разных окнах - графика закрывается, потом идет текст нормально, а нужно чтобы в одном окне.
Как-то вот таким образом можешь попробовать обыграть
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.