Разделить окно двумя линиями: вертикальной и горизонтальной, проходящими по центру

@Hitchenson · Регистрация: 14.04.2012

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

Разделить окно двумя линиями: вертикальной и горизонтальной, проходящими по центру. Должны получиться 4 сектора окна. Если левая кнопка «мыши» нажата в разных секторах, то выводить квадрат со стороной 30pix разными типами заливки для каждого сектора.

@Puporev · 14.04.2012, 20:37

Паскаль какой?

@Hitchenson · 14.04.2012, 23:06 **[ТС]**

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

@Puporev · 15.04.2012, 07:24

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

мне без разницы на каком,

Тебе может и без разницы, но вот например в Турбо Паскале нет стандартных процедур для работы с мышью, а в АВС и АВС. net программы по разному пишут, так что удачи, разбирайтесь.

@Hitchenson · 15.04.2012, 17:25 **[ТС]**

да мне хотябы в ABC или Free увидеть код, у нас в универе странный паскаль стоит, и что за версия нам не говорят ><

@Puporev · 15.04.2012, 17:58

Паскаль АВС простой.

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
uses GraphABC,Events;
procedure MouseDown(x,y,mb: integer);
begin
if mb=1 then
 begin
  if(x>0)and(x<windowwidth div 2)and(y>0)and(y<windowheight div 2) then
   begin
    setbrushcolor(clRed);
    setbrushstyle(bsCross);
   end
  else if(x>windowwidth div 2)and(x<windowwidth)and(y>0)and(y<windowheight div 2) then
   begin
    setbrushcolor(clGreen);
    setbrushstyle(bsDiagCross);
   end
  else if(x>0)and(x<windowwidth div 2)and(y>windowheight div 2)and(y<windowheight) then
   begin
    setbrushcolor(clBlue);
    setbrushstyle(bsBDiagonal );
   end
  else if(x>windowwidth div 2)and(x<windowwidth)and(y>windowheight div 2)and(y<windowheight) then
   begin
    setbrushcolor(clBrown);
    setbrushstyle(bsFDiagonal );
   end;
  rectangle(x-15,y-15,x+15,y+15)
 end
end;
begin
line(0,windowheight div 2,windowwidth,windowheight div 2);
line(windowwidth div 2,0,windowwidth div 2,windowheight);
onmousedown:=mouseDown;
end.

@Hitchenson · 16.04.2012, 21:02 **[ТС]**

спасибо сейчас попробую)

Добавлено через 35 минут
немного нервирует то что нижние прямоугольники рисует во всю длину а не в заданном секторе) но думаю с этим сам справлюсь, просто разобью твой цикл на 2 одинаковых, и прямоугольники во 2ом задам координатами пониже) спасибо огромное помог получить екзамен автоматом считай)

@Puporev · 16.04.2012, 21:06

Не понял о чем ты буровишь, что не так?

@Hitchenson · 16.04.2012, 21:31 **[ТС]**

забавно проверил трижды, у меня выводит прямоугольники, столбы и чем ниже я нажимаю тем длинее как бы рисует этот столб, и еще мне тут уже подсказали что так просто не прокатит, прямоугольник должен рисовать именно в точке нажатия, тоесть углы от точки нажатия должны быть на одинаковом расстоянии если мышку не двигать с того места откуда нажал, сам это более менее могу сделать даже в этом паскале, но важно не это, мне нужно построить в задаче "динамику" тобишь если я увеличиваю окно то линии должны тоже увеличиваться (оставаясь границами для 4 секторов) и при этом когда увеличиваю допустим увеличивается 1ый сектор и точки который были во 2ом(правом верхнем) и 3ем (левом нижнем) секторах как бы попадают в новый 1ый сектор и перекрашиваются в его цвет, такая же херня должны быть с уменьшением, как это сделать ума не приложу....

Добавлено через 2 минуты
сфоткать не могу ибо леплю на ноуте а пишу сюда с компа) а там такое гавно что даже кнопки принтскрина нету >< странно что паскаль не лагает))

