Форум программистов, компьютерный форум, киберфорум
Наши страницы
Turbo Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
m1Rr0r
247 / 230 / 45
Регистрация: 05.02.2010
Сообщений: 3,283
Завершенные тесты: 2
1

Нарисовать сектор произвольного радиуса

03.12.2011, 19:15. Просмотров 944. Ответов 3
Метки нет (Все метки)

сосбственно вопрос, как нарисовать сектор произвольного радиуса, но чтобы он был похож на стрелку.(нужно для часов)
вот пример на рисунке(интересует именно так нарисовать как на картинке)
помогите гуру )
0
Миниатюры
Нарисовать сектор произвольного радиуса  
Лучшие ответы (1)
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
03.12.2011, 19:15
Ответы с готовыми решениями:

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

Нарисовать сектор окружности
Помогите нарисовать сектор окружности. (любой)

Нарисуйте "бублик" желтого цвета произвольного радиуса
Нарисуйте "бублик" желтого цвета произвольного радиуса.

Нарисовать в режиме 320х200 точек для видеоадаптера VGA окружность заданного радиуса
Помогите пожайлуста! Нужно нарисовать в режиме 320х200 точек для видеоадаптера...

Нарисовать окружность радиуса 150 пикселей красного цвета с центром в середине экрана
помогите пожалуйста

3
m1Rr0r
247 / 230 / 45
Регистрация: 05.02.2010
Сообщений: 3,283
Завершенные тесты: 2
03.12.2011, 19:26  [ТС] 2
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

ок добавлю код...
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program test;
uses crt,graph;
var gd,gm,a1,a2:integer;
 
begin
clrscr;
detectgraph(gd,gm);
initgraph(gd,gm,'');
setbkcolor(blue);
a1:=0;
a1:=a1-45;
a2:=45;
pieslice(getmaxx div 2,getmaxy div 2,a1,a2,50);
readkey;
closegraph;
end.
вместо рисунка один, получается рисунок 2...что не так ?
0
Миниатюры
Нарисовать сектор произвольного радиуса  
Puporev
Модератор
56111 / 42975 / 29726
Регистрация: 18.05.2008
Сообщений: 101,991
03.12.2011, 21:33 3
Если переходим через 360 градусов, нужно рисовать 2 сектора, отрицательное направление не рулит.

Pascal
1
2
3
4
a1:=0;
a2:=45;
pieslice(getmaxx div 2,getmaxy div 2,a1,a2,50);
pieslice(getmaxx div 2,getmaxy div 2,360-a2,360,50);
1
m1Rr0r
247 / 230 / 45
Регистрация: 05.02.2010
Сообщений: 3,283
Завершенные тесты: 2
04.12.2011, 00:32  [ТС] 4
спасибо)
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.12.2011, 00:32

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

Вычислить длину окружности произвольного радиуса и площадь соответствующего круга
Дано: окружность; R=5,6см. Найти:C-?, S-?. Написать программу для...

Нарисовать флаг, нарисовать график y=ctg x Нарисовать анимацию
Дело таково у меня сейчас практика, где я очень не успиваю сделать все свои...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2019, vBulletin Solutions, Inc.
Рейтинг@Mail.ru