FreePascal.ru

А можно ли как-нибудь, в середине программы, отключить действие одного модуля, и подключить другой

SSerge когда фокус стоит на консольном окне, график обрабатывается, как только активируешь графическое ничего не работает.

Добавлено спустя 2 минуты 43 секунды:
Хах, да, учусь.
Стоит Винда 10. Недавно читал, что как то считывание можно сделать через WinApi. Не знаете?

Добавлено спустя 6 минут ...

Глубоко извиняюсь, совсем не внимателен. Вот нужный код.

Да, работало, сначало нужно в текстовом режиме ввести необходимые данные для функции, и отдельным пунктом меню вывести график и с помощью клавиш масштабировать его

Добавлено спустя 55 минут 6 секунд:
Попробовал Setgraphmode, всё равно считывается в графическом, как только делаешь окно графики ...

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

Vadim, если убрать модуль crt, то перестанет работать половина консольной программы, подсветка клавиш, очистка экрана.

Модуль граф, после работы в текстовом режиме, не считывает клавиатуру
program labikthree;


uses wincrt,graph,crt;

const xr=5;yr=5;ac=14;pa=7; q=5;
var rk:char; menu:array [1..q] of string; n,n1:int64;h, kor,acrt,bcrt,yc:real;
place:integer; i:longint;gd,gm ...