IPB
ЛогинПароль:

> Правила раздела!

1. Заголовок или название темы должно быть информативным !
2. Все тексты фрагментов программ должны помещаться в теги [code] ... [/code] или [code=pas] ... [/code].
3. Прежде чем задавать вопрос, см. "FAQ" и используйте ПОИСК !
4. НЕ используйте форум для личного общения!
5. Самое главное - это раздел теоретический, т.е. никаких задач и программ (за исключением небольших фрагментов) - для этого есть отдельный раздел!

 
 Ответить  Открыть новую тему 
> Одновременно вывод рисунка и ввод текста, Нарисовать рисунок и обеспечить ввод данных
сообщение
Сообщение #1


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский

Репутация: -  0  +


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


Новичок
*

Группа: Пользователи
Сообщений: 41
Пол: Мужской
Реальное имя: Эдд

Репутация: -  0  +


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

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

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


--------------------
Released by Demons
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #3


Профи
****

Группа: Пользователи
Сообщений: 705
Пол: Мужской

Репутация: -  20  +


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

Сообщение отредактировано: Malice -
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #4


Новичок
*

Группа: Пользователи
Сообщений: 39
Пол: Женский

Репутация: -  0  +


У меня он в разных окнах - графика закрывается, потом идет текст нормально, а нужно чтобы в одном окне.
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #5


Perl. Just code it!
******

Группа: Пользователи
Сообщений: 4 100
Пол: Мужской
Реальное имя: Андрей

Репутация: -  44  +


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

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.




--------------------
perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 




- Текстовая версия 21.08.2017 9:49
Хостинг предоставлен компанией "Веб Сервис Центр" при поддержке компании "ДокЛаб"