Рисование с помощью мыши. Нарисовать окружность вписанную в треугольник

@BRYANT32 · Регистрация: 01.12.2011

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

Нужно нарисовать окружность вписанную в треугольник , а именно- зажимаем кнопку мыши и двигаем-рисуется линия, отпускаем-не рисуется.Это делается с помошью драйвера мыши.

@Puporev · 18.02.2012, 16:25

А в каком это Паскале нужно?

Добавлено через 2 минуты

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

нарисовать окружность вписанную в треугольник

А ты вообще сможешь это мышкой? В Пайнте попробуй...

@BRYANT32 · 19.02.2012, 13:49 **[ТС]**

В Turbo. Это конечно не получится вроде, но если сначала нарисовать окружность а потом линиями простыми достроить до треугольника?

Добавлено через 14 часов 53 минуты
Могу я рассчитывать на помощь?

@Puporev · 19.02.2012, 13:51

От меня нет. Могу только сказать что в инете есть много модулей для работы с мышью, нужно поискать.

@BRYANT32 · 19.02.2012, 16:14 **[ТС]**

а не подскажете как сделать чтобы при нажатии на клавишу мыши-рисовало, а при отпуске-нет?

@Puporev · 19.02.2012, 16:27

В принципе так

Pascal
1
2
if отпущена then moveto(x,y)
else lineto(x,y);

Добавлено через 6 минут
В принципе нужно написать 2 процедуры

Pascal
1
2
3
4
5
6
7
8
procedure MouseUp(x,y:integer);
begin
moveto(x,y);
end;
procedure MouseDown(x,y:integer);
begin
lineto(x,y);
end;

Добавлено через 33 секунды
Естественно внутри процедур и всякие прерывания

@BRYANT32 · 25.02.2012, 18:33 **[ТС]**

