Как корректно считать переменную в графическом режиме

@handkock · Регистрация: 15.10.2013

Author24 — интернет-сервис помощи студентам

Здравствуйте. Есть такой вопрос. Есть задача, которую нужно решить в графическом режиме. Но проблема в чём. Когда я ввожу writeln, readln и считываю переменную, так как мне надо вывести заданное n раз количество прямоугольников. Когда беру в комментарии readln, считывающий переменную, графический режим показывает линий, цвета и т.д., другими словами хоть что-то происходит. Когда раскомменчиваю - не показывает в графическом окне ничего. Вопрос в чём, как тогда считать переменную в графическом режиме, чтоб он показывал. Вот набросок, чтоб хотя бы было понятие о программе. Заранее спасибо.

Pascal

uses graph;
type pr=record
xv:integer;
yv:integer;
xn:integer;
yn:integer;
m:integer;
end;
var a:array [1..100000] of pr;
n,i,d,m,x0,y0:integer;
begin
d:=VGA;
m:=VGAHi;
initgraph(d,m,'c:\FPC\2.4.4\units\i386-win32\graph');
//write('Vvedite kolicestvo priamougolinikov:');
readln(n);
setcolor(yellow);
 
 
line(0,0,getmaxx,getmaxy);
readln;
//for i:=1 to n do
 
 
 
closegraph;
end.

@volvo · 27.02.2014, 22:16

Сообщение от handkock

Когда раскомменчиваю - не показывает в графическом окне ничего

Правильно, до тех пор, пока не введешь данные в консольном окне - программа дальше не пойдет. Введи число, нажми Enter - увидишь свою желтую диагональную линию...

P.S. Вот тут: Ввод данных и graph выкладывалась функция ввода строки в граф. режиме, если что... Ее тоже можно использовать .

@volvo Супер-модератор 32835 / 21172 / 8148 Регистрация: 22.10.2011 Сообщений: 36,432 Записей в блоге: 8
	27.02.2014, 22:16	2
	Сообщение от handkock Когда раскомменчиваю - не показывает в графическом окне ничего Правильно, до тех пор, пока не введешь данные в консольном окне - программа дальше не пойдет. Введи число, нажми Enter - увидишь свою желтую диагональную линию... P.S. Вот тут: Ввод данных и graph выкладывалась функция ввода строки в граф. режиме, если что... Ее тоже можно использовать . 1