VPF::[Pascal->С++] Построить ковер серпинского.

skaizer

Дата 26.4.2007, 15:08 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 18.4.2007

Репутация: нет
Всего: нет

[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.

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

Это сообщение отредактировал(а) skaizer - 27.4.2007, 08:28

Lamak

Дата 27.4.2007, 10:02 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 204
Регистрация: 8.5.2005
Где: Украина,Одесса

Репутация: 6
Всего: 7

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

Код


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 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 26
Регистрация: 18.4.2007

Репутация: нет
Всего: нет

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

Код


#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 секунд
тема закрыта.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Центр помощи \| Следующая тема »