Форум программистов, компьютерный форум, киберфорум
Turbo Pascal
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/21: Рейтинг темы: голосов - 21, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 01.12.2011
Сообщений: 20

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

18.02.2012, 13:12. Показов 3886. Ответов 7
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Нужно нарисовать окружность вписанную в треугольник , а именно- зажимаем кнопку мыши и двигаем-рисуется линия, отпускаем-не рисуется.Это делается с помошью драйвера мыши.
0
cpp_developer
Эксперт
20123 / 5690 / 1417
Регистрация: 09.04.2010
Сообщений: 22,546
Блог
18.02.2012, 13:12
Ответы с готовыми решениями:

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

Построить квадрат и вписанную в него окружность
Построить квадрат и вписанную в него окружность. Добавлено через 2 часа 1 минуту Вот что у меня получилось uses graph; var...

Нарисовать фигуру, вписанную в окружность заданного радиуса и имеющую внутреннюю вписанную окружность
Добрый день. Если есть возможность, подскажите пожалуйста код программы в Delphi для того, чтобы нарисовать фигуру , вписанную в...

7
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
18.02.2012, 16:25
А в каком это Паскале нужно?

Добавлено через 2 минуты
Цитата Сообщение от BRYANT32 Посмотреть сообщение
нарисовать окружность вписанную в треугольник
А ты вообще сможешь это мышкой? В Пайнте попробуй...
0
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
0 / 0 / 0
Регистрация: 01.12.2011
Сообщений: 20
19.02.2012, 16:14  [ТС]
а не подскажете как сделать чтобы при нажатии на клавишу мыши-рисовало, а при отпуске-нет?
0
Почетный модератор
 Аватар для Puporev
64312 / 47609 / 32742
Регистрация: 18.05.2008
Сообщений: 115,181
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 секунды
Естественно внутри процедур и всякие прерывания
0
0 / 0 / 0
Регистрация: 01.12.2011
Сообщений: 20
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.
0
0 / 0 / 0
Регистрация: 01.12.2011
Сообщений: 20
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.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
raxper
Эксперт
30234 / 6612 / 1498
Регистрация: 28.12.2010
Сообщений: 21,154
Блог
02.03.2012, 23:16
Помогаю со студенческими работами здесь

Задачи на вписанную в треугольник окружность.
1.2) В равнобедренном треугольнике ABC AB= BC на основании AC отмечена точка M, что AM= a, MC=b.В треугольники ABM и CBM вписаны...

Нарисовать звезду, вписанную в окружность
Добрый день есть окружность с радиусов A вписанная в окружность с радиусом 2A, необходимо нарисовать правильную пятиконечную звезду, с...

PaintBox: нарисовать окружность, вписанную в квадрат
Здравствуйте мне нужно нарисовать окружность вписанную в квадрат(их количество указывает пользователь) вот код когда квадрат вписанный в...

Как построить вписанную в треугольник окружность используя библиотеку Pillow?
Сам треугольник у меня строить получается,а вот окружность уже проблема.Как это может выглядеть?

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


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

Или воспользуйтесь поиском по форуму:
8
Ответ Создать тему
Новые блоги и статьи
Повышаем производительность игры на 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. За годы работы с различными проектами я убедился, что хорошо организованная конфигурация – это половина успеха. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2025, CyberForum.ru
OSZAR »