23 / 17 / 6
Регистрация: 18.10.2018
Сообщений: 270
1

На экране изображен прямоугольник. Необходимо предоставить возможность управления его размерами и положением

08.05.2019, 12:46. Показов 1139. Ответов 1
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
На экране изображена прямоугольник. Необходимо предоставить возможность управления его размерами и положением:
  • клавиша ">" увеличивает ширину на 5 точек;
  • клавиша "<" уменьшает ширину на 5 точек;
  • клавиша "+" увеличивает высоту на 5 точек;
  • клавиша "-" уменьшает высоту на 5 точек;
  • клавиши управления курсором "←", "→", "↑", "↓" перемещают прямоугольник по экрану.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
08.05.2019, 12:46
Ответы с готовыми решениями:

Составить программу для управления размерами прямоугольника и его положения на экране
Составить программу для управления размерами прямоугольника и его положения на экране. Левый...

Необходимо в корзине предоставить возможность выбора размера и цвета
Необходимо в корзине предоставить возможность выбора размера и цвета. На данный момент необходимые...

Необходимо предоставить людям возможность заносить документы с таблицами в сети
Суть вопроса в следующем: Имеется технология аналогичная 'гаранту' но в сети. Необходимо...

Word: вставка объектов и управление их положением и размерами
Сейчас пишу программу для ворда и столкнулся с формулами, которые нельзя написать через бэйсик. у...

1
Почетный модератор
64288 / 47587 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
08.05.2019, 14:36 2
Лучший ответ Сообщение было отмечено Vladislav9784 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
uses graph,crt;
procedure rect(x,y,w,h,c:integer);
begin
setcolor(c);
rectangle(x,y,x+w,y+h);
end;
var x,y,w,h:integer;
    c:char;
begin
initgraph(x,y,'');
outtextXY(100,20,'(>) w+5 (<) w-5 (+) h+5 (-) h-5 strelki - dvizenie Esc - exit');
x:=getmaxX div 2;
y:=getmaxY div 2;
w:=30;
h:=20;
rect(x,y,w,h,15);
repeat
  c:=readkey;
  if c=#0 then c:=readkey;
  case c of
  '>':begin
      rect(x,y,w,h,0);
      w:=w+5;
      rect(x,y,w,h,15);
     end;
  '<':begin
      rect(x,y,w,h,0);
      if w>5 then w:=w-5;
      rect(x,y,w,h,15);
     end;
 '+':begin
      rect(x,y,w,h,0);
      h:=h+5;
      rect(x,y,w,h,15);
     end;
  '-':begin
      rect(x,y,w,h,0);
      if h>5 then h:=h-5;
      rect(x,y,w,h,15);
     end;
  #75:if x>5 then
       begin
        rect(x,y,w,h,0);
        x:=x-5;
        rect(x,y,w,h,15);
       end;
  #77:if x<getmaxX-w-5 then
       begin
        rect(x,y,w,h,0);
        x:=x+5;
        rect(x,y,w,h,15);
       end;
  #72:if y>35 then
        begin
         rect(x,y,w,h,0);
         y:=y-5;
         rect(x,y,w,h,15);
        end;
  #80:if y<getmaxY-h-5 then
        begin
         rect(x,y,w,h,0);
         y:=y+5;
         rect(x,y,w,h,15);
        end;
  #27:exit;
  end;
until c=#27;
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
08.05.2019, 14:36
Помогаю со студенческими работами здесь

Нарисовать на экране прямоугольник и заставить его двигаться по горизонтали
Зараннее вам благодарен)


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2023, CyberForum.ru