Форум программистов, компьютерный форум CyberForum.ru
Наши страницы

С++ для начинающих

Войти
Регистрация
Восстановить пароль
 
bobik
Сообщений: n/a
#1

Рекурсивное разбиение области - C++

24.09.2012, 19:30. Просмотров 391. Ответов 0
Метки нет (Все метки)

Помогите найти ошибку пожалуйста.
Задание-разбить прямоугольную область на правильные N-угольники.
Вся имеющяяся теория у меня:
Методы визуал.doc - https://docs.google.com/open?id=0B5GPcxRc5jGIU041YjB2V1FySk0
вот код С++ на Борланд Билдере
C++
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
#include <vcl.h>
#pragma hdrstop
#include "as.h"
 #include <math.h>
#include <iostream.h>
#pragma package(smart_init)
#pragma resource "*.dfm"
using namespace std;
struct MyPoint {double x,y;};
double X1,Y1,X2,Y2;
double m,R,Xc,Yc,n;
TForm1 *Form1;
//---------------------------------------------------------------------------
__fastcall TForm1::TForm1(TComponent* Owner)
        : TForm(Owner)
{
 
}
 
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button3Click(TObject *Sender)
{
 
 n=StrToInt(Edit1->Text);
 
 
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
Xc=X1+((X2-X1)/2);
Yc=Y1+((Y2-Y1)/2);
R=(((X2-X1)/2)<((Y2-Y1)/2))?(( X2-X1)/2 ) : ( (Y2-Y1 )/2);
 
double j=1;
m=10;
 
metka2:
 
   //RectangleDraw(1,j,R,Xc,Yc,m);
  // j++;
  // if (j <= n) {goto metka2;}
 
 
 //---------------------------------------------------------------------------
    //  MyPoint *A=new MyPoint [n+1];
 
Canvas->Pen->Color = clBlack;
Canvas->Brush->Color=RGB(255-n*10,155-n*10,255-n*20);
TPoint A[100];
double angle=0;
int ii=0;
for (ii=0;ii<=n;ii++)
{
A[ii].x=int(Xc+R*cos(angle*M_PI/180+M_PI/n));
A[ii].y=int(Yc+R*sin(angle*M_PI/180+M_PI/n));
angle=angle+360/n;
}
for (ii=0;ii<=n;ii++)   Canvas->Polygon(A,n);
//---------------------------------------------------------------------------
 
 
     }
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
 
 
void __fastcall TForm1::Button2Click(TObject *Sender)
{
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
 
Canvas->Pen->Color = clBlack;
  Canvas->Brush->Color=clWhite;
  TPoint points[5];
  points[0].x = X1;
  points[0].y = Y1;
  points[1].x = X2;
  points[1].y = Y1;
  points[2].x = X2;
  points[2].y = Y2;
  points[3].x = X1;
  points[3].y = Y2;
  points[4].x = X1;
  points[4].y = Y1;
Canvas->Polygon(points,4);
 
}
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void RectangleDraw(double Current,double Count,double R,double Xc,double Yc,double m){
     if  (Current==Count) {
               if ( ((Xc-R)>= X1) && ((Xc+R)<= X2) && ((Yc-R)>=Y1) && ((Yc+R)<=Y2) ) {
 
Form1->Canvas->Pen->Color = clBlack;
Form1->Canvas->Brush->Color=RGB(255-Current*10,155-Current*10,255-Current*20);
TPoint A[100];
double angle=0;
int ii=0;
for (ii=0;ii<=n;ii++)
{
A[ii].x=int(Xc+R*cos(angle*M_PI/180+M_PI/n));
A[ii].y=int(Yc+R*sin(angle*M_PI/180+M_PI/n));
angle=angle+360/n;
}
for (ii=0;ii<=n;ii++)   Form1->Canvas->Polygon(A,n);
 return;
 
 
               }
               else { return; }
 
        }
        else {
       int i=0;
metka:
        RectangleDraw(Current+1, Count, R/2,(Xc+R*cos((2*M_PI)/m))/2,(Yc+R*sin((2*M_PI)/m))/2, m);
        i++;
        if(i<m) {goto metka;}
        RectangleDraw(Current+1,Count,R/2, Xc, Yc, m);
 
         return;
        }
 
 
}
 //---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
//---------------------------------------------------------------------------
void __fastcall TForm1::Button1Click(TObject *Sender)
{
 
n=StrToInt(Edit1->Text);
m=StrToInt(Edit6->Text);
X1=StrToInt(Edit2->Text);
Y1=StrToInt(Edit3->Text);
X2=StrToInt(Edit4->Text);
Y2=StrToInt(Edit5->Text);
Xc=X1+((X2-X1)/2);
Yc=Y1+((Y2-Y1)/2);
R=(((X2-X1)/2)<((Y2-Y1)/2))?(( X2-X1)/2 ) : ( (Y2-Y1 )/2);
 
double j=1;
 
 
metka2:
 
   RectangleDraw(1,j,R,Xc,Yc,m);
   j++;
   if (j <= n) {goto metka2;}
 
 
}
//---------------------------------------------------------------------------
as.h :
Кликните здесь для просмотра всего текста
C++
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
//---------------------------------------------------------------------------
 
#ifndef asH
#define asH
//---------------------------------------------------------------------------
#include <Classes.hpp>
#include <Controls.hpp>
#include <StdCtrls.hpp>
#include <Forms.hpp>
//---------------------------------------------------------------------------
class TForm1 : public TForm
{
__published:    // IDE-managed Components
        TButton *Button1;
        TEdit *Edit1;
        TLabel *Label1;
        TLabel *Label2;
        TEdit *Edit2;
        TEdit *Edit3;
        TLabel *Label3;
        TLabel *Label4;
        TLabel *Label5;
        TLabel *Label6;
        TLabel *Label7;
        TEdit *Edit4;
        TEdit *Edit5;
        TButton *Button2;
        TButton *Button3;
        TEdit *Edit6;
        TLabel *Label8;
        void __fastcall Button1Click(TObject *Sender);
        void __fastcall Button2Click(TObject *Sender);
        void __fastcall Button3Click(TObject *Sender);
private:    // User declarations
public:     // User declarations
        __fastcall TForm1(TComponent* Owner);
};
//---------------------------------------------------------------------------
extern PACKAGE TForm1 *Form1;
//---------------------------------------------------------------------------
#endif


as.dfm :