Если можете помоги пжл, буду благодарен: вообщем программа рисует сначала треугольник( зажимаем левую кнопку мыши-рисуется линия отпускаем-перестает рисоваться, потом переносим курсор куда нить нажимаем правую кнопку -построили треугольник, Задача : Теперь при нажатии мыши нужно нарисовать окружность , вписанную в этот треугольник.

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
uses crt,graph,mouse;
Var x1,y1,x2,y2,x3,y3:integer;
    a,b,c,r,p :real;
 log :locrec;
 gDriver, gMode :integer;
 
Begin
 gDriver:=Detect;
 gMode:=0;
 InitGraph(gDriver, gMode,'..\BGI');
 setbkcolor(green);
 mshow;
 mcolrange(40,GetMaxX-40);
 mrowrange(40,GetMaxY-40);
 setcolor(white);
 line(40,40,GetMaxX-40,40);
 line(40,40,40,GetMaxY-40);
 line(40,GetMaxY-40,GetMaxX-40,GetMaxY-40);
 line(GetMaxX-40,40,GetMaxX-40,GetMaxY-40);
 mpos(log);
 
 repeat
 mpressed(0,log);
 if log.opcount=1 then begin
 x1:=log.column;
 y1:=log.row;
 end;
 
 mreleased(0,log);
 if log.buttonstatus=0 then begin
 x2:=log.column;
 y2:=log.row;
 line(x1,y1,x2,y2);
 end;
 
 
 mpressed(1,log);
 if log.opcount=1 then begin
 x3:=log.column;
 y3:=log.row;
 line(x1,y1,x3,y3);
 line(x2,y2,x3,y3);
 end;
 until keypressed;
 a:=(sqrt(sqr(x2-x1)+sqr(y2-y1)));
 b:=(sqrt(sqr(x3-x1)+sqr(y3-y1)));
 c:=(sqrt(sqr(x3-x2)+sqr(y3-y2)));
 p:=(a+b+c)/2;
 r:=sqrt(p-a)*(p-b)*(p-c)/p;
 circle(100, 100,5);
 CloseGraph;
 End.

@BRYANT32 · 02.03.2012, 23:16 **[ТС]**

Половину сделал, теперь не знаю как описать треугольник:препод говорит что тут геометрия пошла дальше, а я в ней не фурычу.Вот код

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
uses crt,graph,mouse;
Var x1 ,x4,y4,y1,x2,y2,x3,y3:integer;
    a,b,c,r,p :real;
 log :locrec;
 gDriver, gMode :integer;
 
Begin
 gDriver:=Detect;
 gMode:=0;
 InitGraph(gDriver, gMode,'..\BGI');
 setbkcolor(green);
 mshow;
 mpos(log);
 mcolrange(40,GetMaxX-40);
 mrowrange(40,GetMaxY-40);
 setcolor(white);
 line(40,40,GetMaxX-40,40);
 line(40,40,40,GetMaxY-40);
 line(40,GetMaxY-40,GetMaxX-40,GetMaxY-40);
 line(GetMaxX-40,40,GetMaxX-40,GetMaxY-40);
 repeat
 mpressed(0,log);
 if log.opcount=0 then begin
 x1:=log.column;
 y1:=log.row;
 end;
 mreleased(0,log);
 if log.buttonstatus=0 then begin
 x2:=log.column;
 y2:=log.row;
 circle(x1,y1,round(sqrt(sqr(x2-x1)+sqr(y2-y1))));
  end;
 until keypressed;
 CloseGraph;
 End.

Новые блоги и статьи Все статьи Все блоги /
Повышаем производительность игры на Unity 6 с GPU Resident Drawer GameUnited 11.06.2025 Недавно копался в новых фичах Unity 6 и наткнулся на GPU Resident Drawer - штуку, которая заставила меня присвистнуть от удивления. По сути, это внутренний механизм рендеринга, который автоматически. . .	Множества в Python py-thonny 11.06.2025 В Python существует множество структур данных, но иногда я сталкиваюсь с задачами, где ни списки, ни словари не дают оптимального решения. Часто это происходит, когда мне нужно быстро проверять. . .	Работа с ccache/sccache в рамках C++ Loafer 11.06.2025 Утилиты ccache и sccache занимаются тем, что кешируют промежуточные результаты компиляции, таким образом ускоряя последующие компиляции проекта. Это означает, что если проект будет компилироваться. . .	Настройка MTProxy Loafer 11.06.2025 Дополнительная информация к инструкции по настройке MTProxy: Перед сборкой проекта необходимо добавить флаг -fcommon в конец переменной CFLAGS в Makefile. Через crontab -e добавить задачу: 0 3. . .	Изучаем Docker: что это, как использовать и как это работает Mr. Docker 10.06.2025 Суть Docker проста - это платформа для разработки, доставки и запуска приложений в контейнерах. Контейнер, если говорить образно, это запечатанная коробка, в которой находится ваше приложение вместе. . .
Тип Record в C# stackOverflow 10.06.2025 Многие годы я разрабатывал приложения на C#, используя классы для всего подряд - и мне это казалось естественным. Но со временем, особенно в крупных проектах, я стал замечать, что простые классы. . .	Разработка плагина для Minecraft Javaican 09.06.2025 За годы существования Minecraft сформировалась сложная экосистема серверов. Оригинальный (ванильный) сервер не поддерживает плагины, поэтому сообщество разработало множество альтернатив. CraftBukkit. . .	Dapper - лучший среди микроORM под C# UnmanagedCoder 09.06.2025 Знаете, в мире ORM-инструментов для . NET существует негласная иерархия. На вершине массивных фреймворков возвышается Entity Framework - неповоротливый, но всемогущий. А в категории легковесных. . .	Сравнение GCC 14 и Clang 18 компиляторов C для HPC bytestream 08.06.2025 В высокопроизводительных вычислениях (HPC) выбор компилятора - это ход, способный радикально изменить производительность всей системы. Работая последние 15 лет с критическими HPC-системами, я видел. . .	Всё о конфигурации ASP.NET Core stackOverflow 08.06.2025 Старый добрый web. config, похоже, отправился на пенсию вместе с классическим ASP. NET. За годы работы с различными проектами я убедился, что хорошо организованная конфигурация – это половина успеха. . .

@BRYANT32 0 / 0 / 0 Регистрация: 01.12.2011 Сообщений: 20

	Рисование с помощью мыши. Нарисовать окружность вписанную в треугольник 18.02.2012, 13:12. Показов 3886. Ответов 7 Метки нет (Все метки) Нужно нарисовать окружность вписанную в треугольник , а именно- зажимаем кнопку мыши и двигаем-рисуется линия, отпускаем-не рисуется.Это делается с помошью драйвера мыши. 0

@BRYANT32 0 / 0 / 0 Регистрация: 01.12.2011 Сообщений: 20
	19.02.2012, 13:49 [ТС]
	В Turbo. Это конечно не получится вроде, но если сначала нарисовать окружность а потом линиями простыми достроить до треугольника? Добавлено через 14 часов 53 минуты Могу я рассчитывать на помощь? 0

@Puporev Почетный модератор 64312 / 47609 / 32742 Регистрация: 18.05.2008 Сообщений: 115,181
	19.02.2012, 13:51
	От меня нет. Могу только сказать что в инете есть много модулей для работы с мышью, нужно поискать. 0

@BRYANT32 0 / 0 / 0 Регистрация: 01.12.2011 Сообщений: 20
	19.02.2012, 16:14 [ТС]
	а не подскажете как сделать чтобы при нажатии на клавишу мыши-рисовало, а при отпуске-нет? 0