Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > [Pascal->С++] Построить ковер серпинского.

Автор: skaizer 26.4.2007, 15:08

[Pascal->С++] Построить ковер серпинского.
Здравствуйте!
Помогите, пожалуйста перевести программу с паскаля на C++.
Необходимо построить ковер серпинского n-го порядка.
Ниже приведен код на паскале(порядок задается переменной n в порцедуре serp):

Код


Program Sierp4;
Uses CRT, Graph;
Var
   gd, gm: Integer;
   x1, y1, x2, y2, x3, y3: real;

procedure serp(x1, y1, x2, y2: real; n: integer);
var
  x1n, y1n, x2n, y2n: real;
begin
  if  n > 0  then begin
    x1n:= 2*x1/3+x2 / 3;
    x2n:= x1/3+2*x2 / 3;
    y1n:= 2*y1/3+y2 / 3;
    y2n:= y1/3+2*y2 / 3;
    rectangle(round(x1n),round(y1n),round(x2n),round(y2n));
    serp(x1, y1, x1n, y1n, n-1);
    serp(x1n, y1, x2n, y1n, n-1);
    serp(x2n, y1, x2, y1n, n-1);
    serp(x1, y1n, x1n, y2n, n-1);
    serp(x2n, y1n, x2, y2n, n-1);
    serp(x1, y2n, x1n, y2, n-1);
    serp(x1n, y2n, x2n, y2, n-1);
    serp(x2n, y2n, x2, y2, n-1);
  end;
end;

Begin
  gd:=detect;
  InitGraph(gd, gm, 'c:\bp\bgi');
  rectangle(20, 20, 460, 460);
  Serp(20, 20, 460, 460, 4);
  ReadLn;
  CloseGraph;
End.

Спасибо всем огромное, кто поможет!

Автор: Lamak 27.4.2007, 10:02

у меня на Билдере получилось что-то вроде етого

Код


void TForm1::serp(double x1,double y1,double x2,double y2,int n)
{
    double x1n, y1n, x2n, y2n;
    if(n > 0)
    {
        x1n= 2*x1/3+x2 / 3;
        x2n= x1/3+2*x2 / 3;
        y1n= 2*y1/3+y2 / 3;
        y2n= y1/3+2*y2 / 3;
        Image1->Canvas->Rectangle(floor(x1n),floor(y1n),floor(x2n),floor(y2n));
        serp(x1, y1, x1n, y1n, n-1);
        serp(x1n, y1, x2n, y1n, n-1);
        serp(x2n, y1, x2, y1n, n-1);
        serp(x1, y1n, x1n, y2n, n-1);
        serp(x2n, y1n, x2, y2n, n-1);
        serp(x1, y2n, x1n, y2, n-1);
        serp(x1n, y2n, x2n, y2, n-1);
        serp(x2n, y2n, x2, y2, n-1);
    }
}

красиво малюет smile

Автор: skaizer 28.4.2007, 10:35

спасибо :)
вот код для консольного режима если кому пригодится

Код


#include<conio.h>
#include<math.h>
#include<graphics.h>
void serp(double x1,double y1,double x2,double y2,int n);
int main(void){
int left,top,right,bottom;
int gdriver=DETECT, gd=DETECT;
initgraph(&gd,&gdriver,"E:\\Borland\\BC5\\bgi");
left = getmaxx() /2 - 200;
top = getmaxy()  /2 - 200;
right = getmaxx() /2 + 200;
bottom = getmaxy() /2 + 200;
rectangle(left,top,right,bottom);
serp(left,top,right,bottom,4);
getch();
closegraph();
return 0;
}
void serp(double x1,double y1,double x2,double y2,int n){
    double x1n, y1n, x2n, y2n;
   if(n > 0)
    {
        x1n= 2*x1/3+x2 / 3;
        x2n= x1/3+2*x2 / 3;
        y1n= 2*y1/3+y2 / 3;
        y2n= y1/3+2*y2 / 3;
        rectangle(floor(x1n),floor(y1n),floor(x2n),floor(y2n));
        serp(x1, y1, x1n, y1n, n-1);
        serp(x1n, y1, x2n, y1n, n-1);
        serp(x2n, y1, x2, y1n, n-1);
        serp(x1, y1n, x1n, y2n, n-1);
        serp(x2n, y1n, x2, y2n, n-1);
        serp(x1, y2n, x1n, y2, n-1);
        serp(x1n, y2n, x2n, y2, n-1);
        serp(x2n, y2n, x2, y2, n-1);
    }
}

Добавлено через 1 минуту и 20 секунд
тема закрыта.