Кликните здесь для просмотра всего текста
C++
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
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
object Form1: TForm1
  Left = 457
  Top = 122
  Width = 870
  Height = 640
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Label1: TLabel
    Left = 8
    Top = 48
    Width = 71
    Height = 13
    Caption = #1050#1086#1083'-'#1074#1086' '#1091#1075#1083#1086#1074'='
  end
  object Label2: TLabel
    Left = 8
    Top = 88
    Width = 150
    Height = 13
    Caption = #1051#1077#1074#1099#1081' '#1074#1077#1088#1093#1085#1080#1081' '#1091#1075#1086#1083' '#1086#1073#1083#1072#1089#1090#1080':'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label3: TLabel
    Left = 24
    Top = 120
    Width = 29
    Height = 20
    Caption = 'X1='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label4: TLabel
    Left = 24
    Top = 152
    Width = 29
    Height = 20
    Caption = 'Y1='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label5: TLabel
    Left = 8
    Top = 176
    Width = 153
    Height = 13
    Caption = #1055#1088#1072#1074#1099#1081' '#1085#1080#1078#1085#1080#1081' '#1091#1075#1086#1083' '#1086#1073#1083#1072#1089#1090#1080':'
  end
  object Label6: TLabel
    Left = 24
    Top = 208
    Width = 29
    Height = 20
    Caption = 'X2='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label7: TLabel
    Left = 24
    Top = 232
    Width = 29
    Height = 20
    Caption = 'Y2='
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -16
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
  end
  object Label8: TLabel
    Left = 8
    Top = 8
    Width = 115
    Height = 13
    Caption = #1042#1083#1086#1078#1077#1085#1086#1089#1090#1100' '#1088#1077#1082#1091#1088#1089#1080#1081':'
  end
  object Button1: TButton
    Left = 40
    Top = 280
    Width = 81
    Height = 41
    Caption = #1055#1086#1089#1090#1086#1088#1080#1090#1100
    TabOrder = 0
    OnClick = Button1Click
  end
  object Edit1: TEdit
    Left = 88
    Top = 48
    Width = 49
    Height = 21
    TabOrder = 1
    Text = '4'
  end
  object Edit2: TEdit
    Left = 88
    Top = 120
    Width = 49
    Height = 21
    TabOrder = 2
    Text = '170'
  end
  object Edit3: TEdit
    Left = 88
    Top = 152
    Width = 49
    Height = 21
    TabOrder = 3
    Text = '50'
  end
  object Edit4: TEdit
    Left = 88
    Top = 208
    Width = 49
    Height = 21
    TabOrder = 4
    Text = '700'
  end
  object Edit5: TEdit
    Left = 88
    Top = 232
    Width = 49
    Height = 21
    TabOrder = 5
    Text = '500'
  end
  object Button2: TButton
    Left = 8
    Top = 328
    Width = 153
    Height = 33
    Caption = #1055#1086#1089#1090#1088#1086#1080#1090#1100' '#1086#1073#1083#1072#1089#1090#1100
    TabOrder = 6
    OnClick = Button2Click
  end
  object Button3: TButton
    Left = 24
    Top = 392
    Width = 33
    Height = 25
    Caption = 'Button3'
    TabOrder = 7
    OnClick = Button3Click
  end
  object Edit6: TEdit
    Left = 120
    Top = 24
    Width = 49
    Height = 21
    TabOrder = 8
    Text = '10'
  end
end



весь проект в архиве:
https://docs.google.com/open?id=0B5GPcxRc5jGIalA5ZTFPalFucW8

вот что строится.
https://docs.google.com/open?id=0B5GPcxRc5jGILXAyX1F5dno1NVE

П.С. забыл удалить Button3 -он использовался только для проверки работоспособности кода.
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
24.09.2012, 19:30
Здравствуйте! Я подобрал для вас темы с ответами на вопрос Рекурсивное разбиение области (C++):

Рекурсивное разбиение прямоугольной области правильным n-угольником - C++
Имеется алгоритмический язык.Помогите реализовать на паскале. алг RectangleDraw(арг цел Current_It,int Count_It, арг вещ Radius, Xc, Yc,...

Рекурсивное сложение - C++
Дорогие друзья,объясните пожалуйста, если функция возвращает значение fib(n-1) + fib(n-2); при значении к примеру n=5,какой будет...

Рекурсивное вычисление - C++
Доброе время суток!!! Помогите пожалуйста решить две задачи с помощью рекурсии. За ранее огромное спасибо!!! Задача №1. Написать...

Рекурсивное наследование - C++
Доброго времени суток. Допустим, у нас есть файл fst.h: #include &lt;snd.h&gt; class Fst { Snd b; // Snd was not...

Рекурсивное возведение в степень - C++
Поднести в степень (положительное целое число) действительное ненулевое число. Использовать рекурсию.

Рекурсивное копирование папок - C++
Как сделать, чтобы копировало не только папку и файлы, но и остальные папки внутри папки которую копируем? char fil; char cop; ...

0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
24.09.2012, 19:30
Привет! Вот еще темы с ответами:

Рекурсивное умножение матриц - C++
Надо написать рекурсивную процедуру умножения двух матриц. Как оформить? Что делать? Кто напишет - тому пирожок :)

Рекурсивное умножение матриц - C++
С чего начать в первую очередь чтобы понять как реализовать рекурсивное умножение матриц? напишу обычную функцию для умножения матриц: ...

Рекурсивное возведение в степень - C++
Составить программу вычисления функции F(x) = xn.

Рекурсивное возведение в степень - C++
ребят, нужна задача... рекурсивное возведение в base степень exponent: stepen(int base, int exponent)


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

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

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