@Puporev · 16.04.2012, 21:34

rectangle(x-15,y-15,x+15,y+15) это и есть квадрат с центром в точке, где находится курсор мыши в момент нажатия клавиши.

@Hitchenson · 17.04.2012, 12:00 **[ТС]**

нашел косяк со столбами, проглядел Y, я тупица.

Добавлено через 1 минуту
дада, паследний y,не пропечатался , я поглядел на это 3 раза в упор и тока вот щас на 4ый заметил ><

Добавлено через 14 часов 23 минуты
все переделал сам)

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17

	Разделить окно двумя линиями: вертикальной и горизонтальной, проходящими по центру 14.04.2012, 19:32. Показов 3467. Ответов 10 Метки нет (Все метки) Разделить окно двумя линиями: вертикальной и горизонтальной, проходящими по центру. Должны получиться 4 сектора окна. Если левая кнопка «мыши» нажата в разных секторах, то выводить квадрат со стороной 30pix разными типами заливки для каждого сектора. 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	14.04.2012, 20:37
	Паскаль какой? 1

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17
	14.04.2012, 23:06 [ТС]
	мне без разницы на каком, я разберусь и переделаю) но нужно хотябы что то чтобы переделывать) просто как подступиться сам пока не знаю. 0

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17
	15.04.2012, 17:25 [ТС]
	да мне хотябы в ABC или Free увидеть код, у нас в универе странный паскаль стоит, и что за версия нам не говорят >< 0

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17
	16.04.2012, 21:02 [ТС]
	спасибо сейчас попробую) Добавлено через 35 минут немного нервирует то что нижние прямоугольники рисует во всю длину а не в заданном секторе) но думаю с этим сам справлюсь, просто разобью твой цикл на 2 одинаковых, и прямоугольники во 2ом задам координатами пониже) спасибо огромное помог получить екзамен автоматом считай) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	16.04.2012, 21:06
	Не понял о чем ты буровишь, что не так? Миниатюры 1

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17
	16.04.2012, 21:31 [ТС]
	забавно проверил трижды, у меня выводит прямоугольники, столбы и чем ниже я нажимаю тем длинее как бы рисует этот столб, и еще мне тут уже подсказали что так просто не прокатит, прямоугольник должен рисовать именно в точке нажатия, тоесть углы от точки нажатия должны быть на одинаковом расстоянии если мышку не двигать с того места откуда нажал, сам это более менее могу сделать даже в этом паскале, но важно не это, мне нужно построить в задаче "динамику" тобишь если я увеличиваю окно то линии должны тоже увеличиваться (оставаясь границами для 4 секторов) и при этом когда увеличиваю допустим увеличивается 1ый сектор и точки который были во 2ом(правом верхнем) и 3ем (левом нижнем) секторах как бы попадают в новый 1ый сектор и перекрашиваются в его цвет, такая же херня должны быть с уменьшением, как это сделать ума не приложу.... Добавлено через 2 минуты сфоткать не могу ибо леплю на ноуте а пишу сюда с компа) а там такое гавно что даже кнопки принтскрина нету >< странно что паскаль не лагает)) 0

@Puporev Почетный модератор 64314 / 47610 / 32743 Регистрация: 18.05.2008 Сообщений: 115,168
	16.04.2012, 21:34
	rectangle(x-15,y-15,x+15,y+15) это и есть квадрат с центром в точке, где находится курсор мыши в момент нажатия клавиши. 1

@Hitchenson 0 / 0 / 0 Регистрация: 14.04.2012 Сообщений: 17
	17.04.2012, 12:00 [ТС]
	нашел косяк со столбами, проглядел Y, я тупица. Добавлено через 1 минуту дада, паследний y,не пропечатался , я поглядел на это 3 раза в упор и тока вот щас на 4ый заметил >< Добавлено через 14 часов 23 минуты все переделал сам) 0

Разделить окно двумя линиями: вертикальной и горизонтальной, проходящими по центру

Решение