Мега Таракан
110 / 11 / 5
Регистрация: 24.05.2010
Сообщений: 227
1

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

29.04.2011, 00:47. Показов 2802. Ответов 2
Метки нет (Все метки)

Доброй ночи! Помогите нарисовать картинку в центре экрана с использованием Graph. Радиус окружности R(задается) Картинка должна быть точно такой (пунктирные линии должны также нарисованы). Заранее благодарен)
Изображения
 
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.04.2011, 00:47
Ответы с готовыми решениями:

Нарисовать линию
uses graph; var gd,gm:integer; begin initgraph(gd,gm,'c:\bp\bgi'); line(0,0,getmaxx,getmaxy);...

Нарисовать линию
Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.

Нарисовать штриховую линию в паскале
Нарисовать штриховую линию в паскале як намалювати штрихову лінію в паскалі?

Нарисовать ось координат без четвертей и место точек сделать линию
Нужно нарисовать вот такую ось координат только без четвертей и место точек сделать линию!!! Кол-во...

2
Мега Таракан
110 / 11 / 5
Регистрация: 24.05.2010
Сообщений: 227
29.04.2011, 03:43  [ТС] 2
Что-то сделал сам, но почему-то все криво выводит. В чем беда?
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
Uses GRAPH, CRT;
    
    Var
        Driver,Mode,R,xMax,yMax:Integer;
    Begin
    Driver:=Detect;
    Write('R = ');
    ReadLn(R);
    xMax:=GetMaxX;
    yMax:=GetMaxY;
    InitGraph(Driver,Mode,'C:\BORLANDP\BGI\');
    SetBkColor(0);{Устанавливаем черный цвет фона 0 - черный, 1 - синий и т.д. 15 - белый}
    SetColor(15);{Цвет линий - белый}
{-- Координатные оси --}
    Line(xMax Mod 2,0,xMax Mod 2,yMax Mod 2);
    Line(0,yMax Mod 2,xMax,yMax Mod 2);
{-- Дуга --}
    Arc(xMax Mod 2,yMax Mod 2,0,yMax Mod 2,R);
{-- Часть квадрата --}
    SetLineStyle(DashedLn,0,NormWidth);
    Line(xMax Mod 2,(yMax Mod 2)-((yMax Mod 2) - R),xMax Mod 2+R,(yMax Mod 2)-((yMax Mod 2) - R));
    Line(xMax Mod 2+R,R,xMax Mod 2+R,yMax Mod 2);
    ReadLn;
    RestoreCrtMode;
End.
0
Почетный модератор
64253 / 47553 / 32739
Регистрация: 18.05.2008
Сообщений: 115,182
29.04.2011, 08:05 3
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

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
Uses GRAPH,CRT;
Var  Driver,Mode,R,cx,cy,d:Integer;
Begin
clrscr;
Write('R = ');
ReadLn(R);
d:=r div 2;{половина радиуса для отступов от центра экрана}
Driver:=Detect;
InitGraph(Driver,Mode,'C:\BORLANDP\BGI\');
cx:=GetMaxX div 2;{координаты центра, сначала нужно войти в гр. режим,
                   потом определять размеры экрана}
cy:=GetMaxY div 2;
SetBkColor(15);{Устанавливаем черный цвет фона 15 - белый}
SetColor(8);{Цвет линий - темно-серый}
{-- Координатные оси --}
Line(cx-d-20,cy+d,cx+d+20,cy+d);
Line(cx-d,cy-d-20,cx-d,cy+d+20);
{-- Дуга --}
Arc(cx-d,cy+d,0,90,r);
setlinestyle(1,0,1);
{-- Пунктирные --}
Line(cx-d,cy-d,cx+d,cy-d);
Line(cx+d,cy-d,cx+d,cy+d);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
29.04.2011, 08:05
Помогаю со студенческими работами здесь

Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей
1.Нарисовать горизонтальную "линию", состоящую из 15 разноцветных пересекающихся окружностей.

Как нарисовать пунктирную линию?
Приветствую всех! Подскажите, пожалуйста, почему у меня не получается пунктирная линия (2...

Как нарисовать пунктирную линию
Как в С# нарисовать пунктирную линию??

как нарисовать пунктирную линию на компоненте Image
Подскажите как можно нарисовать пунктирную горизонтальную линия на компоненте Image.


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru