Нарисовать прямоугольник и заполнить его цветом после нажатия на Enter

@alexsius · Регистрация: 04.12.2014

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

Написать программу построения прямоугольника и заполнения его некоторым цветом после нажатия на клавишу Enter.

Pascal

program aa;
uses graph,crt;
var c,a,b:integer;
k:char;
begin
randomize;
a:=Detect;InitGraph(a,b,'');
 
c:=random(14);
SetBkColor(c);SetColor(c);
rectangle(120,120,260,180);
k:=readkey;
if k=#13 then
begin
setfillstyle(1,c);
bar(120,120,260,180);
 
end;
end.

Спасибо!)

@volvo · 31.03.2015, 23:04

Pascal

program aa;
uses graph,crt;
var c,a,b:integer;
k:char;
begin
  randomize;
  a:=Detect;InitGraph(a,b,'');
 
  c:=random(14);
  SetBkColor(c);SetColor(c);
  rectangle(120,120,260,180);
  k:=readkey;
  if k=#13 then
  begin
    setfillstyle(1,c);
    bar(120,120,260,180);
  end;
 
  readln; // чтобы увидеть заполненный прямоугольник
  closegraph;
 
end.

@alexsius · 31.03.2015, 23:06 **[ТС]**

я нажимаю у меня не закрашивает

@volvo · 31.03.2015, 23:12

При работе с модулем CRT + Graph для отлова клавиш программой нужно активировать консольное окно, а не графическое. Иначе нажатия просто не будут доходить до программы.

Вот так все прекрасно работает без переключения на консоль:

Pascal

program aa;
uses wingraph,wincrt;
var
  gd, gm : smallint;
  c : integer;
  k:char;
begin
  randomize;
  gd := d8bit; gm := m800x600;
  InitGraph(gd,gm,'');
 
  c:=random(14);
  SetBkColor(c);SetColor(c);
  rectangle(120,120,260,180);
  k := #0;
  repeat
    if keypressed then k:=readkey;
  until k = #13;
 
  setfillstyle(1,c);
  bar(120,120,260,180);
 
  k := #0;
  repeat
    if keypressed then k:=readkey;
  until k = #13;
  closegraph;
end.

(если и это не сработает - то скачай вот отсюда архив: KeyPressed и ReadKey неработают , и распакуй его содержимое в папку с программой, там нормальный WinCRT. Я только что проверил именно с этими файлами, все сработало)

@alexsius 0 / 0 / 0 Регистрация: 04.12.2014 Сообщений: 64
	31.03.2015, 23:06 [ТС]	3
	я нажимаю у меня не закрашивает 0

	31.03.2015, 23:12

Нарисовать прямоугольник и заполнить его цветом после нажатия на Enter

Решение