1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
| Ilius |
Сообщение
#1
|
|
Новичок ![]() Группа: Пользователи Сообщений: 27 Пол: Мужской Реальное имя: Игорь Репутация: 0 |
Составить программу для управления размерами прямоугольника и его положением на экране.Левый верхний угол исходного прямоугольника расположен в точке (50,50), правый нижний в точке(100,100).Управление выполняется клавишами:
">"-увелич.ширину прямоугольника на 5 точек; "<"-уменьш.ширину прямоугольника на 5 точек; "+" -увелич. высоту на 5 точек; "-" уменьшает высоту на 5 точек. Клавиши управл.курсором-вызывают перемещение в соответствующем направлении. "Ввод завершает работу программы. |
![]() ![]() |
| MAXXX |
Сообщение
#2
|
|
В поисках Занаду ![]() Группа: Пользователи Сообщений: 17 Пол: Мужской Реальное имя: Андрей Максай Репутация: 0 |
Уменьшают ширину-справа, слева или все равно как?
|
Ilius Графика 20.05.2007 15:53
Ilius Все равно, просто уменьшают или увеличивают. 20.05.2007 16:07
Tan Что - то такое ?
uses crt, Graph;
var x,y,x1,y1,
… 20.05.2007 18:52
volvo Опять ошибаемся? Не так обрабатываются расширенные… 20.05.2007 19:04
klem4 procedure draw;
begin
clrscr; // <-------------… 20.05.2007 19:05
Tan volvo, спасибо, это моя частая ошибка, я просто то… 20.05.2007 19:09
volvo А затем, что в графике надо использовать процедуры… 20.05.2007 19:12
Tan Просто в данном случае визуальная разница лишь в т… 20.05.2007 19:14
volvo Кстати, здесь можно обойтись и вообще без постоянн… 20.05.2007 19:29
Ilius Почему то не работает, запускаю экрат мигнул, разг… 20.05.2007 21:18
klem4 InitGraph(gd, gm, 'ТУТ укажи полный пусть к па… 20.05.2007 22:29
Ilius Спасибо вам всем, все работает, выручили!… 20.05.2007 23:13![]() ![]() |
|
Текстовая версия | 8.11.2025 6:06 |